summaryrefslogtreecommitdiff
path: root/lib/File/Copy.pm
diff options
context:
space:
mode:
authorPaul Fenwick <pjf@perltraining.com.au>2009-04-24 23:14:01 +0930
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2009-05-05 09:17:48 +0200
commit079cb8cc5abf40c0b016f9f878493b4d192d85d3 (patch)
tree99de0221add239bfe29fbbb2e8fcadbe92def069 /lib/File/Copy.pm
parent46d6503777f357c38f9d1cde19b6d3d1c6f36d3d (diff)
downloadperl-079cb8cc5abf40c0b016f9f878493b4d192d85d3.tar.gz
Make File::Copy always return 0 (not "") on failure.
On Unix systems, the subroutines in File::Copy always return 0 on failure. On Windows, move() and mv() return 0, but copy() and cp() return "". This commit makes File::Copy consistently return 0 on failure.
Diffstat (limited to 'lib/File/Copy.pm')
-rw-r--r--lib/File/Copy.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm
index 7393bf48ab..be1442f745 100644
--- a/lib/File/Copy.pm
+++ b/lib/File/Copy.pm
@@ -213,7 +213,7 @@ sub copy {
}
}
- return syscopy($from, $copy_to);
+ return syscopy($from, $copy_to) || 0;
}
my $closefrom = 0;