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 (file)
--- 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;
     }