diff options
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? |