also support import

Changes

@@ -1,6 +1,8 @@
 Revision history for {{$dist->name}}
 
 {{$NEXT}}
+    - Fix overeager warnings disablement (Thanks Graham Knop for fix and pjfl
+      for bug report)
 
 0.001001  2012-11-17 16:31:55 CST6CDT
     - Put MetaYAML back in dist

lib/warnings/illegalproto.pm

@@ -27,6 +27,15 @@ BEGIN {
   *_ILLEGALPROTO_SUPPORTED = $] >= 5.012 ? sub(){1} : sub(){0};
 }
 
+sub import {
+   if (_ILLEGALPROTO_SUPPORTED) {
+      warnings->import('illegalproto')
+   }
+   else {
+      ${^WARNING_BITS} |= $WARN
+   }
+}
+
 sub unimport {
    if (_ILLEGALPROTO_SUPPORTED) {
       warnings->unimport('illegalproto')

t/import.t

@@ -0,0 +1,14 @@
+use strict;
+use Test::More;
+
+use warnings::illegalproto;
+
+$SIG{__WARN__} = sub { die $_[0] };
+
+my $x = eval "sub (frew) { 1 }";
+like $@, qr/prototype/, 'dies on "bad" prototype';
+
+eval 'my $f = undef . "foo"';
+is $@, '', 'other warnings not enabled';
+
+done_testing;