From ccf86ece8d6c7c04774f91fa4c1aaded6a5ad79c Mon Sep 17 00:00:00 2001 From: "Peter J. Acklam" Date: Thu, 6 Jan 2011 23:08:43 -0800 Subject: [PATCH] Fix typos (spelling errors) in cpan/IPC-Cmd/*. # New Ticket Created by (Peter J. Acklam) # Please include the string: [perl #81814] # in the subject line of all future correspondence about this issue. # Signed-off-by: Chris 'BinGOs' Williams --- cpan/IPC-Cmd/lib/IPC/Cmd.pm | 12 ++++++------ cpan/IPC-Cmd/t/01_IPC-Cmd.t | 10 +++++----- cpan/IPC-Cmd/t/02_Interactive.t | 2 +- 3 files changed, 12 insertions(+), 12 deletions(-) diff --git a/cpan/IPC-Cmd/lib/IPC/Cmd.pm b/cpan/IPC-Cmd/lib/IPC/Cmd.pm index 3ac438e..0468e50 100644 --- a/cpan/IPC-Cmd/lib/IPC/Cmd.pm +++ b/cpan/IPC-Cmd/lib/IPC/Cmd.pm @@ -362,7 +362,7 @@ sub install_layered_signal { my $sig_handler = sub { my ($called_sig_name, @sig_param) = @_; - # $s is a closure refering to real signal name + # $s is a closure referring to real signal name # for which this handler is being installed. # it is used to distinguish between # real signal handlers and aliased signal handlers @@ -376,7 +376,7 @@ sub install_layered_signal { # ABRT and IOT) # # initial signal handler for aliased signal - # calles some other signal handler which + # calls some other signal handler which # should not execute the same handler_code again if ($called_sig_name eq $signal_name) { $handler_code->($signal_name); @@ -883,7 +883,7 @@ sub run_forked { # # defined $child_pid_pid means child's child # has not died but nobody is waiting for it, - # killing it brutaly. + # killing it brutally. # if ($child_child_pid) { kill_gently($child_child_pid); @@ -1201,7 +1201,7 @@ sub _open3_run { $kidout->autoflush(1) if UNIVERSAL::can($kidout, 'autoflush'); $kiderror->autoflush(1) if UNIVERSAL::can($kiderror, 'autoflush'); - ### add an epxlicit break statement + ### add an explicit break statement ### code courtesy of theorbtwo from #london.pm my $stdout_done = 0; my $stderr_done = 0; @@ -1536,7 +1536,7 @@ sub _split_like_shell_win32 { Carp::carp(loc("No such FD: '%1'", $name)), next ); ### MUST use the 2-arg version of open for dup'ing for - ### 5.6.x compatibilty. 5.8.x can use 3-arg open + ### 5.6.x compatibility. 5.8.x can use 3-arg open ### see perldoc5.6.2 -f open for details open $glob, $redir . fileno($fh) or ( Carp::carp(loc("Could not dup '$name': %1", $!)), @@ -1570,7 +1570,7 @@ sub _split_like_shell_win32 { Carp::carp(loc("No such FD: '%1'", $name)), next ); ### MUST use the 2-arg version of open for dup'ing for - ### 5.6.x compatibilty. 5.8.x can use 3-arg open + ### 5.6.x compatibility. 5.8.x can use 3-arg open ### see perldoc5.6.2 -f open for details open( $fh, $redir . fileno($glob) ) or ( Carp::carp(loc("Could not restore '$name': %1", $!)), diff --git a/cpan/IPC-Cmd/t/01_IPC-Cmd.t b/cpan/IPC-Cmd/t/01_IPC-Cmd.t index bf33faa..85835d0 100644 --- a/cpan/IPC-Cmd/t/01_IPC-Cmd.t +++ b/cpan/IPC-Cmd/t/01_IPC-Cmd.t @@ -46,7 +46,7 @@ push @Prefs, [ 0, 0 ], [ 0, 0 ]; ### can_run tests { ok( can_run("$^X"), q[Found 'perl' in your path] ); - ok( !can_run('10283lkjfdalskfjaf'), q[Not found non-existant binary] ); + ok( !can_run('10283lkjfdalskfjaf'), q[Not found non-existent binary] ); } { ### list of commands and regexes matching output @@ -91,7 +91,7 @@ push @Prefs, [ 0, 0 ], [ 0, 0 ]; } } - ### for each configuarion + ### for each configuration for my $pref ( @Prefs ) { local $IPC::Cmd::USE_IPC_RUN = !!$pref->[0]; @@ -114,7 +114,7 @@ push @Prefs, [ 0, 0 ], [ 0, 0 ]; { my $buffer; my $ok = run( command => $cmd, buffer => \$buffer ); - ok( $ok, "Ran '$pp_cmd' command succesfully" ); + ok( $ok, "Ran '$pp_cmd' command successfully" ); SKIP: { skip "No buffers available", 1 @@ -195,7 +195,7 @@ __END__ ### special call to check that output is interleaved properly { my $cmd = [$^X, File::Spec->catfile( qw[src output.pl] ) ]; - ### for each configuarion + ### for each configuration for my $pref ( @Prefs ) { diag( "Running config: IPC::Run: $pref->[0] IPC::Open3: $pref->[1]" ) if $Verbose; @@ -224,7 +224,7 @@ __END__ ### test failures -{ ### for each configuarion +{ ### for each configuration for my $pref ( @Prefs ) { diag( "Running config: IPC::Run: $pref->[0] IPC::Open3: $pref->[1]" ) if $Verbose; diff --git a/cpan/IPC-Cmd/t/02_Interactive.t b/cpan/IPC-Cmd/t/02_Interactive.t index b2c23a3..13fd8c8 100644 --- a/cpan/IPC-Cmd/t/02_Interactive.t +++ b/cpan/IPC-Cmd/t/02_Interactive.t @@ -73,7 +73,7 @@ for my $aref ( @Conf ) { my $buffer; my $ok = run( command => $cmd, verbose => 1, buffer => \$buffer ); - ok( $ok, " Command '$cmd' ran succesfully" ); + ok( $ok, " Command '$cmd' ran successfully" ); SKIP: { skip "No buffers available", 1 unless $Class->can_capture_buffer; -- 2.7.4