summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1998-10-30 13:27:39 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1998-10-30 13:27:39 +0000
commit2a8ee23279873759693fa83eca279355db2b665c (patch)
tree36f301b5896ed58235db7832e89d95853eb32b10 /t
parent93fb2ac393172fc3e2c14edb20b718309198abbc (diff)
downloadperl-2a8ee23279873759693fa83eca279355db2b665c.tar.gz
There can be multiple yacc/bison errors.
p4raw-id: //depot/cfgperl@2143
Diffstat (limited to 't')
-rwxr-xr-xt/op/misc.t2
-rwxr-xr-xt/pragma/subs.t2
-rwxr-xr-xt/pragma/warning.t2
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)