From: David Dyck <david.dyck@fluke.com>
Date: Tue, 27 Mar 2001 15:16:24 +0000 (-0800)
Subject: [ID 20010327.007] New warning from IO::Socket for sockatmark
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e822bc79939bd118df13b37c051c40f47f9ae5c6;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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;