r1584: * Fix a bug in quoted section parsing that put the quotes in the parsed

[debhelper.git] / dh_installman

diff --git a/dh_installman b/dh_installman
index 84b9469a2aabf2f49a4c5ea274bc988d558fa191..9adca670aba1eee9f173339486df8b4ed7a8d4e7 100755 (executable)
--- a/dh_installman
+++ b/dh_installman
@@ -114,7 +114,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
                        open (IN, $page) or die "$page: $!";
                }
                while (<IN>) {
-                       if (/^\.TH\s+\S+\s+"?(\d+\S*)"?/) {
+                       if (/^\.TH\s+\S+\s+"?(\d+[^"\s]*)"?/) {
                                $section=$1;
                                last;
                        }