From e3f252493cc65ecbc3b6bb0b53af0358cb496450 Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Wed, 4 Apr 2001 00:51:47 +0000
Subject: [PATCH] r459: use predefined character classes for readability

---
 dh_installman | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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.
-- 
2.39.2