perl 5.000perl-5.000

[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details.  Andy notes that;
 
Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge 
backup tapes from that era seem to be readable anymore.  I guess 13 years 
exceeds the shelf life for that backup technology :-(.
]

1 files changed, 0 insertions, 20 deletions

diff --git a/gettest b/gettest
deleted file mode 100755
index 565ae82bc6..0000000000
--- a/gettest
+++ /dev/null
@@ -1,20 +0,0 @@
-#!./perl
-
-    while (($name,$aliases,$addrtype,$length,@addrs) = gethostent) {
-	print $name,' ',$aliases,
-	  sprintf(" %d.%d.%d.%d\n",unpack('CCCC',$addrs[0]));
-	last if $i++ > 50;
-    }
-    <stdin>;
-    while (($name,$aliases,$addrtype,$net) = getnetent) {
-	print "$name $aliases $addrtype ",sprintf("%08lx",$net),"\n";
-    }
-    <stdin>;
-    while (($name,$aliases,$proto) = getprotoent) {
-	print "$name $aliases $proto\n";
-    }
-    <stdin>;
-    while (($name,$aliases,$port,$proto) = getservent) {
-	print "$name $aliases $port $proto\n";
-    }
-