SVN devscripts commit: r1191 - trunk/scripts

[adam-guest]

Author: adam-guest
Date: 2008-03-24 01:15:40 +0000 (Mon, 24 Mar 2008)
New Revision: 1191

Modified:
   trunk/scripts/debdiff.pl
Log:
Revert inadvertent commit

Modified: trunk/scripts/debdiff.pl
===================================================================
--- trunk/scripts/debdiff.pl    2008-03-24 01:13:42 UTC (rev 1190)
+++ trunk/scripts/debdiff.pl    2008-03-24 01:15:40 UTC (rev 1191)
@@ -19,7 +19,6 @@
 use Cwd;
 use File::Basename;
 use File::Temp qw/ tempdir /;
-use File::Copy qw/ move /;
 
 # Predeclare functions
 sub process_debc($$);
@@ -467,14 +466,10 @@
            opendir DIR,${"dir$i"}.'/'.${"sdir$i"};
            while ($_ = readdir(DIR)) {
                    if ($_ =~ /tar.gz$/) {
-                       my $filename = $_;
-                       $filename =~ s%(.*)\.tar\.gz%$1%;
-                       system qq(cd ${"dir$i"}/${"sdir$i"} && tar zxf $_ 
>/dev/null && mv $filename =unpacked-tar-gz=); 
+                       system qq(cd ${"dir$i"}/${"sdir$i"} && tar zxf $_ 
>/dev/null); 
                    }
                    if ($_ =~ /tar.bz$/ || $_ =~ /tar.bz2$/) {
-                       my $filename = $_;
-                       $filename =~ s%(.*)\.tar\.bz2?%$1%;
-                       system qq(cd ${"dir$i"}/${"sdir$i"} && tar jxf $_ 
>/dev/null && mv $filename =unpacked-tar-bz=);
+                       system qq(cd ${"dir$i"}/${"sdir$i"} && tar jxf $_ 
>/dev/null);
                    }
            }
            closedir(DIR);
@@ -831,7 +826,7 @@
     no strict 'refs';
 
     for my $i (1,2) {
-       ${"dir$i"}=tempdir( CLEANUP => 0 );
+       ${"dir$i"}=tempdir( CLEANUP => 1 );
        fatal "Couldn't create temp directory"
            if not defined ${"dir$i"};
     }



-- 
To unsubscribe, send mail to [EMAIL PROTECTED]