From da827d7577b10aa5ee5d091b5f1e6a90a3adefaa Mon Sep 17 00:00:00 2001 From: "Peter J. Acklam" Date: Thu, 6 Jan 2011 23:10:05 -0800 Subject: [PATCH] Fix typos (spelling errors) in cpan/Params-Check/*. # New Ticket Created by (Peter J. Acklam) # Please include the string: [perl #81844] # in the subject line of all future correspondence about this issue. # Signed-off-by: Chris 'BinGOs' Williams --- cpan/Params-Check/lib/Params/Check.pm | 6 +++--- cpan/Params-Check/t/01_Params-Check.t | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/cpan/Params-Check/lib/Params/Check.pm b/cpan/Params-Check/lib/Params/Check.pm index 7348cbc..7ffe23c 100644 --- a/cpan/Params-Check/lib/Params/Check.pm +++ b/cpan/Params-Check/lib/Params/Check.pm @@ -359,7 +359,7 @@ sub check { ### we have the fatal flag toggled. croak(__PACKAGE__->last_error) if ($wrong || $warned) && $WARNINGS_FATAL; - ### done with our loop... if $wrong is set, somethign went wrong + ### done with our loop... if $wrong is set, something went wrong ### and the user is already informed, just return... return if $wrong; @@ -435,7 +435,7 @@ sub allow { ### loop over the elements, see if one of them says the ### value is OK - ### also, short-cicruit when possible + ### also, short-circuit when possible for ( @{$_[1]} ) { return 1 if allow( $_[0], $_ ); } @@ -629,7 +629,7 @@ the user input to lowercase, but instead expect them to be in the case the template provided. This is useful when you want to use similar keys with different casing in your templates. -Understand that this removes the case-insensitivy feature of this +Understand that this removes the case-insensitivity feature of this module. Default is 0; diff --git a/cpan/Params-Check/t/01_Params-Check.t b/cpan/Params-Check/t/01_Params-Check.t index 06f3048..c0ff79c 100644 --- a/cpan/Params-Check/t/01_Params-Check.t +++ b/cpan/Params-Check/t/01_Params-Check.t @@ -244,7 +244,7 @@ use constant TRUE => sub { 1 }; my $text = "Key 'foo' ($val) is of invalid type"; my $re = quotemeta $text; - ok(!$rv, "check() fails with unalllowed value" ); + ok(!$rv, "check() fails with unallowed value" ); like(last_error(), qr/$re/, " $text" ); } } @@ -348,7 +348,7 @@ use constant TRUE => sub { 1 }; "right caller with CALLER_DEPTH" ); } -### test: #23824: Bug concering the loss of the last_error +### test: #23824: Bug concerning the loss of the last_error ### message when checking recursively. { ok( 1, "Test last_error() on recursive check() call" ); -- 2.7.4