diff options
| author | Nicholas Clark <nick@ccl4.org> | 2000-11-16 16:48:25 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-16 23:23:29 +0000 |
| commit | 7817ba4dfeb754838a0da8f159127895c2dcf4fc (patch) | |
| tree | a06e32c671ea56ead9872f927a61e39108d163f8 /lib | |
| parent | c6b85e5d3668a89cd3bf3dfeefdf7162018b7166 (diff) | |
| download | perl-7817ba4dfeb754838a0da8f159127895c2dcf4fc.tar.gz | |
Re: 20001101.003 PDL
Message-ID: <20001116164825.B93487@plum.flirble.org>
p4raw-id: //depot/perl@7717
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 1e9ff45cc9..8599ddcc0a 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -109,7 +109,7 @@ sub Q ; # Global Constants -$XSUBPP_version = "1.9507"; +$XSUBPP_version = "1.9508"; my ($Is_VMS, $SymSet); if ($^O eq 'VMS') { @@ -859,10 +859,21 @@ print("#line 1 \"$filename\"\n") firstmodule: while (<$FH>) { if (/^=/) { + my $podstartline = $.; do { - next firstmodule if /^=cut\s*$/; + if (/^=cut\s*$/) { + print("/* Skipped embedded POD. */\n"); + printf("#line %d \"$filename\"\n", $. + 1) + if $WantLineNumbers; + next firstmodule + } + } while (<$FH>); - &Exit; + # At this point $. is at end of file so die won't state the start + # of the problem, and as we haven't yet read any lines &death won't + # show the correct line in the message either. + die ("Error: Unterminated pod in $filename, line $podstartline\n") + unless $lastline; } last if ($Module, $Package, $Prefix) = /^MODULE\s*=\s*([\w:]+)(?:\s+PACKAGE\s*=\s*([\w:]+))?(?:\s+PREFIX\s*=\s*(\S+))?\s*$/; |