io_dir.t tweak from Craig Berry.

[p5sagit/p5-mst-13.2.git] / ext / IO / IO.pm

diff --git a/ext/IO/IO.pm b/ext/IO/IO.pm
index eb78c8a..287671e 100644 (file)
--- a/ext/IO/IO.pm
+++ b/ext/IO/IO.pm
@@ -4,14 +4,18 @@ package IO;
 
 use XSLoader ();
 use Carp;
+use strict;
+use warnings;
 
-$VERSION = "1.20";
+our $VERSION = "1.20";
 XSLoader::load 'IO', $VERSION;
 
 sub import {
     shift;
-    warnings::warn('all', qq|parameterless "use IO" deprecated|)
-       if defined &warnings::warn && warnings::enabled('all');
+
+    warnings::warnif('deprecated', qq{parameterless "use IO" deprecated})
+        if @_ == 0 ;
+    
     my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);
 
     eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)