Message-Id: <3C7E1CED.7000307@stason.org>
authorStas Bekman <stas@stason.org>
Thu, 28 Feb 2002 20:05:01 +0000 (04:05 +0800)
committerAbhijit Menon-Sen <ams@wiw.org>
Thu, 28 Feb 2002 11:26:47 +0000 (11:26 +0000)
p4raw-id: //depot/perl@14910

lib/Pod/Html.pm

index 9df3172..91f78f6 100644 (file)
@@ -1317,7 +1317,7 @@ sub process_pre {
 
     my $ltrs = '\w';
     my $gunk = '/#~:.?+=&%@!\-';
-    my $punc = '.:?\-';
+    my $punc = '.:!?\-;';
     my $any  = "${ltrs}${gunk}${punc}";
 
     $rest =~ s{
@@ -1325,14 +1325,17 @@ sub process_pre {
         (                           # begin $1  {
           $urls     :               # need resource and a colon
          (?!:)                     # Ignore File::, among others.
-          [$any] +?                 # followed by on or more
-                                    #  of any valid character, but
-                                    #  be conservative and take only
-                                    #  what you need to....
+          [$any] +?                 # followed by one or more of any valid
+                                    #   character, but be conservative and
+                                    #   take only what you need to....
         )                           # end   $1  }
         (?=                         # look-ahead non-consumptive assertion
-                [$punc]*            # either 0 or more puntuation
-                [^$any]             #   followed by a non-url char
+                [$punc]*            # either 0 or more punctuation
+                (?:                 #   followed
+                    [^$any]         #   by a non-url char
+                    |               #   or
+                    $               #   end of the string
+                )                   #
             |                       # or else
                 $                   #   then end of the string
         )