diff options
| author | Casey West <casey@geeknest.com> | 2003-07-06 14:24:46 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-06 21:11:20 +0000 |
| commit | 7b6e93a8eae54981596267b3f4e1a1710fdea071 (patch) | |
| tree | 1461839adc58276d2844efbbe95f4593d49da45d /pod/perlsyn.pod | |
| parent | 5c5c25392cf3d45ab1348bbb9ec72ec01dfc72b5 (diff) | |
| download | perl-7b6e93a8eae54981596267b3f4e1a1710fdea071.tar.gz | |
Re: [perl #5025] #line directive explination wrong
Message-ID: <20030706222446.GL7506@geeknest.com>
p4raw-id: //depot/perl@20040
Diffstat (limited to 'pod/perlsyn.pod')
| -rw-r--r-- | pod/perlsyn.pod | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pod/perlsyn.pod b/pod/perlsyn.pod index d5fe7fbb5a..608c0cdf32 100644 --- 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 |