blob: 73de0de118abe74f0ac6af34cb5572997924d503 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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.
|
