[devscripts] 01/02: grep-excuses: Reformat wipnity function
James McCoy
jamessan at debian.org
Sat Feb 25 11:27:06 UTC 2017
This is an automated email from the git hooks/post-receive script.
jamessan pushed a commit to branch pu/yaml-excuses
in repository devscripts.
commit 96ae2fd9a6b5c0e47dc682d5a4820c36c05b8c4e
Author: James McCoy <jamessan at debian.org>
Date: Sat Feb 25 00:41:18 2017 -0500
grep-excuses: Reformat wipnity function
Signed-off-by: James McCoy <jamessan at debian.org>
---
scripts/grep-excuses.pl | 23 ++++++++++++-----------
1 file changed, 12 insertions(+), 11 deletions(-)
diff --git a/scripts/grep-excuses.pl b/scripts/grep-excuses.pl
index adeeebd..cc4d60f 100755
--- a/scripts/grep-excuses.pl
+++ b/scripts/grep-excuses.pl
@@ -92,20 +92,21 @@ You are free to redistribute this code under the terms of the
GNU General Public License, version 2 or later.
EOF
-sub wipnity {
-die "$progname: Couldn't run wipnity: $term_size_broken\n" unless have_term_size();
+sub wipnity
+{
+ die "$progname: Couldn't run wipnity: $term_size_broken\n" unless have_term_size();
-my $columns = Term::Size::chars();
+ my $columns = Term::Size::chars();
-if (system("command -v w3m >/dev/null 2>&1") != 0) {
- die "$progname: wipnity mode requires the w3m package to be installed\n";
-}
+ if (system("command -v w3m >/dev/null 2>&1") != 0) {
+ die "$progname: wipnity mode requires the w3m package to be installed\n";
+ }
-while( my $package=shift ) {
- my $dump = `w3m -dump -cols $columns "https://qa.debian.org/excuses.php?package=$package"`;
- $dump =~ s/.*(Excuse for .*)\s+Maintainer page.*/$1/ms;
- $dump =~ s/.*(No excuse for .*)\s+Maintainer page.*/$1/ms;
- print($dump);
+ while( my $package=shift ) {
+ my $dump = `w3m -dump -cols $columns "https://qa.debian.org/excuses.php?package=$package"`;
+ $dump =~ s/.*(Excuse for .*)\s+Maintainer page.*/$1/ms;
+ $dump =~ s/.*(No excuse for .*)\s+Maintainer page.*/$1/ms;
+ print($dump);
}
}
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/collab-maint/devscripts.git
More information about the devscripts-devel
mailing list