Use File::Copy::move instead of 'rename' so it works when directories are in different filesystems

git-svn-id: http://svn.code.sf.net/p/netpbm/code/trunk@2815 9d0c8265-081b-0410-96cb-a4ca84ce46f8

1 files changed, 2 insertions, 1 deletions

diff --git a/editor/pnmquantall b/editor/pnmquantall
index 41cc6721..d268227d 100755
--- a/editor/pnmquantall
+++ b/editor/pnmquantall
@@ -56,6 +56,7 @@ use strict;
 use warnings;
 use English;
 use Fcntl;  # gets open flags
+use File::Copy;
 
 my $TRUE=1; my $FALSE = 0;
 
@@ -176,7 +177,7 @@ sub remapFiles($$$$) {
                 my $newFileName = $inFileName . $ext;
 
                 unlink($newFileName);
-                rename($outputFileName, $newFileName)
+                File::Copy::move($outputFileName, $newFileName)
                     or $$errorR = "Rename to '$newFileName' failed.";
             }
         }