diff options
| author | Russ Allbery <rra@stanford.edu> | 2001-11-16 01:44:21 -0800 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-11-16 16:46:39 +0000 |
| commit | 707d6a875897233ed14e755e43663ac7efd262ad (patch) | |
| tree | 6ad2d55d8923624fdb6f1f9c7cf741b1ccf48220 /lib | |
| parent | 1d7919c50afce3283e44737a6095660e99d8c972 (diff) | |
| download | perl-707d6a875897233ed14e755e43663ac7efd262ad.tar.gz | |
Re: [h.m.brand@hccnet.nl: Installman problems]
Message-Id: <yln11mwqyy.fsf@windlord.stanford.edu>
p4raw-id: //depot/perl@13052
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/ParseLink.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Pod/ParseLink.pm b/lib/Pod/ParseLink.pm index e812f2400f..cced9759a5 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 { |