This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
write.t: Eek! debugging code
authorFather Chrysostomos <sprout@cpan.org>
Fri, 17 Aug 2012 23:54:40 +0000 (16:54 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 17 Aug 2012 23:54:40 +0000 (16:54 -0700)
t/op/write.t

index 3fafc20..7dcf1e0 100644 (file)
@@ -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;
 }