This is an automated email from the git hooks/post-receive script.

nomeata pushed a commit to branch master
in repository devscripts.

commit efd33b028648cecf3469e211865487c6065712bd
Author: Joachim Breitner <[email protected]>
Date:   Sun Mar 16 13:47:59 2014 +0100

    uscan: Rename only when it is a tarball
    
    This recovers previous behavior changed by 883c82b
---
 scripts/uscan.pl | 77 +++++++++++++++++++++++++++++---------------------------
 1 file changed, 40 insertions(+), 37 deletions(-)

diff --git a/scripts/uscan.pl b/scripts/uscan.pl
index b4e2ddf..6bf0be3 100755
--- a/scripts/uscan.pl
+++ b/scripts/uscan.pl
@@ -1583,47 +1583,50 @@ EOF
        }
     }
 
-    my $compression = compression_guess_from_filename($newfile_base);
-    unless ($compression) {
-       uscan_die("Cannot determine compression method of $newfile_base");
-    }
-    my $suffix = compression_get_property($compression, "file_ext");
-    my         $renamed_base = "${pkg}_${newversion}.orig.tar.$suffix";
-    if ($symlink eq 'symlink') {
-       symlink $newfile_base, "$destdir/$renamed_base";
-    } elsif ($symlink eq 'rename') {
-       move "$destdir/$newfile_base", "$destdir/$renamed_base";
-    }
-    if ($verbose) {
-       print "-- Successfully downloaded updated package $newfile_base\n";
+    my ($renamed_base);
+    if ($newfile_base =~ $tarbase_regex) {
+       my $compression = compression_guess_from_filename($newfile_base);
+       unless ($compression) {
+           uscan_die("Cannot determine compression method of $newfile_base");
+       }
+       my $suffix = compression_get_property($compression, "file_ext");
+       $renamed_base = "${pkg}_${newversion}.orig.tar.$suffix";
        if ($symlink eq 'symlink') {
-           print "    and symlinked $renamed_base to it\n";
+           symlink $newfile_base, "$destdir/$renamed_base";
        } elsif ($symlink eq 'rename') {
-           print "    and renamed it as $renamed_base\n";
-       } elsif ($symlink eq 'files-excluded') {
-           print "    and removed files from it in 
${pkg}_${newversion}${excludesuffix}.orig.tar.$suffix\n";
+           move "$destdir/$newfile_base", "$destdir/$renamed_base";
        }
-    } elsif ($dehs) {
-       my $msg = "Successfully downloaded updated package $newfile_base";
-       $dehs_tags{'target'} = "$renamed_base";
-       if ($symlink eq 'symlink') {
-           $msg .= " and symlinked $renamed_base to it";
-       } elsif ($symlink eq 'rename') {
-           $msg .= " and renamed it as $renamed_base";
-       } elsif ($symlink eq 'files-excluded') {
-           $msg .= " and removed files from it in 
${pkg}_${newversion}${excludesuffix}.orig.tar.$suffix\n";
+       if ($verbose) {
+           print "-- Successfully downloaded updated package $newfile_base\n";
+           if ($symlink eq 'symlink') {
+               print "    and symlinked $renamed_base to it\n";
+           } elsif ($symlink eq 'rename') {
+               print "    and renamed it as $renamed_base\n";
+           } elsif ($symlink eq 'files-excluded') {
+               print "    and removed files from it in 
${pkg}_${newversion}${excludesuffix}.orig.tar.$suffix\n";
+           }
+       } elsif ($dehs) {
+           my $msg = "Successfully downloaded updated package $newfile_base";
+           $dehs_tags{'target'} = "$renamed_base";
+           if ($symlink eq 'symlink') {
+               $msg .= " and symlinked $renamed_base to it";
+           } elsif ($symlink eq 'rename') {
+               $msg .= " and renamed it as $renamed_base";
+           } elsif ($symlink eq 'files-excluded') {
+               $msg .= " and removed files from it in 
${pkg}_${newversion}${excludesuffix}.orig.tar.$suffix\n";
+           } else {
+               $dehs_tags{'target'} = $newfile_base;
+           }
+           dehs_msg($msg);
        } else {
-           $dehs_tags{'target'} = $newfile_base;
-       }
-       dehs_msg($msg);
-    } else {
-       print "$pkg: Successfully downloaded updated package $newfile_base\n";
-       if ($symlink eq 'symlink') {
-           print "    and symlinked $renamed_base to it\n";
-       } elsif ($symlink eq 'rename') {
-           print "    and renamed it as $renamed_base\n";
-       } elsif ($symlink eq 'files-excluded') {
-           print "    and removed files from it in 
${pkg}_${newversion}${excludesuffix}.orig.tar.$suffix\n";
+           print "$pkg: Successfully downloaded updated package 
$newfile_base\n";
+           if ($symlink eq 'symlink') {
+               print "    and symlinked $renamed_base to it\n";
+           } elsif ($symlink eq 'rename') {
+               print "    and renamed it as $renamed_base\n";
+           } elsif ($symlink eq 'files-excluded') {
+               print "    and removed files from it in 
${pkg}_${newversion}${excludesuffix}.orig.tar.$suffix\n";
+           }
        }
     }
 

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/collab-maint/devscripts.git

_______________________________________________
devscripts-devel mailing list
[email protected]
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/devscripts-devel

Reply via email to