X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/9f81bf163fceffa4234152591651ddc790e7a923..1e5f02b39a83c2923bcd16343fa6a8ca8ea215f2:/t/op/svleak.t

diff --git a/t/op/svleak.t b/t/op/svleak.t
index 319866f..83e72c3 100644
--- a/t/op/svleak.t
+++ b/t/op/svleak.t
@@ -15,7 +15,7 @@ BEGIN {
 
 use Config;
 
-plan tests => 49;
+plan tests => 50;
 
 # run some code N times. If the number of SVs at the end of loop N is
 # greater than (N-1)*delta at the end of loop 1, we've got a leak
@@ -332,3 +332,6 @@ leak(2, 0, sub {
     }, 'wide fatal warning does not make printf leak');
     close $fh or die $!;
 }
+
+
+leak(2,0,sub{eval{require untohunothu}}, 'requiring nonexistent module');