The following commit has been merged in the master branch:
commit cd2ff7ecebcec8df38883699760cf720f4bf1408
Author: Benjamin Drung <[email protected]>
Date:   Wed Mar 20 15:46:32 2013 +0100

    uscan: more debug info to allow checking uversionmangle patterns.

diff --git a/debian/changelog b/debian/changelog
index e523126..2673081 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -17,6 +17,9 @@ devscripts (2.13.1) UNRELEASED; urgency=low
   [ Dmitrijs Ledkovs ]
   * wrap-and-sort: Add trailing comma option (Closes: #703323).
 
+  [ Markus Wanner ]
+  * uscan: more debug info to allow checking uversionmangle patterns.
+
  -- Benjamin Drung <[email protected]>  Tue, 19 Feb 2013 17:22:32 +0100
 
 devscripts (2.13.0) experimental; urgency=low
diff --git a/scripts/uscan.pl b/scripts/uscan.pl
index 8723fb4..1010f7c 100755
--- a/scripts/uscan.pl
+++ b/scripts/uscan.pl
@@ -963,7 +963,7 @@ sub process_watchline ($$$$$$)
        if (@hrefs) {
            if ($verbose) {
                print "-- Found the following matching hrefs:\n";
-               foreach my $href (@hrefs) { print "     $$href[1]\n"; }
+               foreach my $href (@hrefs) { print "     $$href[1] 
($$href[0])\n"; }
            }
            if (defined $download_version) {
                my @vhrefs = grep { $$_[0] eq $download_version } @hrefs;
@@ -1060,7 +1060,7 @@ sub process_watchline ($$$$$$)
        if (@files) {
            if ($verbose) {
                print "-- Found the following matching files:\n";
-               foreach my $file (@files) { print "     $$file[1]\n"; }
+               foreach my $file (@files) { print "     $$file[1] 
($$file[0])\n"; }
            }
            if (defined $download_version) {
                my @vfiles = grep { $$_[0] eq $download_version } @files;
@@ -1588,7 +1588,7 @@ sub newest_dir ($$$$$) {
            @hrefs = Devscripts::Versort::versort(@hrefs);
            if ($debug) {
                print "-- Found the following matching hrefs (newest first):\n";
-               foreach my $href (@hrefs) { print "     $$href[1]\n"; }
+               foreach my $href (@hrefs) { print "     $$href[1] 
($$href[0])\n"; }
            }
            my $newdir = $hrefs[0][1];
            # just give the final directory component

-- 
Git repository for devscripts

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

Reply via email to