diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-02-01 15:51:35 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-02-01 15:51:35 +0000 |
| commit | 480f1286e775c8376e3c5f6659fe9380064ae39f (patch) | |
| tree | 9b6aeb49b97e805387b12722840ce57624d140f1 /lib | |
| parent | 17ef079d479b0add6fb451179e042661b68a411c (diff) | |
| download | perl-480f1286e775c8376e3c5f6659fe9380064ae39f.tar.gz | |
Avoid "Prototype mismatch" warnings with autouse.
p4raw-id: //depot/perl@27034
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/autouse.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/autouse.pm b/lib/autouse.pm index 67c4e01d1d..30eef50d63 100644 --- a/lib/autouse.pm +++ b/lib/autouse.pm @@ -3,7 +3,7 @@ package autouse; #use strict; # debugging only use 5.003_90; # ->can, for my $var -$autouse::VERSION = '1.05'; +$autouse::VERSION = '1.06'; $autouse::DEBUG ||= 0; @@ -53,7 +53,7 @@ sub import { require $pm; vet_import $module; } - no warnings 'redefine'; + no warnings qw(redefine prototype); *$closure_import_func = \&{"${module}::$closure_func"}; print "autousing $module; " ."imported $closure_func as $closure_import_func\n" |