diff options
| author | Dorner Thomas <tdorner@amadeus.net> | 2003-12-17 16:41:17 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-20 22:56:24 +0000 |
| commit | 1a6a79b784525259ef3f326dcae7b68a3aaebb75 (patch) | |
| tree | 1279f9c237e39260de78ce9ed0e7317e9c35973c /t/comp/parser.t | |
| parent | a18b03821cf93f26cfdbfc7f3fa4c6617a44f121 (diff) | |
| download | perl-1a6a79b784525259ef3f326dcae7b68a3aaebb75.tar.gz | |
Perl 5.8.3 patches from the BS2000 port
Message-ID: <6727B1DACFCDD311A757009027CA8D69044B673A@Ex02.inhouse.start.de>
p4raw-id: //depot/perl@21938
Diffstat (limited to 't/comp/parser.t')
| -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 ca191c2de0..c68f7ab5aa 100644 --- a/t/comp/parser.t +++ b/t/comp/parser.t @@ -128,7 +128,7 @@ EOF { local $SIG{__WARN__} = sub { }; # silence mandatory warning eval q{ my $x = -F 1; }; - like( $@, qr/syntax error .* near "F 1"/, "unknown filetest operators" ); + like( $@, qr/(?:syntax|parse) error .* near "F 1"/, "unknown filetest operators" ); is( eval q{ sub F { 42 } -F 1 }, '-42', |