diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-07-12 03:01:29 +0300 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2006-07-12 06:53:22 +0000 |
| commit | 250d67eb8e42c118b44bb5437965a1f4a8a0d828 (patch) | |
| tree | c6ac564b44f2431bc6554af7cebdda630779f5c0 /t/comp | |
| parent | 6c20a8f90405579db59be381a23b6fc12073fdbd (diff) | |
| download | perl-250d67eb8e42c118b44bb5437965a1f4a8a0d828.tar.gz | |
z/OS: t/ - mostly EBCDIC fixes
Message-Id: <200607112101.k6BL1TGr321715@kosh.hut.fi>
p4raw-id: //depot/perl@28550
Diffstat (limited to 't/comp')
| -rw-r--r-- | t/comp/parser.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/comp/parser.t b/t/comp/parser.t index e1eff35c11..a05085879f 100644 --- a/t/comp/parser.t +++ b/t/comp/parser.t @@ -135,7 +135,7 @@ EOF { local $SIG{__WARN__} = sub { }; # silence mandatory warning eval q{ my $x = -F 1; }; - like( $@, qr/(?:syntax|parse) error .* near "F 1"/, "unknown filetest operators" ); + like( $@, qr/(?i:syntax|parse) error .* near "F 1"/, "unknown filetest operators" ); is( eval q{ sub F { 42 } -F 1 }, '-42', |