From: joey <joey>
Date: Wed, 4 Apr 2001 00:51:47 +0000 (+0000)
Subject: r459: use predefined character classes for readability
X-Git-Tag: version_2.0.101~140
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e3f252493cc65ecbc3b6bb0b53af0358cb496450;p=debhelper.git

r459: use predefined character classes for readability
---

diff --git a/dh_installman b/dh_installman
index 9c71774..e48ff6a 100755
--- a/dh_installman
+++ b/dh_installman
@@ -97,14 +97,14 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 			open (IN, $page) or die "$page: $!";
 		}
 		while (<IN>) {
-			if (/^\.TH\s+[^ 	]+\s+(\d+[^ 	]*)\s/) {
+			if (/^\.TH\s+\S+\s+(\d+\S*)\s/) {
 				$section=$1;
 				last;
 			}
 		}
 		# Failing that, we can try to get it from the filename.
 		if (! $section) {
-			($section)=$basename=~m/.*\.([1-9][^ ]*)/;
+			($section)=$basename=~m/.*\.([1-9]\S*)/;
 		}
 
 		# Now get the numeric component of the section.