diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-05-03 20:48:53 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-05-03 20:48:53 +0000 |
| commit | 15332aa2e27db64214f1f262a8d864b0e75d266a (patch) | |
| tree | ee1b37805bee0ed0dd186995c6505cd85e967baa /t/io | |
| parent | e2ab214b14c9284fa9074628aa22936a93dab84f (diff) | |
| download | perl-15332aa2e27db64214f1f262a8d864b0e75d266a.tar.gz | |
add test for change #22776 ("open m" crashes Perl)
p4raw-link: @22776 on //depot/perl: e2ab214b14c9284fa9074628aa22936a93dab84f
p4raw-id: //depot/perl@22777
Diffstat (limited to 't/io')
| -rwxr-xr-x | t/io/open.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/io/open.t b/t/io/open.t index 82ac2f3aaa..18718548d6 100755 --- a/t/io/open.t +++ b/t/io/open.t @@ -12,7 +12,7 @@ use Config; $Is_VMS = $^O eq 'VMS'; $Is_MacOS = $^O eq 'MacOS'; -plan tests => 105; +plan tests => 106; my $Perl = which_perl(); @@ -306,3 +306,8 @@ SKIP: { 'bad layer ":c" failure'); } +# [perl #28986] "open m" crashes Perl + +fresh_perl_like('open m', qr/^Search pattern not terminated at/, + { stderr => 1 }, 'open m test'); + |