From 6ba4a02c70fd5e79f163ccde02a4f14c89dd8679 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 4 Aug 1999 12:39:14 +0000 Subject: [PATCH] hopefully not necessary soon --- htdocs/docs/Net-Whois-0.23-ivan1.patch | 42 ++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 htdocs/docs/Net-Whois-0.23-ivan1.patch diff --git a/htdocs/docs/Net-Whois-0.23-ivan1.patch b/htdocs/docs/Net-Whois-0.23-ivan1.patch new file mode 100644 index 000000000..73de0de11 --- /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 < + +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. -- 2.11.0