diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-10-28 10:33:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-10-28 10:33:36 +0000 |
| commit | 1c5a9b9c42bc8485ae6ca52cd66d75dd8e8d746f (patch) | |
| tree | 1839c83fd2f6b3ab48f030ac3ebd7b47a85bdb04 /t/pragma/warning.t | |
| parent | 6626bf4c3aa91ef215f0b8cedd0c4b2b8c79078f (diff) | |
| download | perl-1c5a9b9c42bc8485ae6ca52cd66d75dd8e8d746f.tar.gz | |
The "parse error" must be converted to "syntax error",
just matching it aint' enough.
p4raw-id: //depot/cfgperl@2108
Diffstat (limited to 't/pragma/warning.t')
| -rwxr-xr-x | t/pragma/warning.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/pragma/warning.t b/t/pragma/warning.t index e6c37fd069..cc4c2dd975 100755 --- a/t/pragma/warning.t +++ b/t/pragma/warning.t @@ -87,7 +87,7 @@ for (@prgs){ $results =~ s/\n%[A-Z]+-[SIWEF]-.*$// if $Is_VMS; # clip off DCL status msg # bison says 'parse error' instead of 'syntax error', # various yaccs may or may not capitalize 'syntax'. - $results =~ s/^(syntax|parse) error/\L$1 error/mi; + $results =~ s/^(syntax|parse) error/syntax error/mi; $expected =~ s/\n+$//; my $prefix = ($results =~ s/^PREFIX\n//) ; # any special options? (OPTIONS foo bar zap) |