hopefully not necessary soon

diff --git a/htdocs/docs/Net-Whois-0.23-ivan1.patch b/htdocs/docs/Net-Whois-0.23-ivan1.patch
new file mode 100644 (file)
index 0000000..73de0de
--- /dev/null
+++ b/htdocs/docs/Net-Whois-0.23-ivan1.patch
@@ -0,0 +1,42 @@
+# This is a patch for Net-Whois-0.23/Whois.pm to update it to Net-Whois-0.23-ivan1/Whois.pm.
+# It was generated by makepatch 1.93 (2.0BETA) on Tue Aug  3 02:40:13 1999.
+#
+# To apply this patch, chdir to source directory Net-Whois-0.23/Whois.pm and enter
+#
+#     patch -p1 -N < <this-file>
+
+exit
+# End of preamble.
+
+# Patch input follows.
+__DATA__
+Index: Net-Whois-0.23-ivan1/Whois.pm
+Prereq:  1.13 
+#######  => 
+*** Net-Whois-0.23/Whois.pm    Fri Jan 29 22:00:46 1999
+--- Net-Whois-0.23-ivan1/Whois.pm      Tue Aug  3 02:33:57 1999
+***************
+*** 216,224 ****
+      my %info;
+  
+      do {
+!      $t = shift @text;
+!     } while (@text && ($t eq '' || $t =~ /^registrant:/i));
+!     @info{'NAME', 'TAG'} = ($t =~ /^(.*)\s+\((\S+)\)$/)
+       or return;
+  
+      @t = ();
+--- 216,225 ----
+      my %info;
+  
+      do {
+!       $t = shift @text;
+!     } while ( @text && ($t !~ /^registrant:/i ) );
+!     $t = shift @text or return;
+!     @info{'NAME', 'TAG'} = ( $t =~ /^(.*)\s+\((\S+)\)$/)
+       or return;
+  
+      @t = ();
+
+
+End of Patch.