Added
Link Here
|
1 |
--- ./Piece.pm.orig Sun Feb 26 20:49:20 2006 |
2 |
+++ ./Piece.pm Sun Feb 26 20:49:50 2006 |
3 |
@@ -121,6 +121,7 @@ |
4 |
for my $method (@methods) { |
5 |
if (exists $_special_exports{$method}) { |
6 |
no strict 'refs'; |
7 |
+ no warnings 'redefine'; |
8 |
*{$to . "::$method"} = $_special_exports{$method}->($class); |
9 |
} else { |
10 |
$class->SUPER::export($to, $method); |