From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 1 Feb 2006 15:51:35 +0000 (+0000)
Subject: Avoid "Prototype mismatch" warnings with autouse.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=480f1286e775c8376e3c5f6659fe9380064ae39f;p=p5sagit%2Fp5-mst-13.2.git

Avoid "Prototype mismatch" warnings with autouse.

p4raw-id: //depot/perl@27034
---

diff --git a/lib/autouse.pm b/lib/autouse.pm
index 67c4e01..30eef50 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"