write.t: Eek! debugging code

Perl · Aug 17, 2012 · 40429ee · 40429ee
1 parent 216d99a
commit 40429ee
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/t/op/write.t b/t/op/write.t
@@ -1111,7 +1111,6 @@ format Potshriggley =
    Scalar::Util::weaken(my $x = *Potshriggley{FORMAT});
    undef *Potshriggley;
    is $x, undef, 'formats in subs do not leak';
-   use Devel::Peek; Dump $x if $x;
 }