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
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
