This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct one misspelled variable name
authorJames E Keenan <jkeenan@cpan.org>
Sun, 20 Dec 2020 22:14:32 +0000 (17:14 -0500)
committerKarl Williamson <khw@cpan.org>
Sun, 20 Dec 2020 23:22:07 +0000 (16:22 -0700)
Correct one other typo

lib/B/Deparse-core.t

index 991412a..80dbc05 100644 (file)
@@ -44,7 +44,7 @@ use B::Deparse;
 my $deparse = new B::Deparse;
 
 my %SEEN;
-my %SEEN_STRENGH;
+my %SEEN_STRENGTH;
 
 # for a given keyword, create a sub of that name, then
 # deparse "() = $expr", and see if it matches $expected_expr
@@ -135,7 +135,7 @@ my %infix_map = qw(and && or ||);
 
 sub do_infix_keyword {
     my ($keyword, $parens, $strong) = @_;
-    $SEEN_STRENGH{$keyword} = $strong;
+    $SEEN_STRENGTH{$keyword} = $strong;
     my $expr = "(\$a $keyword \$b)";
     my $nkey = $infix_map{$keyword} // $keyword;
     my $expr = "(\$a $keyword \$b)";
@@ -158,7 +158,7 @@ sub do_infix_keyword {
     testit $keyword, "$keyword(\$a, \$b)", "$keyword(\$a, \$b);", 1;
 }
 
-# test a keyword that is atandard op/function, like 'index(...)'.
+# test a keyword that is a standard op/function, like 'index(...)'.
 # narg    - how many args to test it with
 # $parens - "foo $a, $b" is deparsed as "foo($a, $b)"
 # $dollar - an extra '$_' arg will appear in the deparsed output
@@ -168,7 +168,7 @@ sub do_infix_keyword {
 sub do_std_keyword {
     my ($keyword, $narg, $parens, $dollar, $strong) = @_;
 
-    $SEEN_STRENGH{$keyword} = $strong;
+    $SEEN_STRENGTH{$keyword} = $strong;
 
     for my $core (0,1) { # if true, add CORE:: to keyword being deparsed
       for my $lexsub (0,1) { # if true, define lex sub
@@ -413,7 +413,7 @@ SKIP:
                diag("keyword '$key' seen in $file, but not tested here!!");
                $pass = 0;
            }
-           if (exists $SEEN_STRENGH{$key} and $SEEN_STRENGH{$key} != $strength) {
+           if (exists $SEEN_STRENGTH{$key} and $SEEN_STRENGTH{$key} != $strength) {
                diag("keyword '$key' strengh as seen in $file doen't match here!!");
                $pass = 0;
            }