r459: use predefined character classes for readability

diff --git a/dh_installman b/dh_installman
index 9c71774f5f06b714edcb1ee938547e3325ab9106..e48ff6aaa636e35cec0800e75df05f1cb1db7800 100755 (executable)
--- 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.