From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 4 Dec 2001 14:49:45 +0000 (+0000)
Subject: Must wipe out the memory of real Socket before starting
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd556f37bb9f2fa5aff9923b66ab4b3214d847a0;p=p5sagit%2Fp5-mst-13.2.git

Must wipe out the memory of real Socket before starting
to use the new fake one.

p4raw-id: //depot/perl@13461
---

diff --git a/lib/Net/t/config.t b/lib/Net/t/config.t
index 41136ed..08df82b 100644
--- a/lib/Net/t/config.t
+++ b/lib/Net/t/config.t
@@ -8,6 +8,8 @@ BEGIN {
     if (!eval "require Socket") {
 	print "1..0 # no Socket\n"; exit 0;
     }
+    undef *{Socket::inet_aton};
+    undef *{Socket::inet_ntoa};
     if (ord('A') == 193 && !eval "require Convert::EBCDIC") {
         print "1..0 # EBCDIC but no Convert::EBCDIC\n"; exit 0;
     }