htdocs/docs/Net-Whois-0.23-ivan1.patch

   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.
   3 #
   4 # To apply this patch, chdir to source directory Net-Whois-0.23/Whois.pm and enter
   5 #
   6 #     patch -p1 -N < <this-file>
   7
   8 exit
   9 # End of preamble.
  10
  11 # Patch input follows.
  12 __DATA__
  13 Index: Net-Whois-0.23-ivan1/Whois.pm
  14 Prereq:  1.13
  15 #######  =>
  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
  18 ***************
  19 *** 216,224 ****
  20       my %info;
  21
  22       do {
  23 !       $t = shift @text;
  24 !     } while (@text && ($t eq '' || $t =~ /^registrant:/i));
  25 !     @info{'NAME', 'TAG'} = ($t =~ /^(.*)\s+\((\S+)\)$/)
  26         or return;
  27
  28       @t = ();
  29 --- 216,225 ----
  30       my %info;
  31
  32       do {
  33 !       $t = shift @text;
  34 !     } while ( @text && ($t !~ /^registrant:/i ) );
  35 !     $t = shift @text or return;
  36 !     @info{'NAME', 'TAG'} = ( $t =~ /^(.*)\s+\((\S+)\)$/)
  37         or return;
  38
  39       @t = ();
  40
  41
  42 End of Patch.