[sepia] 33/63: fix segfault

[Hilko Bengen]

This is an automated email from the git hooks/post-receive script.

bengen pushed a commit to branch master
in repository sepia.

commit ce62b76b432ad8882a2df9e4c51db069038d5fdd
Author: Sean O'Rourke <seano at cs.ucla.edu>
Date:   Tue Jun 24 08:12:44 2008 -0700

    fix segfault
---
 lib/Sepia.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/Sepia.pm b/lib/Sepia.pm
index f1a9faf..42dedc2 100644
--- a/lib/Sepia.pm
+++ b/lib/Sepia.pm
@@ -100,10 +100,9 @@ sub repl_size
             my $fmt = '%-'.$len."s%10d\n";
             print 'Var', ' ' x ($len + 2), "Bytes\n";
             print '-' x ($len-4), ' ' x 9, '-' x 5, "\n";
-            local $SIG{__WARN__} = sub {};
             for (@who) {
                 next unless /^[\$\@\%\&]/; # skip subs.
-                # print STDERR "no strict; package $pkg; Devel::Size::total_size \\$_;";
+                next if $_ eq '%SIG';
                 my $res = eval "no strict; package $pkg; Devel::Size::total_size \\$_;";
                 print "aiee: $@\n" if $@;
                 printf $fmt, $_, $res;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/sepia.git