@@ -79,7 +79,7 @@ BEGIN {
79
79
@cmpop , # include the numerical comparison operators.
80
80
' << >>' ,
81
81
' + -' ,
82
- ' * / %' , # highest prcedence operators.
82
+ ' * / %' , # highest precedence operators.
83
83
);
84
84
85
85
my @unop = qw( ! ~ + - ) ;
@@ -220,7 +220,7 @@ sub _count_ops {
220
220
# in a sensible order. Anything starting with PERL_IN_
221
221
# should be on the left in alphabetical order. Digits
222
222
# should be on the right (eg 0), and ties are resolved
223
- # by stripping non-alpha-numerc , thus removing underbar
223
+ # by stripping non-alpha-numeric , thus removing underbar
224
224
# parens, spaces, logical operators, etc, and then by
225
225
# lc comparison of the result.
226
226
sub _sort_terms {
@@ -343,7 +343,7 @@ sub _pt_as_str {
343
343
}
344
344
345
345
# Returns the precedence of an operator, returns 0 if there is no token
346
- # or the next token is not an op, or confesss if it encounters an op it does not
346
+ # or the next token is not an op, or confess if it encounters an op it does not
347
347
# know.
348
348
sub _precedence {
349
349
my $self = shift ;
@@ -1657,7 +1657,7 @@ conditional blocks which include the line. Each line has its own copy of the
1657
1657
conditions it was operated on currently, but that may change so dont alter
1658
1658
this data. The inner arrays may contain more than one element. If so then the
1659
1659
line is part of an "#else" or "#elsif" and the clauses should be considered to
1660
- be a conjuction when considering "when is this line included", however when
1660
+ be a conjunction when considering "when is this line included", however when
1661
1661
considered as part of an if/elsif/else, each added clause represents the most
1662
1662
recent condition. In the following you can see how:
1663
1663
0 commit comments