Change 13461: Must wipe out the memory of real Socket before starting

[Jarkko Hietaniemi]

Change 13461 by jhi@alpha on 2001/12/04 14:49:45

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

Affected files ...

.... //depot/perl/lib/Net/t/config.t#5 edit

Differences ...

==== //depot/perl/lib/Net/t/config.t#5 (text) ====
Index: perl/lib/Net/t/config.t
--- perl/lib/Net/t/config.t.~1~ Tue Dec  4 08:00:05 2001
+++ perl/lib/Net/t/config.t     Tue Dec  4 08:00:05 2001
@@ -8,6 +8,8 @@
     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;
     }
End of Patch.