Change 20040 by [EMAIL PROTECTED] on 2003/07/06 21:11:20
Subject: Re: [perl #5025] #line directive explination wrong
From: Casey West <[EMAIL PROTECTED]>
Date: Sun, 6 Jul 2003 18:24:46 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/pod/perlsyn.pod#39 edit
Differences ...
==== //depot/perl/pod/perlsyn.pod#39 (text) ====
Index: perl/pod/perlsyn.pod
--- perl/pod/perlsyn.pod#38~19558~ Sun May 18 14:40:10 2003
+++ perl/pod/perlsyn.pod Sun Jul 6 14:11:20 2003
@@ -638,11 +638,11 @@
# 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
End of Patch.
