diff options
| author | Noah Misch <noah@leadboat.com> | 2016-06-12 04:19:56 -0400 |
|---|---|---|
| committer | Noah Misch <noah@leadboat.com> | 2016-06-12 04:19:56 -0400 |
| commit | 3be0a62ffe58f0753d190cbe22acbeb8b4926b85 (patch) | |
| tree | 6da431545c91d5f54d56b38208e8f946dcdbd6b4 /src/test/perl/RecursiveCopy.pm | |
| parent | b098abf90537edf0ce9c70e8eb55320baf6e445d (diff) | |
| download | postgresql-3be0a62ffe58f0753d190cbe22acbeb8b4926b85.tar.gz postgresql-3be0a62ffe58f0753d190cbe22acbeb8b4926b85.zip | |
Finish pgindent run for 9.6: Perl files.
Diffstat (limited to 'src/test/perl/RecursiveCopy.pm')
| -rw-r--r-- | src/test/perl/RecursiveCopy.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/test/perl/RecursiveCopy.pm b/src/test/perl/RecursiveCopy.pm index c4da1bbd837..3e988132868 100644 --- a/src/test/perl/RecursiveCopy.pm +++ b/src/test/perl/RecursiveCopy.pm @@ -65,7 +65,7 @@ sub copypath { die "if specified, filterfn must be a subroutine reference" unless defined(ref $params{filterfn}) - and (ref $params{filterfn} eq 'CODE'); + and (ref $params{filterfn} eq 'CODE'); $filterfn = $params{filterfn}; } @@ -93,7 +93,8 @@ sub _copypath_recurse # Can't handle symlinks or other weird things die "Source path \"$srcpath\" is not a regular file or directory" - unless -f $srcpath or -d $srcpath; + unless -f $srcpath + or -d $srcpath; # Abort if destination path already exists. Should we allow directories # to exist already? |