From b6647c896a8ae47b4b761022bdc3844a4b79ecc5 Mon Sep 17 00:00:00 2001 From: Sean O'Rourke Date: Mon, 12 May 2008 18:33:04 -0700 Subject: [PATCH] Strict sucks. --- lib/Sepia.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/Sepia.pm b/lib/Sepia.pm index ef6b1ff..8b4fa81 100644 --- a/lib/Sepia.pm +++ b/lib/Sepia.pm @@ -102,9 +102,9 @@ sub repl_size local $SIG{__WARN__} = sub {}; for (@who) { next unless /^[\$\@\%\&]/; # skip subs. - # print STDERR "package $pkg; Devel::Size::total_size \\$_;"; - my $res = eval "package $pkg; Devel::Size::total_size \\$_;"; - # next if $res == 0; + # print STDERR "no strict; package $pkg; Devel::Size::total_size \\$_;"; + my $res = eval "no strict; package $pkg; Devel::Size::total_size \\$_;"; + print "aiee: $@\n" if $@; printf $fmt, $_, $res; } }; -- 2.11.4.GIT