diff options
| -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 6815f82911..a8ba4c89ef 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/\L$1 error/mi; + $results =~ s/^(syntax|parse) error/syntax error/mi; $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 ae208572f3..4a6f09b639 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/\L$1 error/mi; + $results =~ s/^(syntax|parse) error/syntax error/mi; $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 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) |