admin: distfiles/request-handler.pl use File::Copy::Recursive::dirmove inst...

[arekm]

Author: arekm                        Date: Tue Dec 29 10:18:36 2009 GMT
Module: admin                         Tag: HEAD
---- Log message:
use File::Copy::Recursive::dirmove instead of rename

---- Files affected:
admin/distfiles:
   request-handler.pl (1.22 -> 1.23) 

---- Diffs:

================================================================
Index: admin/distfiles/request-handler.pl
diff -u admin/distfiles/request-handler.pl:1.22 admin/distfiles/request-handler.pl:1.23
--- admin/distfiles/request-handler.pl:1.22	Tue Dec 29 10:56:04 2009
+++ admin/distfiles/request-handler.pl	Tue Dec 29 11:18:31 2009
@@ -12,6 +12,7 @@
 
 # ---------------------------------------------------------------
 use File::Basename;
+use File::Copy::Recursive
 use Cwd;
 
 sub cleanup()
@@ -87,7 +88,7 @@
   report_fatal("cannot parse $spec ($branch)")
 }
 
-rename("tmp/$id/to-spool", "$spool_dir/$id");
+File::Copy::Recursive::dirmove("tmp/$id/to-spool", "$spool_dir/$id");
 
 cleanup();
 
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/admin/distfiles/request-handler.pl?r1=1.22&r2=1.23&f=u