[SCM] Git repository for devscripts branch, master, updated. v2.12.4-179-gcd2ff7e

[Benjamin Drung]

The following commit has been merged in the master branch:
commit cd2ff7ecebcec8df38883699760cf720f4bf1408
Author: Benjamin Drung <bdrung at debian.org>
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 <bdrung at debian.org>  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