diff options
author | Paul Fenwick <pjf@perltraining.com.au> | 2009-04-24 23:14:01 +0930 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-05 09:17:48 +0200 |
commit | 079cb8cc5abf40c0b016f9f878493b4d192d85d3 (patch) | |
tree | 99de0221add239bfe29fbbb2e8fcadbe92def069 /lib/File/Copy.pm | |
parent | 46d6503777f357c38f9d1cde19b6d3d1c6f36d3d (diff) | |
download | perl-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.pm | 2 |
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; |