[devscripts] 01/06: uscan: uscan_verbose for dirversionmangle target

[Osamu Aoki]

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

osamu pushed a commit to branch multitar
in repository devscripts.

commit 3e759d75de4bbdcfc9c4d3ab6dc66cdee295ff9f
Author: Osamu Aoki <osamu at debian.org>
Date:   Sat Nov 7 15:05:27 2015 +0900

    uscan: uscan_verbose for dirversionmangle target
---
 scripts/uscan.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/scripts/uscan.pl b/scripts/uscan.pl
index 64b2884..dce03ba 100755
--- a/scripts/uscan.pl
+++ b/scripts/uscan.pl
@@ -3583,6 +3583,7 @@ sub newest_dir ($$$$$) {
 	my $match ='';
 	while ($content =~ m/<\s*a\s+[^>]*href\s*=\s*([\"\'])(.*?)\1/gi) {
 	    my $href = $2;
+	    uscan_verbose "Matching target for dirversionmangle:   $href\n";
 	    if ($href =~ m&^$dirpattern/?$&) {
 		my $mangled_version = join(".", map { $_ // '' } $href =~ m&^$dirpattern/?$&);
 		foreach my $pat (@{$$optref{'dirversionmangle'}}) {
@@ -3667,6 +3668,7 @@ sub newest_dir ($$$$$) {
 	    while ($content =~
 		m/(?:<\s*a\s+[^>]*href\s*=\s*\")((?-i)$pattern)\"/gi) {
 		my $dir = $1;
+		uscan_verbose "Matching target for dirversionmangle:   $dir\n";
 		my $mangled_version = join(".", $dir =~ m/^$pattern$/);
 		foreach my $pat (@{$$optref{'dirversionmangle'}}) {
 		    uscan_verbose "Dirversionnmangle rule: $pat\n";
@@ -3703,6 +3705,7 @@ sub newest_dir ($$$$$) {
 		$ln =~ s/^.*\s(\S+)$/$1/; # filename only
 		if ($ln =~ m/($pattern)(\s+->\s+\S+)?$/) {
 		    my $dir = $1;
+		    uscan_verbose "Matching target for dirversionmangle:   $dir\n";
 		    my $mangled_version = join(".", $dir =~ m/^$pattern$/);
 		    foreach my $pat (@{$$optref{'dirversionmangle'}}) {
 			uscan_verbose "Dirversionnmangle rule: $pat\n";

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