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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
From: Jan Wagner <waja@cyconet.org>
Subject: fix typo. and whitespaces
Last-Update: 2014-01-25
Reviewed-By: Sebastien Badia <seb@sebian.fr>
--- a/asused.PL
+++ b/asused.PL
@@ -1135,7 +1135,7 @@ sub pStatus {
# print warnings if any
unless($opt{'summary'}) {
if($sWarning) {
- printf "\nPay attension on this WARNINGS:\n";
+ printf "\nPay attention on this WARNINGS:\n";
printf $sWarning;
}
}
--- a/NCC/CountryCode/CountryCode.pm
+++ b/NCC/CountryCode/CountryCode.pm
@@ -246,12 +246,12 @@ country names.
The isCC() method verifies, that passed country code is a legal one and returns
it in upper case. Otherwise it returns empty string.
-The getCCs() method returns the reference to the internal hash, that containes
+The getCCs() method returns the reference to the internal hash, that contains
all the country codes with corresponding them country names.
=head1 BUGS
-In addition to the country codes defined by ISO3166 standart this module also
+In addition to the country codes defined by ISO3166 standard this module also
introduce 'UK' as a synonim for 'GB' and 'EU' as additional 'virtual' name for
the Europe itself.
--- a/Whois/ArinWhois/ArinWhois.pm
+++ b/Whois/ArinWhois/ArinWhois.pm
@@ -108,7 +108,7 @@ sub SplitResult {
unless($result);
foreach my $error (keys(%WHOIS_ERROR)) {
- # Respond containes one of the errors codes
+ # Respond contains one of the errors codes
# from Whois server
return $self->error($error, $ERROR{$error})
if($result =~ m/$WHOIS_ERROR{$error}/m);
--- a/Whois/RipeWhois/FormatMode/FormatMode.pm
+++ b/Whois/RipeWhois/FormatMode/FormatMode.pm
@@ -33,7 +33,7 @@
# External Programs : None
# Problems : None known
# To Do : None
-# Comments : This module provided only to ease the transition to the
+# Comments : This module provided only to ease the transition to the
# RIPE Whois v3
# $Id: FormatMode.pm,v 1.5 2001/10/10 15:23:31 timur Exp $
#------------------------------------------------------------------------------
@@ -44,7 +44,7 @@ use vars qw($VERSION @ISA);
require Exporter;
-@ISA = qw(Exporter);
+@ISA = qw(Exporter);
$VERSION = '1.03';
@@ -72,7 +72,7 @@ my %shortattr = (
'*wd' => 'withdrawn', '*zc' => 'zone-c',
);
-# Hash of hashes, which containes the order of the fields for the
+# Hash of hashes, which contains the order of the fields for the
# most common RIPE Whois objects.
my %class = (
'aut-num' => {
@@ -127,7 +127,7 @@ my %class = (
'changed' => 10,
'source' => 11
},
-
+
'role' => {
'role' => 1,
'address' => 2,
@@ -172,10 +172,10 @@ sub short2long {
sub sort_order {
my($class) = @_;
-
+
# Return nothing if nothing was passed
return unless($class);
- # Return the list of weights, corresponding to the
+ # Return the list of weights, corresponding to the
# class, or nothing, if we don't know about it
return $class{$class};
}
@@ -190,14 +190,14 @@ sub sort_order {
sub sort_by_field {
my($class, $hash) = @_;
-
+
# Get the order of the fields for the class
my $type = sort_order($class);
# Get the list of the fields
my @keys = keys(%{$hash});
# Return immedeately, if there is no defined sorting order.
return @keys unless($type && (ref($type) eq 'HASH'));
-
+
# Sort the list of key fields according to the predefined
# order.
my @list = sort {
@@ -210,7 +210,7 @@ sub sort_by_field {
my $t_beta = defined($type->{$beta}) ? $type->{$beta} : 1000;
# Compare two weights
$t_alpha <=> $t_beta;
-
+
} @keys;
# Return the result
return @list;
@@ -233,10 +233,10 @@ sub Filter {
$obj =~ s/\n[ \t\+]\s*/ /mg;
# Zap spaces and tabs
$obj =~ s/[ \t]+/ /mg;
-
+
# Return, if sorting is not required
return $obj unless($need_sorting);
-
+
# We need to sort fields as well
my %obj = ();
my @obj = ();
@@ -256,8 +256,8 @@ sub Filter {
}
# Return unsorted object, if we don't know the sorting order
return $obj unless(sort_order($key_field));
-
- # Sort the fields acording to the RIPE DB v2
+
+ # Sort the fields acording to the RIPE DB v2
foreach my $field (sort_by_field($key_field, \%obj)) {
foreach my $line (@{$obj{$field}}) {
push(@obj, sprintf("%-14s%s", "$field:", $line));
--- a/Whois/RipeWhois/RipeWhois.pm
+++ b/Whois/RipeWhois/RipeWhois.pm
@@ -167,7 +167,7 @@ sub SplitResult {
# Did we get any errors from the server
foreach my $error (keys(%WHOIS_ERROR)) {
- # Respond containes one of the errors codes
+ # Respond contains one of the errors codes
# from Whois server
return $self->error($error, $ERROR{$error})
if($result =~ m/$WHOIS_ERROR{$error}/m);
|
