The normal style in this source file is:

```perl
while (    -e catfile($path, qw{.svn entries})
        && $path ne dirname($path)
) {
```