Merge pull request #22 from tomhukins/silence_test_warning

Silence a warning properly
Dual-Life · Mar 9, 2015 · 935183d · 935183d
2 parents 57f6365 + fdecddb
commit 935183d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t/refaddr.t b/t/refaddr.t
@@ -21,7 +21,7 @@ my $t;
 foreach my $r ({}, \$t, [], \*F, sub {}) {
   my $n = "$r";
   $n =~ /0x(\w+)/;
-  my $addr = do { local $^W; hex $1 };
+  my $addr = do { no warnings; hex $1 };
   my $before = ref($r);
   is( refaddr($r), $addr, $n);
   is( ref($r), $before, $n);