Changeset 3271 for lang/perl/Archive-Lha

Timestamp:

12/18/07 16:34:06 (12 months ago)

Author:

charsbar

Message:

Archive-Lha: suppress redefine warnings

Files:

• lang/perl/Archive-Lha/trunk/lib/Archive/Lha/Tree.pm (modified) (1 diff)

lang/perl/Archive-Lha/trunk/lib/Archive/Lha/Tree.pm

@@ -11 +11 @@
 
   {
-    no strict 'refs';
+    no strict 'refs'; no warnings 'redefine';
     foreach my $name ( qw( left right ) ) {
       *{"$class\::$name"} = sub {