fix bug in processing L<> tags (from j.vavruska@post.cz)

p4raw-id: //depot/perl@4648

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index e9c640c..15757ec 100644 (file)
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -1487,7 +1487,7 @@ sub process_L {
        if (m,^(.*?)/"?(.*?)"?$,) {     # yes
            ($page, $section) = ($1, $2);
        } else {                        # no
-           ($page, $section) = ($str, "");
+           ($page, $section) = ($_, "");
        }
 
        # check if we know that this is a section in this page