diff options
Diffstat (limited to 't/re/ReTest.pl')
-rw-r--r-- | t/re/ReTest.pl | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/t/re/ReTest.pl b/t/re/ReTest.pl index 41aae3a68b..fe92010c72 100644 --- a/t/re/ReTest.pl +++ b/t/re/ReTest.pl @@ -43,13 +43,4 @@ sub must_warn { like($w, qr/$pattern/, "Got warning /$pattern/"); } -sub may_not_warn { - my ($code, $name) = @_; - my $w; - local $SIG {__WARN__} = sub {$w .= join "" => @_}; - use warnings 'all'; - ref $code ? &$code : eval $code; - is($w, undef, $name) or diag("Got warning '$w'"); -} - 1; |