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

Message-Id: <200103272316.PAA21921@dd.tc.fluke.com>

p4raw-id: //depot/perl@9398

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;