Re: [PATCH] Re: [ID 20011118.128] installman chdir stuffs INC

Message-ID: <20011126230633.Q37621@plum.flirble.org>

p4raw-id: //depot/perl@13293

diff --git a/installman b/installman
index 4755162..2eaab1b 100755 (executable)
--- a/installman
+++ b/installman
@@ -83,7 +83,7 @@ while (<UTILS>) {
     next if /^#/;
     chomp;
     $_ = $1 if /#.*pod\s*=\s*(\S+)/;
-    my ($where, $what) = m|^(.*?)/(\S+)|;
+    my ($where, $what) = m|^(.*)/(\S+)|;
     pod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
     if ($has_man1dir) {
        if (my ($where2, $what2) = m|#.*link\s*=\s*(\S+)/(\S+)|) {