admin: distfiles/request-handler.pl It's just file, not dir.

[arekm]

Author: arekm                        Date: Tue Dec 29 10:22:43 2009 GMT
Module: admin                         Tag: HEAD
---- Log message:
It's just file, not dir.

---- Files affected:
admin/distfiles:
   request-handler.pl (1.24 -> 1.25) 

---- Diffs:

================================================================
Index: admin/distfiles/request-handler.pl
diff -u admin/distfiles/request-handler.pl:1.24 admin/distfiles/request-handler.pl:1.25
--- admin/distfiles/request-handler.pl:1.24	Tue Dec 29 11:19:01 2009
+++ admin/distfiles/request-handler.pl	Tue Dec 29 11:22:38 2009
@@ -12,7 +12,7 @@
 
 # ---------------------------------------------------------------
 use File::Basename;
-use File::Copy::Recursive;
+use File::Copy;
 use Cwd;
 
 sub cleanup()
@@ -88,7 +88,7 @@
   report_fatal("cannot parse $spec ($branch)")
 }
 
-File::Copy::Recursive::dirmove("tmp/$id/to-spool", "$spool_dir/$id");
+File::Copy::move("tmp/$id/to-spool", "$spool_dir/$id") or die("move failed: $!");
 
 cleanup();
 
================================================================

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