Change 13052 by ams@lustre on 2001/11/16 16:46:39
Subject: Re: [[EMAIL PROTECTED]: Installman problems]
From: Russ Allbery <[EMAIL PROTECTED]>
Date: 16 Nov 2001 09:44:21 -0800
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/Pod/ParseLink.pm#2 edit
Differences ...
==== //depot/perl/lib/Pod/ParseLink.pm#2 (text) ====
Index: perl/lib/Pod/ParseLink.pm
--- perl/lib/Pod/ParseLink.pm.~1~ Fri Nov 16 10:00:06 2001
+++ perl/lib/Pod/ParseLink.pm Fri Nov 16 10:00:06 2001
@@ -55,8 +55,8 @@
# section. If there is no section and the name contains spaces, also
# guess that it's an old section link.
my ($page, $section) = split (/\s*\/\s*/, $link, 2);
- $section =~ s/^"\s*(.*?)\s*"$/$1/;
- if ($page =~ / / && !defined ($section)) {
+ $section =~ s/^"\s*(.*?)\s*"$/$1/ if $section;
+ if ($page && $page =~ / / && !defined ($section)) {
$section = $page;
$page = undef;
} else {
End of Patch.
