This is an automated email from the git hooks/post-receive script. bengen pushed a commit to branch master in repository sepia.
commit 0ad9309ff3ab60c3da3688662bf9eaac8685ce61 Author: Hilko Bengen <ben...@debian.org> Date: Wed Jun 18 10:15:07 2008 +0200 Fix stricture in Perl 5.10 (patch from upstream) --- debian/changelog | 3 ++- lib/Sepia.pm | 2 ++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/debian/changelog b/debian/changelog index 48dae26..641821b 100644 --- a/debian/changelog +++ b/debian/changelog @@ -2,8 +2,9 @@ sepia (0.96.02-1) UNRELEASED; urgency=low * New Upstream Version * Depend on w3m-el since sepia-w3m.el will not compile otherwise. + * Fix stricture in Perl 5.10 (patch from upstream) - -- Hilko Bengen <ben...@debian.org> Tue, 17 Jun 2008 16:42:24 +0200 + -- Hilko Bengen <ben...@debian.org> Wed, 18 Jun 2008 10:14:48 +0200 sepia (0.96-2.1) unstable; urgency=low diff --git a/lib/Sepia.pm b/lib/Sepia.pm index ef6b1ff..9e56d74 100644 --- a/lib/Sepia.pm +++ b/lib/Sepia.pm @@ -82,6 +82,7 @@ sub repl_size print "Size requires Devel::Size.\n"; } else { *Sepia::repl_size = sub { + no strict 'refs'; ## XXX: C&P from repl_who: my ($pkg, $re) = split ' ', shift || ''; if ($pkg =~ /^\/(.*)\/?$/) { @@ -926,6 +927,7 @@ sub columnate sub repl_who { my ($pkg, $re) = split ' ', shift; + no strict; if ($pkg =~ /^\/(.*)\/?$/) { $pkg = $PACKAGE; $re = $1; -- 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