This is an automated email from the git hooks/post-receive script. osamu pushed a commit to branch master in repository devscripts.
commit e8bbbf460376cd741c22bef07e4e7b015cb11c6e Author: Osamu Aoki <os...@debian.org> Date: Sun Mar 6 10:40:16 2016 +0900 uscan: Always use uscan_die and uscan_warn There were few bare use of "warn" in uscan. This causes UDD to miss few error cases. Inspired by: Bug#815980 --- debian/changelog | 1 + scripts/uscan.pl | 19 +++++++++++-------- 2 files changed, 12 insertions(+), 8 deletions(-) diff --git a/debian/changelog b/debian/changelog index c18490b..be32bfe 100644 --- a/debian/changelog +++ b/debian/changelog @@ -7,6 +7,7 @@ devscripts (2.16.2) UNRELEASED; urgency=medium tests. + Reactivate --no-verbose mode. Closes: #815645 + Fix --destdir for version 4. Closes:#814686 + + Always use uscan_warn and uscan_die. * test_uscan: + Fix non-{Debian,Ubuntu} cases. Closes: #816645 diff --git a/scripts/uscan.pl b/scripts/uscan.pl index dcf6383..26d413c 100755 --- a/scripts/uscan.pl +++ b/scripts/uscan.pl @@ -1700,14 +1700,19 @@ use Devscripts::Versort; use Text::ParseWords; use Digest::MD5; +sub uscan_die ($); +sub uscan_warn ($); +# From here, do not use bare "warn" nor "die". +# Use "uscan_warn" or "uscan_die" instead to make --dehs work as expected. + BEGIN { eval { require LWP::UserAgent; }; if ($@) { my $progname = basename($0); if ($@ =~ /^Can\'t locate LWP\/UserAgent\.pm/) { - die "$progname: you must have the libwww-perl package installed\nto use this script\n"; + uscan_die "$progname: you must have the libwww-perl package installed\nto use this script\n"; } else { - die "$progname: problem loading the LWP::UserAgent module:\n $@\nHave you installed the libwww-perl package?\n"; + uscan_die "$progname: problem loading the LWP::UserAgent module:\n $@\nHave you installed the libwww-perl package?\n"; } } } @@ -1735,7 +1740,6 @@ sub get_suffix ($); sub get_priority ($); sub recursive_regex_dir ($$$); sub newest_dir ($$$$$); -sub uscan_die ($); sub dehs_output (); sub quoted_regex_replace ($); sub safe_replace ($$); @@ -1744,7 +1748,6 @@ sub uscan_msg($); sub uscan_verbose($); sub uscan_debug($); sub dehs_verbose ($); -sub uscan_warn ($); my $havegpgv = first { -x $_ } qw(/usr/bin/gpgv2 /usr/bin/gpgv); my $havegpg = first { -x $_ } qw(/usr/bin/gpg2 /usr/bin/gpg); @@ -2040,7 +2043,7 @@ GetOptions("help" => \$opt_h, "copyright-file=s" => \$opt_copyright_file, "download-current-version" => \$opt_download_current_version, ) - or die "Usage: $progname [options] [directories]\nRun $progname --help for more details\n"; + or uscan_die "Usage: $progname [options] [directories]\nRun $progname --help for more details\n"; if ($opt_noconf) { die "$progname: --no-conf is only acceptable as the first command-line option!\n"; @@ -2821,7 +2824,7 @@ sub process_watchline ($$$$$$) $ref =~ m&^$_pattern$&); foreach my $pat (@{$options{'uversionmangle'}}) { if (! safe_replace(\$version, $pat)) { - warn "$progname: In $watchfile, potentially" + uscan_warn "$progname: In $watchfile, potentially" . " unsafe or malformed uversionmangle" . " pattern:\n '$pat'" . " found. Skipping watchline\n" @@ -2846,7 +2849,7 @@ sub process_watchline ($$$$$$) if (@vrefs) { ($newversion, $newfile) = @{$vrefs[0]}; } else { - warn "$progname warning: In $watchfile no matching" + uscan_warn "$progname warning: In $watchfile no matching" . " refs for version $download_version" . " in watch line\n $line\n"; return 1; @@ -2856,7 +2859,7 @@ sub process_watchline ($$$$$$) ($newversion, $newfile) = @{$refs[0]}; } } else { - warn "$progname warning: In $watchfile,\n" . + uscan_warn "$progname warning: In $watchfile,\n" . " no matching refs for watch line\n" . " $line\n"; return 1; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/collab-maint/devscripts.git _______________________________________________ devscripts-devel mailing list devscripts-devel@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/devscripts-devel