[devscripts] 02/02: uscan: join array contents to print a string

[Osamu Aoki]

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

osamu pushed a commit to branch master
in repository devscripts.

commit c2945f43b253417657a3f7982685da5919506e89
Author: Osamu Aoki <osamu at debian.org>
Date:   Sun Jan 31 17:51:50 2016 +0900

    uscan: join array contents to print a string
---
 scripts/uscan.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/scripts/uscan.pl b/scripts/uscan.pl
index 0765c04..2f93227 100755
--- a/scripts/uscan.pl
+++ b/scripts/uscan.pl
@@ -2634,8 +2634,12 @@ sub process_watchline ($$$$$$)
 	}
 
 	# If PGP used, check required programs and generate files
-	uscan_debug "\$options{'pgpmode'}=$options{'pgpmode'}, \$options{'pgpsigurlmangle'}=$options{'pgpsigurlmangle'}\n" if defined $options{'pgpsigurlmangle'};
-	uscan_debug "\$options{'pgpmode'}=$options{'pgpmode'}, \$options{'pgpsigurlmangle'}=undef\n" if ! defined $options{'pgpsigurlmangle'};
+	if (exists $options{'pgpsigurlmangle'}) {
+	    my $pgpsigurlmanglestring = join(";", @{$options{'pgpsigurlmangle'}});
+	    uscan_debug "\$options{'pgpmode'}=$options{'pgpmode'}, \$options{'pgpsigurlmangle'}=$pgpsigurlmanglestring\n";
+	} else {
+	    uscan_debug "\$options{'pgpmode'}=$options{'pgpmode'}, \$options{'pgpsigurlmangle'}=undef\n";
+	}
 
 	# Check component for duplication and set $orig to the proper extension string
 	if ($options{'pgpmode'} ne 'previous') {

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