diff options
Diffstat (limited to 'dist/IO/t/io_taint.t')
| -rw-r--r-- | dist/IO/t/io_taint.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dist/IO/t/io_taint.t b/dist/IO/t/io_taint.t index 5740353e77..7c3ffe6881 100644 --- a/dist/IO/t/io_taint.t +++ b/dist/IO/t/io_taint.t @@ -33,7 +33,7 @@ chop(my $unsafe = <$x>); eval { kill 0 * $unsafe }; SKIP: { skip($^O) if $^O eq 'MSWin32' or $^O eq 'NetWare'; - like($@, '^Insecure'); + like($@, qr/^Insecure/); } $x->close; @@ -44,7 +44,7 @@ $x->untaint; ok(!$?); # Calling the method worked chop($unsafe = <$x>); eval { kill 0 * $unsafe }; -unlike($@,'^Insecure'); +unlike($@,qr/^Insecure/); $x->close; TODO: { |