[ID 20010327.007] New warning from IO::Socket for sockatmark

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

diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm
index 4199da2..8d53136 100644 (file)
--- a/ext/IO/lib/IO/Socket.pm
+++ b/ext/IO/lib/IO/Socket.pm
@@ -29,7 +29,7 @@ $VERSION = "1.27";
 
 sub import {
     my $pkg = shift;
-    if ($_[0] eq 'sockatmark') { # not very extensible but for now, fast
+    if (@_ && $_[0] eq 'sockatmark') { # not very extensible but for now, fast
        Exporter::export_to_level('IO::Socket', 1, $pkg, 'sockatmark');
     } else {
        my $callpkg = caller;