Re: [perl #5025] #line directive explination wrong

Message-ID: <20030706222446.GL7506@geeknest.com>

p4raw-id: //depot/perl@20040

diff --git a/pod/perlsyn.pod b/pod/perlsyn.pod
index d5fe7fb..608c0cd 100644 (file)
--- a/pod/perlsyn.pod
+++ b/pod/perlsyn.pod
@@ -638,11 +638,11 @@ C preprocessors: it matches the regular expression
     # example: '# line 42 "new_filename.plx"'
     /^#    \s*
       line \s+ (\d+)   \s*
-      (?:\s"([^"]+)")? \s*
+      (?:\s("?)([^"]+)\2)? \s*
      $/x
 
-with C<$1> being the line number for the next line, and C<$2> being
-the optional filename (specified within quotes).
+with C<$1> being the line number for the next line, and C<$3> being
+the optional filename (specified with or without quotes).
 
 There is a fairly obvious gotcha included with the line directive:
 Debuggers and profilers will only show the last source line to appear