From: Russ Allbery <rra@stanford.edu>
Date: Fri, 16 Nov 2001 09:44:21 +0000 (-0800)
Subject: Re: [h.m.brand@hccnet.nl: Installman problems]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=707d6a875897233ed14e755e43663ac7efd262ad;p=p5sagit%2Fp5-mst-13.2.git

Re: [h.m.brand@hccnet.nl: Installman problems]
Message-Id: <yln11mwqyy.fsf@windlord.stanford.edu>

p4raw-id: //depot/perl@13052
---

diff --git a/lib/Pod/ParseLink.pm b/lib/Pod/ParseLink.pm
index e812f24..cced975 100644
--- a/lib/Pod/ParseLink.pm
+++ b/lib/Pod/ParseLink.pm
@@ -55,8 +55,8 @@ sub _parse_section {
     # 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 {