From d861347ee4d008eefde849f3419e6016bb2c677f Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 2 Nov 2012 12:36:23 -0700
Subject: [PATCH] svleak.t: Suppress warning

---
 t/op/svleak.t | 1 +
 1 file changed, 1 insertion(+)

diff --git a/t/op/svleak.t b/t/op/svleak.t
index db575b9..89c98a2 100644
--- a/t/op/svleak.t
+++ b/t/op/svleak.t
@@ -308,6 +308,7 @@ leak(2, 0, sub {
 {
     use warnings FATAL => 'all';
     leak(2, 0, sub {
+	no warnings 'once';
 	eval { printf uNopened 42 };
     }, 'printfing to bad handle under fatal warnings does not leak');
     open my $fh, ">", \my $buf;
-- 
1.8.3.1