From 7feaa10c2dd3d47e3f70d856ee0a90782bd604fa Mon Sep 17 00:00:00 2001
From: Simon Cozens <simon@netthink.co.uk>
Date: Wed, 16 May 2001 19:02:08 +0100
Subject: Re: [PATCH] Abstract "utility" information from installman
 Message-ID: <20010516180208.A6458@netthink.co.uk>

p4raw-id: //depot/perl@10135
---
 installman | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'installman')

diff --git a/installman b/installman
index b948c78549..4a6416323c 100755
--- a/installman
+++ b/installman
@@ -80,9 +80,9 @@ while (<UTILS>) {
     next if /^#/;
     chomp;
     $_ = $1 if /#.*pod\s*=\s*(\S+)/;
-    my ($where, $what) = m|^(.*)/(.*)|;
+    my ($where, $what) = m|^(.*?)/(\S+)|;
     runpod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
-    if (($where, $what) = /#.*link\s*=\s*(\S+)/) {
+    if (($where, $what) = m|#.*link\s*=\s*(\S+)/(\S+)| {
         runpod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
     }
 }
-- 
cgit v1.2.1