[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