[sepia] 26/63: Fix stricture in Perl 5.10 (patch from upstream)

[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 0ad9309ff3ab60c3da3688662bf9eaac8685ce61
Author: Hilko Bengen <bengen at 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 <bengen at debian.org>  Tue, 17 Jun 2008 16:42:24 +0200
+ -- Hilko Bengen <bengen at 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