1 # This is a patch for Net-Whois-0.23/Whois.pm to update it to Net-Whois-0.23-ivan1/Whois.pm.
2 # It was generated by makepatch 1.93 (2.0BETA) on Tue Aug 3 02:40:13 1999.
4 # To apply this patch, chdir to source directory Net-Whois-0.23/Whois.pm and enter
6 # patch -p1 -N < <this-file>
11 # Patch input follows.
13 Index: Net-Whois-0.23-ivan1/Whois.pm
16 *** Net-Whois-0.23/Whois.pm Fri Jan 29 22:00:46 1999
17 --- Net-Whois-0.23-ivan1/Whois.pm Tue Aug 3 02:33:57 1999
24 ! } while (@text && ($t eq '' || $t =~ /^registrant:/i));
25 ! @info{'NAME', 'TAG'} = ($t =~ /^(.*)\s+\((\S+)\)$/)
34 ! } while ( @text && ($t !~ /^registrant:/i ) );
35 ! $t = shift @text or return;
36 ! @info{'NAME', 'TAG'} = ( $t =~ /^(.*)\s+\((\S+)\)$/)