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 <se...@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 _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits