admin: distfiles/request-handler.pl Back to original dir (works even if tmp...

[arekm]

Author: arekm                        Date: Tue Dec 29 09:44:13 2009 GMT
Module: admin                         Tag: HEAD
---- Log message:
Back to original dir (works even if tmp is a symlink)

---- Files affected:
admin/distfiles:
   request-handler.pl (1.20 -> 1.21) 

---- Diffs:

================================================================
Index: admin/distfiles/request-handler.pl
diff -u admin/distfiles/request-handler.pl:1.20 admin/distfiles/request-handler.pl:1.21
--- admin/distfiles/request-handler.pl:1.20	Tue Dec 29 10:41:16 2009
+++ admin/distfiles/request-handler.pl	Tue Dec 29 10:44:08 2009
@@ -12,6 +12,7 @@
 
 # ---------------------------------------------------------------
 use File::Basename;
+use Cwd;
 
 sub cleanup()
 {
@@ -61,6 +62,8 @@
 
 report_fatal("bad spec name") if (!defined $spec);
 
+$cwd = Cwd::getcwd();
+
 mkdir("tmp/$id") or die("cannot create: tmp/$id");
 chdir("tmp/$id");
 
@@ -73,7 +76,7 @@
   report_fatal("cannot cvs get $spec at $branch")
 }
 
-chdir("../..");
+chdir($cwd);
 
 open(S, "> tmp/$id/to-spool");
 print S "$from\@pld-linux.org\n";
================================================================

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