This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix typos (spelling errors) in cpan/IPC-Cmd/*.
authorPeter J. Acklam <pjacklam@online.no>
Fri, 7 Jan 2011 07:08:43 +0000 (23:08 -0800)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 7 Jan 2011 11:15:08 +0000 (11:15 +0000)
# New Ticket Created by  (Peter J. Acklam)
# Please include the string:  [perl #81814]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81814 >

Signed-off-by: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
cpan/IPC-Cmd/lib/IPC/Cmd.pm
cpan/IPC-Cmd/t/01_IPC-Cmd.t
cpan/IPC-Cmd/t/02_Interactive.t

index 3ac438e..0468e50 100644 (file)
@@ -362,7 +362,7 @@ sub install_layered_signal {
   my $sig_handler = sub {
     my ($called_sig_name, @sig_param) = @_;
     
   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
     # 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
     # 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);
     # 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,
       #
       # 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);
       #
       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');
 
     $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;
     ### 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 
                 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", $!)),
             ### 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 
                 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", $!)),
             ### see perldoc5.6.2 -f open for details
             open( $fh, $redir . fileno($glob) ) or (
                     Carp::carp(loc("Could not restore '$name': %1", $!)),
index bf33faa..85835d0 100644 (file)
@@ -46,7 +46,7 @@ push @Prefs, [ 0,             0 ],  [ 0,             0 ];
 ### can_run tests
 {
     ok( can_run("$^X"),                q[Found 'perl' in your path] );
 ### 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 
 }
 
 {   ### 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];
     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 );
 
             {   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 
                 
                 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] ) ];
 
 ### 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;
     for my $pref ( @Prefs ) {
         diag( "Running config: IPC::Run: $pref->[0] IPC::Open3: $pref->[1]" )
             if $Verbose;
@@ -224,7 +224,7 @@ __END__
 
 
 ### test failures
 
 
 ### 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;
     for my $pref ( @Prefs ) {
         diag( "Running config: IPC::Run: $pref->[0] IPC::Open3: $pref->[1]" )
             if $Verbose;
index b2c23a3..13fd8c8 100644 (file)
@@ -73,7 +73,7 @@ for my $aref ( @Conf ) {
         my $buffer;
         my $ok = run( command => $cmd, verbose => 1, buffer => \$buffer );
     
         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;
     
         SKIP: {
             skip "No buffers available", 1 unless $Class->can_capture_buffer;