diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-10-30 13:27:39 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-10-30 13:27:39 +0000 |
commit | 2a8ee23279873759693fa83eca279355db2b665c (patch) | |
tree | 36f301b5896ed58235db7832e89d95853eb32b10 /t | |
parent | 93fb2ac393172fc3e2c14edb20b718309198abbc (diff) | |
download | perl-2a8ee23279873759693fa83eca279355db2b665c.tar.gz |
There can be multiple yacc/bison errors.
p4raw-id: //depot/cfgperl@2143
Diffstat (limited to 't')
-rwxr-xr-x | t/op/misc.t | 2 | ||||
-rwxr-xr-x | t/pragma/subs.t | 2 | ||||
-rwxr-xr-x | t/pragma/warning.t | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index a8ba4c89ef..f57531c9bd 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -38,7 +38,7 @@ for (@prgs){ $results =~ s/\n+$//; # bison says 'parse error' instead of 'syntax error', # various yaccs may or may not capitalize 'syntax'. - $results =~ s/^(syntax|parse) error/syntax error/mi; + $results =~ s/^(syntax|parse) error/syntax error/mig; $expected =~ s/\n+$//; if ( $results ne $expected){ print STDERR "PROG: $switch\n$prog\n"; diff --git a/t/pragma/subs.t b/t/pragma/subs.t index 4a6f09b639..6ebbf78a46 100755 --- a/t/pragma/subs.t +++ b/t/pragma/subs.t @@ -57,7 +57,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/syntax error/mi; + $results =~ s/^(syntax|parse) error/syntax error/mig; $expected =~ s/\n+$//; my $prefix = ($results =~ s/^PREFIX\n//) ; if ( $results =~ s/^SKIPPED\n//) { diff --git a/t/pragma/warning.t b/t/pragma/warning.t index cc4c2dd975..653e2be3a5 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/syntax error/mi; + $results =~ s/^(syntax|parse) error/syntax error/mig; $expected =~ s/\n+$//; my $prefix = ($results =~ s/^PREFIX\n//) ; # any special options? (OPTIONS foo bar zap) |