This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Merge branch 'blead' of ssh://perl5.git.perl.org/gitroot/perl into blead
authorAbigail <abigail@abigail.be>
Fri, 7 Jan 2011 10:31:48 +0000 (11:31 +0100)
committerAbigail <abigail@abigail.be>
Fri, 7 Jan 2011 10:31:48 +0000 (11:31 +0100)
113 files changed:
MANIFEST
dist/B-Deparse/Deparse.pm
dist/B-Deparse/t/deparse.t
dist/B-Lint/lib/B/Lint.pm
dist/Cwd/Cwd.pm
dist/Cwd/lib/File/Spec/Mac.pm
dist/Cwd/lib/File/Spec/VMS.pm
dist/Cwd/t/Spec.t
dist/Cwd/t/cwd.t
dist/Data-Dumper/Changes
dist/Data-Dumper/Dumper.xs
dist/Data-Dumper/t/freezer.t
dist/Dumpvalue/lib/Dumpvalue.pm
dist/ExtUtils-CBuilder/Changes
dist/ExtUtils-Install/Changes
dist/ExtUtils-Install/lib/ExtUtils/Install.pm
dist/ExtUtils-Install/t/Install.t
dist/ExtUtils-Install/t/Installapi2.t
dist/ExtUtils-ParseXS/Changes
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
dist/IO/ChangeLog
dist/IO/lib/IO/Handle.pm
dist/IO/t/io_sel.t
dist/IO/t/io_sock.t
dist/Locale-Maketext/ChangeLog
dist/Locale-Maketext/lib/Locale/Maketext.pm
dist/Locale-Maketext/lib/Locale/Maketext/Cookbook.pod
dist/Locale-Maketext/lib/Locale/Maketext/TPJ13.pod
dist/Math-BigInt-FastCalc/FastCalc.xs
dist/Math-BigInt-FastCalc/lib/Math/BigInt/FastCalc.pm
dist/Math-BigInt-FastCalc/t/bigintfc.t
dist/Math-BigInt/lib/Math/BigFloat.pm
dist/Math-BigInt/lib/Math/BigInt.pm
dist/Math-BigInt/lib/Math/BigInt/Calc.pm
dist/Math-BigInt/t/bare_mif.t
dist/Math-BigInt/t/bigfltpm.inc
dist/Math-BigInt/t/bigintc.t
dist/Math-BigInt/t/bigintpm.inc
dist/Math-BigInt/t/calling.t
dist/Math-BigInt/t/mbimbf.inc
dist/Math-BigInt/t/mbimbf.t
dist/Math-BigInt/t/sub_mif.t
dist/Math-BigInt/t/upgrade.inc
dist/Math-BigRat/lib/Math/BigRat.pm
dist/Math-BigRat/t/bigfltpm.inc
dist/Math-BigRat/t/bigratup.t
dist/Module-CoreList/Changes
dist/Net-Ping/Changes
dist/Net-Ping/lib/Net/Ping.pm
dist/Pod-Perldoc/lib/Pod/Perldoc.pm
dist/Pod-Perldoc/lib/Pod/Perldoc/ToTk.pm
dist/Safe/t/safe1.t
dist/Safe/t/safe2.t
dist/Safe/t/safeuniversal.t
dist/Storable/ChangeLog
dist/Storable/README
dist/Storable/Storable.pm
dist/Storable/Storable.xs
dist/Storable/t/attach_singleton.t
dist/Storable/t/canonical.t
dist/Storable/t/circular_hook.t
dist/Storable/t/downgrade.t
dist/Storable/t/overload.t
dist/Storable/t/restrict.t
dist/Storable/t/st-dump.pl
dist/Storable/t/tied.t
dist/Storable/t/utf8.t
dist/base/Changes
dist/base/t/fields-base.t
dist/bignum/lib/bigint.pm
dist/bignum/lib/bignum.pm
dist/bignum/lib/bigrat.pm
dist/bignum/t/bigint.t
dist/bignum/t/bignum.t
dist/bignum/t/bigrat.t
dist/threads-shared/shared.xs
dist/threads-shared/t/sv_refs.t
dist/threads/t/free.t
dist/threads/t/free2.t
dist/threads/t/problems.t
make_ext.pl
pod/buildtoc
pod/perl5110delta.pod
pod/perl5120delta.pod
pod/perl5121delta.pod
pod/perl5130delta.pod
pod/perl5136delta.pod
pod/perl572delta.pod
pod/perl589delta.pod
pod/perldiag.pod
pod/perlebcdic.pod
pod/perlfaq3.pod
pod/perlfaq4.pod
pod/perlfaq6.pod
pod/perlfaq9.pod
pod/perlfunc.pod
pod/perlglossary.pod
pod/perlhack.pod
pod/perlipc.pod
pod/perlmod.pod
pod/perlport.pod
pod/perlreapi.pod
pod/perlrebackslash.pod
pod/perlsyn.pod
pod/perlthrtut.pod
pod/perltodo.pod
pod/perlunicode.pod
pod/perlvms.pod
regen_perly.pl
vms/gen_shrfls.pl
vms/munchconfig.c
vms/vms.c
x2p/s2p.PL

index 26ecda1..34a96ba 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -69,7 +69,7 @@ cpan/Archive-Tar/t/src/short/foo.tgz                  Archive::Tar tests
 cpan/autodie/lib/autodie/exception.pm          Exception class for autodie
 cpan/autodie/lib/autodie/exception/system.pm   Exception class for autodying system()
 cpan/autodie/lib/autodie/hints.pm      Hinting interface for autodie
-cpan/autodie/lib/autodie.pm            Functions suceed or die with lexical scope
+cpan/autodie/lib/autodie.pm            Functions succeed or die with lexical scope
 cpan/autodie/lib/Fatal.pm              Make errors in functions/builtins fatal
 cpan/autodie/t/00-load.t               autodie - basic load
 cpan/autodie/t/autodie.t               autodie - Basic functionality
@@ -102,7 +102,7 @@ cpan/autodie/t/internal-backcompat.t        autodie - Back-compatibility tests
 cpan/autodie/t/internal.t              autodie - internal interface tests
 cpan/autodie/t/lethal.t                        autodie - lethal is the one true name
 cpan/autodie/t/lib/autodie/test/au/exception.pm        autodie - Australian helper
-cpan/autodie/t/lib/autodie/test/au.pm          autodie - Austrlaian helper
+cpan/autodie/t/lib/autodie/test/au.pm          autodie - Australian helper
 cpan/autodie/t/lib/autodie/test/badname.pm     autodie - Bad exception class
 cpan/autodie/t/lib/autodie/test/missing.pm     autodie - Missing exception class
 cpan/autodie/t/lib/Caller_helper.pm            autodie - Caller helper
@@ -1940,7 +1940,7 @@ cpan/Pod-Simple/t/xhtml10.t                               Pod::Simple test file
 cpan/Pod-Simple/t/x_nixer.t                            Pod::Simple test file
 cpan/Shell/Shell.pm            Make AUTOLOADed system() calls
 cpan/Shell/t/Shell.t           Tests for above
-cpan/Sys-Syslog/Changes                        Changlog for Sys::Syslog
+cpan/Sys-Syslog/Changes                        Changelog for Sys::Syslog
 cpan/Sys-Syslog/fallback/const-c.inc   Sys::Syslog constants fallback file
 cpan/Sys-Syslog/fallback/const-xs.inc  Sys::Syslog constants fallback file
 cpan/Sys-Syslog/fallback/syslog.h      Sys::Syslog header fallback file
@@ -2949,7 +2949,7 @@ dist/Math-BigInt/t/mbi_ali.t              Tests for BigInt
 dist/Math-BigInt/t/mbimbf.inc          Actual BigInt/BigFloat accuracy, precision and fallback, round_mode tests
 dist/Math-BigInt/t/mbimbf.t            BigInt/BigFloat accuracy, precision and fallback, round_mode
 dist/Math-BigInt/t/mbi_rand.t          Test Math::BigInt randomly
-dist/Math-BigInt/t/nan_cmp.t           overloaded comparision involving *NaN*
+dist/Math-BigInt/t/nan_cmp.t           overloaded comparison involving *NaN*
 dist/Math-BigInt/t/new_overloaded.t    test overloaded numbers in BigFloat's new()
 dist/Math-BigInt/t/req_mbf0.t          test: require Math::BigFloat; ->bzero();
 dist/Math-BigInt/t/req_mbf1.t          test: require Math::BigFloat; ->bone();
@@ -4463,7 +4463,7 @@ symbian/config.pl         Configuration script for Symbian
 symbian/config.sh              Configuration data for Symbian
 symbian/cwd.pl                 Helper code for config.pl
 symbian/demo_pl                        "Archive" of demo code
-symbian/ext/Moped/Msg/bld.inf  Demo extension build configuraion
+symbian/ext/Moped/Msg/bld.inf  Demo extension build configuration
 symbian/ext/Moped/Msg/location.pl      Demo extension script
 symbian/ext/Moped/Msg/Msg.mmp  Demo extension building
 symbian/ext/Moped/Msg/Msg.pkg  Demo extension packaging
@@ -4530,7 +4530,7 @@ t/comp/decl.t                     See if declarations work
 t/comp/final_line_num.t                See if line numbers are correct at EOF
 t/comp/fold.t                  See if constant folding works
 t/comp/form_scope.t            See if format scoping works
-t/comp/hints.aux               Auxillary file for %^H test
+t/comp/hints.aux               Auxiliary file for %^H test
 t/comp/hints.t                 See if %^H works
 t/comp/line_debug_0.aux                Auxiliary file for @{"_<$file"} test
 t/comp/line_debug.t            See if @{"_<$file"} works
@@ -4881,7 +4881,7 @@ t/porting/dual-life.t             Check that dual-life bins are in utils/
 t/porting/exec-bit.t           Check that exec-bit bins are identified
 t/porting/filenames.t          Check the MANIFEST for filename portability.
 t/porting/FindExt.t            Test win32/FindExt.pm
-t/porting/maintainers.t                Test that Porting/Maintaners.pl is up to date
+t/porting/maintainers.t                Test that Porting/Maintainers.pl is up to date
 t/porting/manifest.t           Test that this MANIFEST file is well formed
 t/porting/podcheck.t           Test the POD of shipped modules is well formed
 t/porting/regen.t              Check that regen.pl doesn't need running
@@ -4923,7 +4923,7 @@ t/re/reg_mesg.t                   See if one can get regular expression errors
 t/re/reg_namedcapture.t                Make sure glob assignment doesn't break named capture
 t/re/reg_nc_tie.t              Test the tied methods of Tie::Hash::NamedCapture
 t/re/reg_pmod.t                        See if regexp /p modifier works as expected
-t/re/reg_posixcc.t             See if posix character classes behave consistantly
+t/re/reg_posixcc.t             See if posix character classes behave consistently
 t/re/reg_unsafe.t              Check for unsafe match vars
 t/re/re.t                      See if exportable 're' funcs in universal.c work
 t/re/ReTest.pl                 Test utilities for the t/re/pat*.t tests (used by do)
index 008e6d8..6ab7b1d 100644 (file)
@@ -46,7 +46,7 @@ BEGIN {
 # - fixed nulled leave with live enter in sort { }
 # - fixed reference constants (\"str")
 # - handle empty programs gracefully
-# - handle infinte loops (for (;;) {}, while (1) {})
+# - handle infinite loops (for (;;) {}, while (1) {})
 # - differentiate between `for my $x ...' and `my $x; for $x ...'
 # - various minor cleanups
 # - moved globals into an object
@@ -106,10 +106,10 @@ BEGIN {
 # - added support for Ilya's OPpTARGET_MY optimization
 # - elided arrows before `()' subscripts when possible
 # Changes between 0.59 and 0.60
-# - support for method attribues was added
+# - support for method attributes was added
 # - some warnings fixed
 # - separate recognition of constant subs
-# - rewrote continue block handling, now recoginizing for loops
+# - rewrote continue block handling, now recognizing for loops
 # - added more control of expanding control structures
 # Changes between 0.60 and 0.61 (mostly by Robin Houston)
 # - many bug-fixes
@@ -167,7 +167,7 @@ BEGIN {
 #    'use warnings; BEGIN {${^WARNING_BITS} eq "U"x12;} use warnings::register'
 # op/getpid 2 - can't assign to shared my() declaration (threads only)
 #    'my $x : shared = 5'
-# op/override 7 - parens on overriden require change v-string interpretation
+# op/override 7 - parens on overridden require change v-string interpretation
 #    'BEGIN{*CORE::GLOBAL::require=sub {}} require v5.6'
 #    c.f. 'BEGIN { *f = sub {0} }; f 2'
 # op/pat 774 - losing Unicode-ness of Latin1-only strings
@@ -4885,7 +4885,7 @@ which is not, consequently, deparsed correctly.
 
 Lexical (my) variables declared in scopes external to a subroutine
 appear in code2ref output text as package variables. This is a tricky
-problem, as perl has no native facility for refering to a lexical variable
+problem, as perl has no native facility for referring to a lexical variable
 defined within a different scope, although L<PadWalker> is a good start.
 
 =item *
index 38ce876..89a4493 100644 (file)
@@ -12,7 +12,7 @@ BEGIN {
 use warnings;
 use strict;
 BEGIN {
-    # BEGIN block is acutally a subroutine :-)
+    # BEGIN block is actually a subroutine :-)
     return unless $] > 5.009;
     require feature;
     feature->import(':5.10');
@@ -389,7 +389,7 @@ state $x = 42;
 }
 ####
 # SKIP ?$] < 5.010 && "state vars not implemented on this Perl version"
-# state vars in anoymous subroutines
+# state vars in anonymous subroutines
 $a = sub {
     state $x;
     return $x++;
index 9db07ea..9cfac3f 100644 (file)
@@ -584,7 +584,7 @@ PRIVATE_NAMES: {
 DOLLAR_UNDERSCORE: {
 
         # Warn on uses of $_ with a few exceptions. I'm not warning on
-        # $_ inside grep, map, or statement modifer foreach because
+        # $_ inside grep, map, or statement modifier foreach because
         # they localize $_ and it'd be impossible to use these
         # features without getting warnings.
 
index 6aa8273..884ba73 100644 (file)
@@ -129,7 +129,7 @@ it from Cwd.
 
 =item *
 
-Since the path seperators are different on some operating systems ('/'
+Since the path separators are different on some operating systems ('/'
 on Unix, ':' on MacPerl, etc...) we recommend you use the File::Spec
 modules wherever portability is a concern.
 
index 68cec65..ca2260d 100644 (file)
@@ -740,7 +740,7 @@ sub rel2abs {
 
        # Split up paths
 
-       # igonore $path's volume
+       # ignore $path's volume
         my ( $path_dirs, $path_file ) = ($self->splitpath($path))[1,2] ;
 
         # ignore $base's file part
index f26fcf1..efa36ab 100644 (file)
@@ -204,7 +204,7 @@ sub catdir {
 
             if ($unix_mode) {
 
-                # Fix up mixed syntax imput as good as possible - GIGO
+                # Fix up mixed syntax input as good as possible - GIGO
                 $path = unixify($path) if $path_vms;
                 $dir = unixify($dir) if $dir_vms;
 
@@ -216,7 +216,7 @@ sub catdir {
                 return $self->SUPER::canonpath($rslt);
             } else {
 
-                #with <> posible instead of [.
+                #with <> possible instead of [.
                 # Normalize the brackets
                 # Fixme - need to not switch when preceded by ^.
                 $path =~ s/</\[/g;
@@ -224,7 +224,7 @@ sub catdir {
                 $dir =~ s/</\[/g;
                 $dir =~ s/>/\]/g;
 
-                # Fix up mixed syntax imput as good as possible - GIGO
+                # Fix up mixed syntax input as good as possible - GIGO
                 $path = vmsify($path) if $path_unix;
                 $dir = vmsify($dir) if $dir_unix;
 
@@ -413,7 +413,7 @@ sub catfile {
                 # Assume VMS mode
                 if (($spath_unix == $spath_vms) &&
                     ($file_unix == $file_vms)) {
-                     # Ambigous, so if in $unix_rpt mode then assume UNIX.
+                     # Ambiguous, so if in $unix_rpt mode then assume UNIX.
                      $unix_mode = 1 if $unix_rpt;
                 } else {
                      $unix_mode = 1
@@ -433,7 +433,7 @@ sub catfile {
                     $rslt = $spath;
                     $file = unixify($file) if ($file_vms);
 
-                    # Unix merge may need a directory delimitor.
+                    # Unix merge may need a directory delimiter.
                     # A null path indicates root on Unix.
                     $rslt .= '/' unless ($rslt =~ m#/$#);
                 }
@@ -469,7 +469,7 @@ sub catfile {
     }
     return $self->canonpath($rslt) unless $unix_rpt;
 
-    # In Unix report mode, do not strip off redundent path information.
+    # In Unix report mode, do not strip off redundant path information.
     return $rslt;
 }
 
index b4339ef..8b63653 100644 (file)
@@ -32,7 +32,7 @@ if ($^O eq 'VMS') {
 my $skip_exception = "Install VMS::Filespec (from vms/ext)" ;
 
 if ( $@ ) {
-   # Not pretty, but it allows testing of things not implemented soley
+   # Not pretty, but it allows testing of things not implemented solely
    # on VMS.  It might be better to change File::Spec::VMS to do this,
    # making it more usable when running on (say) Unix but working with
    # VMS paths.
index 256b2a1..a97a4cb 100644 (file)
@@ -64,7 +64,7 @@ ok( !defined(&fast_abs_path),   '  nor fast_abs_path()');
   is($before, $after, "cwd() shouldn't create spurious entries in %ENV");
 }
 
-# XXX force Cwd to bootsrap its XSUBs since we have set @INC = "../lib"
+# XXX force Cwd to bootstrap its XSUBs since we have set @INC = "../lib"
 # XXX and subsequent chdir()s can make them impossible to find
 eval { fastcwd };
 
index b9617c9..f96f2ce 100644 (file)
@@ -106,7 +106,7 @@ Minor release to fix Makefile.PL not accepting MakeMaker args.
 
 =item 2.08  (7 December 1997)
 
-Glob dumps don't output superflous 'undef' anymore.
+Glob dumps don't output superfluous 'undef' anymore.
 
 Fixes from Gisle Aas <gisle@aas.no> to make Dumper() work with
 overloaded strings in recent perls, and his new testsuite.
index 56b3378..2c249db 100644 (file)
@@ -293,7 +293,7 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv,
     if (!val)
        return 0;
 
-    /* If the ouput buffer has less than some arbitary amount of space
+    /* If the ouput buffer has less than some arbitrary amount of space
        remaining, then enlarge it. For the test case (25M of output),
        *1.1 was slower, *2.0 was the same, so the first guess of 1.5 is
        deemed to be good enough.  */
@@ -1016,7 +1016,7 @@ MODULE = Data::Dumper             PACKAGE = Data::Dumper         PREFIX = Data_Dumper_
 #
 # This is the exact equivalent of Dump.  Well, almost. The things that are
 # different as of now (due to Laziness):
-#   * doesnt do double-quotes yet.
+#   * doesn't do double-quotes yet.
 #
 
 void
index 85484e9..c46d861 100644 (file)
@@ -90,4 +90,4 @@ sub new { bless({name => $_[1]}, $_[0]) }
 # a package with a freeze() which dies
 package Test3;
 sub new { bless({name => $_[1]}, $_[0]) }
-sub freeze { die "freeze() is broked" }
+sub freeze { die "freeze() is broken" }
index d1c52d6..2c920e2 100644 (file)
@@ -541,7 +541,7 @@ I<as is>.  If C<quoteHighBit> is set, they will be quoted.
 
 =item C<usageOnly>
 
-rudimentally per-package memory usage dump.  If set,
+rudimentary per-package memory usage dump.  If set,
 C<dumpvars> calculates total size of strings in variables in the package.
 
 =item unctrl
index 41b4de2..8ef4af9 100644 (file)
@@ -49,7 +49,7 @@ Revision history for Perl extension ExtUtils::CBuilder.
     get unique file name for checking for compiler
     [Jens Rehsack]
 
-  - Code base modernization and substantial code coverage improvments
+  - Code base modernization and substantial code coverage improvements
     [Jim Keenan]
 
 0.2703 - Tue Mar 16 17:10:55 EDT 2010
@@ -261,7 +261,7 @@ Revision history for Perl extension ExtUtils::CBuilder.
    somehow never got into this copy. [Steve Hay]
 
  - Added a new 'defines' parameter to compile(), which gives a
-   platform-independant way to specify various -Dfoo=bar (or the
+   platform-independent way to specify various -Dfoo=bar (or the
    equivalent) compiler defines. [Randy W. Sims]
 
 0.14  Mon Sep 19 13:40:37 CDT 2005
index 55c6013..50be7b9 100644 (file)
@@ -128,7 +128,7 @@ highlight the pod properly.
 
 1.49
 
-Turns out that the new can_write_dir.t doesnt work properly under root
+Turns out that the new can_write_dir.t doesn't work properly under root
 as root can read the files regardless as to their mode. So we skip those
 tests when the effective UID is 0 indicating root.
 
index da58365..826342b 100644 (file)
@@ -297,7 +297,7 @@ sub _unlink_or_rename { #XXX OS-SPECIFIC
          "Going to try to rename it to '$tmp'.\n";
 
     if ( rename $file, $tmp ) {
-        warn "Rename succesful. Scheduling '$tmp'\nfor deletion at reboot.\n";
+        warn "Rename successful. Scheduling '$tmp'\nfor deletion at reboot.\n";
         # when $installing we can set $moan to true.
         # IOW, if we cant delete the renamed file at reboot its
         # not the end of the world. The other cases are more serious
@@ -310,7 +310,7 @@ sub _unlink_or_rename { #XXX OS-SPECIFIC
         _move_file_at_boot( $tmp, $file );
         return $tmp;
     } else {
-        _choke("Rename failed:$!", "Cannot procede.");
+        _choke("Rename failed:$!", "Cannot proceed.");
     }
 
 }
@@ -520,7 +520,7 @@ sub _mkpath {
 
 Wrapper around File::Copy::copy to handle errors.
 
-If $verbose is true and >1 then additional dignostics will be emitted.
+If $verbose is true and >1 then additional diagnostics will be emitted.
 
 If $dry_run is true then the copy will not actually occur.
 
@@ -790,7 +790,7 @@ sub install { #XXX OS-SPECIFIC
 
                 ];
             #restore the original directory we were in when File::Find
-            #called us so that it doesnt get horribly confused.
+            #called us so that it doesn't get horribly confused.
             _chdir($save_cwd);
         }, $current_directory );
         _chdir($cwd);
@@ -1056,7 +1056,7 @@ sub uninstall {
 
 Remove shadowed files. If $ignore is true then it is assumed to hold
 a filename to ignore. This is used to prevent spurious warnings from
-occuring when doing an install at reboot.
+occurring when doing an install at reboot.
 
 We now only die when failing to remove a file that has precedence over
 our own, when our install has precedence we only warn.
index cf3c67e..1f856cf 100644 (file)
@@ -16,7 +16,7 @@ use Test::More tests => 52;
 use MakeMaker::Test::Setup::BFD;
 
 BEGIN { use_ok('ExtUtils::Install') }
-# ensure the env doesnt pollute our tests
+# ensure the env doesn't pollute our tests
 local $ENV{EU_INSTALL_ALWAYS_COPY};
 local $ENV{EU_ALWAYS_COPY};    
 
@@ -119,7 +119,7 @@ close DUMMY;
                                              '  UNINST=0 left different' );
 }
 
-# Test UNINST=1 only warning when failing to remove an irrelevent shadow file
+# Test UNINST=1 only warning when failing to remove an irrelevant shadow file
 {
   my $tfile='install-test/lib/perl/Big/Dummy.pm';
   local $ExtUtils::Install::Testing = $tfile; 
@@ -145,7 +145,7 @@ close DUMMY;
   
 }
 
-# Test UNINST=1 dieing when failing to remove an relevent shadow file
+# Test UNINST=1 dieing when failing to remove an relevant shadow file
 {
   my $tfile='install-test/lib/perl/Big/Dummy.pm';
   local $ExtUtils::Install::Testing = $tfile;
index 1a59da2..5ebe826 100644 (file)
@@ -28,7 +28,7 @@ END {
     ok( chdir File::Spec->updir );
     ok( teardown_recurs(), 'teardown' );
 }
-# ensure the env doesnt pollute our tests
+# ensure the env doesn't pollute our tests
 local $ENV{EU_INSTALL_ALWAYS_COPY};
 local $ENV{EU_ALWAYS_COPY};    
     
@@ -118,7 +118,7 @@ close DUMMY;
                                              '  UNINST=0 left different' );
 }
 
-# Test UNINST=1 only warning when failing to remove an irrelevent shadow file
+# Test UNINST=1 only warning when failing to remove an irrelevant shadow file
 {
   my $tfile='install-test/lib/perl/Big/Dummy.pm';
   local $ExtUtils::Install::Testing = $tfile; 
@@ -144,7 +144,7 @@ close DUMMY;
   
 }
 
-# Test UNINST=1 dieing when failing to remove an relevent shadow file
+# Test UNINST=1 dieing when failing to remove an relevant shadow file
 {
   my $tfile='install-test/lib/perl/Big/Dummy.pm';
   local $ExtUtils::Install::Testing = $tfile;
index 45b30a5..8ebc900 100644 (file)
@@ -230,7 +230,7 @@ Revision history for Perl extension ExtUtils::ParseXS.
 
  - On Win32, there was a DLL file we create during testing that we
    couldn't delete unless we closed it first, so testing failed when
-   the deletiong was attempted.  This should now work (provided the
+   the deletion was attempted.  This should now work (provided the
    version of perl is high enough to have DynaLoader::dl_unload_file()
    - I'm not sure what will happen otherwise). [Steve Hay]
 
index 9e6e7b5..e539a42 100644 (file)
@@ -680,7 +680,7 @@ EOF
     # Now do a block of some sort.
 
     $condnum = 0;
-    $cond = '';                        # last CASE: condidional
+    $cond = '';                        # last CASE: conditional
     push(@line, "$END:");
     push(@line_no, $line_no[-1]);
     $_ = '';
@@ -800,7 +800,7 @@ EOF
        
        # 0: type, 1: with_size, 2: how, 3: how_size
        if ($t and not $t->[1] and $t->[0] eq 'p') {
-         # PUSHp corresponds to setpvn.  Treate setpv directly
+         # PUSHp corresponds to setpvn.  Treat setpv directly
          my $what = eval qq("$t->[2]");
          warn $@ if $@;
          
@@ -2030,7 +2030,7 @@ sub DESTROY {
 }
 
 sub UNTIE {
-  # This sub does nothing, but is neccessary for references to be released.
+  # This sub does nothing, but is necessary for references to be released.
 }
 
 sub end_marker {
@@ -2099,7 +2099,7 @@ Adds C<extern "C"> to the C code.  Default is false.
 
 =item B<hiertype>
 
-Retains C<::> in type names so that C++ hierachical types can be
+Retains C<::> in type names so that C++ hierarchical types can be
 mapped.  Default is false.
 
 =item B<except>
index 6913c64..dd5e3ff 100644 (file)
@@ -24,7 +24,7 @@ IO 1.24 -- Mon May 11 14:15:51 CDT 2009
   * Silence VC++ compiler warnings
   * IO::Socket's IO.xs fails to compile
   * IO::Socket::connect returns wrong errno on timeout
-  * Coverity correctly reports that gv might (just) be NULL. So don't derefernece it if it is.
+  * Coverity correctly reports that gv might (just) be NULL. So don't dereference it if it is.
   * Simplify tests for fork() capabilities
   * Fix syntax error in io_pipe test
   * Making IO::Socket pass test on Win32
@@ -203,11 +203,11 @@ Wed Oct 22 1997 <gbarr@pobox.com> (Graham Barr)
 Mon Oct 13 1997 <gbarr@pobox.com> (Graham Barr)
 
        IO.xs, IO::Handle
-       - 1.17 broke compatability with 5.003, small tweaks to restore
-         compatability
+       - 1.17 broke compatibility with 5.003, small tweaks to restore
+         compatibility
        
        t/io_const.t
-       - Added new test to ensure backwards compatability with constants
+       - Added new test to ensure backwards compatibility with constants
          is not broken
 
 Wed Oct  8 1997 <gbarr@pobox.com> (Graham Barr)
@@ -267,7 +267,7 @@ Mon 15 Sep 1997 <gbarr@pobox.com> Graham Barr
        o IO::Handle
          - Removed use of AutoLoader for constants, constants are
            now defined as constant XS subs
-         - Added fsync, but will not be avaliable for use
+         - Added fsync, but will not be available for use
            unless HAS_FSYNC is defined, perls configure does not define
            this yet.
          - Moved bootstrap of IO.xs to IO.pm. IO::Handle no longer
@@ -278,14 +278,14 @@ Mon 15 Sep 1997 <gbarr@pobox.com> Graham Barr
 
        o IO.xs
          - Patched IO.xs with patch from Chip for setvbuf warning
-         - Added XS sub "constant" for backwards compatability
+         - Added XS sub "constant" for backwards compatibility
 
        o Misc
          - Fixed IO::Socket::configure, it was not passing $arg to domain
            specific package
          - Changed all $fh variables in IO::Handle to $io and all $fh
            variables in IO::Socket to $sock as Chip suggested
-         - Fixed usage messages to be consistant
+         - Fixed usage messages to be consistent
 
 *** Release 1.15
 
@@ -295,12 +295,12 @@ Sun 19 Jan 1997 <bodg@tiuk.ti.com> Graham Barr
        o Modified IO.xs so that DESTROY gets called on IO::File
          objects that were created with IO::File->new_tmpfile
        o Modified the domain2pkg code in IO::Socket so that it
-         does not use blessd refs
+         does not use blessed refs
        o Created a new package IO::Pipe::End so that pipe specific
          stuff can be moved out of IO::Handle.
        o Added Ilya's OS/2 changes to Pipe.pm and io_pipe.t
 
-       o These changes happened somtime before the release of 1.15
+       o These changes happened sometime before the release of 1.15
          - added shutdown to IO::Socket
          - modified connect to not use alarm
          - modified accept and connect to use IO::Select
index 2f1f1b4..5a29b09 100644 (file)
@@ -603,8 +603,8 @@ sub ioctl {
     return ioctl($io, $op, $_[2]);
 }
 
-# this sub is for compatability with older releases of IO that used
-# a sub called constant to detemine if a constant existed -- GMB
+# this sub is for compatibility with older releases of IO that used
+# a sub called constant to determine if a constant existed -- GMB
 #
 # The SEEK_* and _IO?BF constants were the only constants at that time
 # any new code should just chech defined(&CONSTANT_NAME)
index 260ca43..eb4bb90 100644 (file)
@@ -50,7 +50,7 @@ if ( grep $^O eq $_, qw(MSWin32 NetWare dos VMS riscos beos) ) {
     goto POST_SOCKET;
 }
 
-@a = $sel->can_read();  # should return imediately
+@a = $sel->can_read();  # should return immediately
 print "not " unless @a == 0;
 print "ok 10\n";
 
index 9c964f0..0202d70 100644 (file)
@@ -265,7 +265,7 @@ if( $server_pid) {
     ### interrupted by eof calls.
     ### On perl-5.7.0@7673 this failed in a SOCKS environment, because eof
     ### did an getc followed by an ungetc in order to check for the streams
-    ### end. getc(3) got replaced by the SOCKS funktion, which ended up in
+    ### end. getc(3) got replaced by the SOCKS function, which ended up in
     ### a recv(2) call on the socket, while ungetc(3) put back a character
     ### to an IO buffer, which never again was read.
     #
index 4f1213f..3a28d09 100644 (file)
@@ -18,7 +18,7 @@ Revision history for Perl suite Locale::Maketext
     Locale::Maketext::Guts::_compile() when working with tainted values
 
     Fix for CPAN RT #34182: Don't localize $@. 
-    ->maketext calls will now backup and restore $@ so that die messages are not supressed.
+    ->maketext calls will now backup and restore $@ so that die messages are not suppressed.
 
     Fix for CPAN RT #55461
     %hash deprecated messages cleaned up with perl 5.12
@@ -120,7 +120,7 @@ Revision history for Perl suite Locale::Maketext
     en_*.pm.  Thanks to Robert Spier for spotting this.  Test added.
     So don't use v1.07!
 
-    * Autrijus found some typoes in the TPJ article.  Fixed.
+    * Autrijus found some typos in the TPJ article.  Fixed.
 
 2004-01-11  Sean M. Burke  sburke@cpan.org
 
@@ -175,7 +175,7 @@ Revision history for Perl suite Locale::Maketext
     test.pl.
 
 2001-06-20  Sean M. Burke  sburke@cpan.org
-    * Release 1.02:  EBCDIC-compatability changes courtesy of Peter
+    * Release 1.02:  EBCDIC-compatibility changes courtesy of Peter
     Prymmer.  Added [*,...] as alias for [quant,...] and [#,...] as an
     alias for [numf,...].  Added some more things to test.pl
 
index 6c084e3..910470d 100644 (file)
@@ -787,7 +787,7 @@ sub _die_pointing {
             # tabs screw everything up!
             $pointy = substr($_[0],0,$pos);
             $pointy =~ tr/\t //cd;
-            # make everything into whitespace, but preseving tabs
+            # make everything into whitespace, but preserving tabs
             $pointy .= "^=== near there\n";
         }
     }
index 6063b0f..3457f7c 100644 (file)
@@ -101,7 +101,7 @@ like that:
 
     use Number::Format;
 
-    # can be overriden according to language conventions
+    # can be overridden according to language conventions
     sub _numf_params {
         return (
             -thousands_sep  => '.',
index b5e2c0b..0bbe6e3 100644 (file)
@@ -181,7 +181,7 @@ for "I I<didn't> scan I<any> directories.".  And ditto for "I didn't
 match any files in any directories", although he says the last part
 about "in any directories" should probably just be left off.
 
-You wonder how you'll get gettext to handle this; to accomodate the
+You wonder how you'll get gettext to handle this; to accommodate the
 ways Arabic, Chinese, and Italian deal with numbers in just these few
 very simple phrases, you need to write code that will ask gettext for
 different queries depending on whether the numerical values in
@@ -277,7 +277,7 @@ another language -- for example, strictly speaking, in Arabic, the
 depending on whether the user is male or female; so the Arabic
 translation "your[feminine] query" is applicable in fewer cases than
 the corresponding English phrase, which doesn't distinguish the user's
-gender.  (In practice, it's not feasable to have a program know the
+gender.  (In practice, it's not feasible to have a program know the
 user's gender, so the masculine "you" in Arabic is usually used, by
 default.)
 
@@ -450,7 +450,7 @@ possibly minor rewording.  In that case, you should be able to put in
 the UK English localization module I<only> those phrases that are
 UK-specific, and for all the rest, I<inherit> from the American
 English module.  (And I expect this same situation would apply with
-Brazilian and Continental Portugese, possbily with some I<very>
+Brazilian and Continental Portugese, possibly with some I<very>
 closely related languages like Czech and Slovak, and possibly with the
 slightly different "versions" of written Mandarin Chinese, as I hear exist in
 Taiwan and mainland China.)
@@ -458,7 +458,7 @@ Taiwan and mainland China.)
 As to sharing of auxiliary functions, consider the problem of Russian
 numbers from the beginning of this article; obviously, you'd want to
 write only once the hairy code that, given a numeric value, would
-return some specification of which case and number a given quanitified
+return some specification of which case and number a given quantified
 noun should use.  But suppose that you discover, while localizing an
 interface for, say, Ukranian (a Slavic language related to Russian,
 spoken by several million people, many of whom would be relieved to
@@ -470,7 +470,7 @@ Ukranian, you could still choose to have the Ukranian module inherit
 from the Russian module, just for the sake of inheriting all the
 various grammatical methods.  Or, probably better organizationally,
 you could move those functions to a module called C<_E_Slavic> or
-something, which Russian and Ukranian could inherit useful functions
+something, which Russian and Ukrainian could inherit useful functions
 from, but which would (presumably) provide no lexicon.
 
 =head2 Buzzword: Concision
@@ -589,7 +589,7 @@ A string with no brackety calls, like this:
 
   "Your search expression was malformed."
 
-is somewhat of a degerate case, and just gets turned into:
+is somewhat of a degenerate case, and just gets turned into:
 
   sub { return "Your search expression was malformed." }
 
@@ -696,7 +696,7 @@ maintaining individual language modules.
 That is all covered in the documentation for Locale::Maketext and the
 modules that come with it, available in CPAN.  After having read this
 article, which covers the why's of Maketext, the documentation,
-which covers the how's of it, should be quite straightfoward.
+which covers the how's of it, should be quite straightforward.
 
 =head2 The Proof in the Pudding: Localizing Web Sites
 
index 5e246a9..33947a8 100644 (file)
@@ -401,7 +401,7 @@ _acmp(class, cx, cy);
       RETURN_MORTAL_INT(-1);           /* len differs: X < Y */
       }
     /* both have same number of elements, so check length of last element
-       and see if it differes */
+       and see if it differs */
     tempx = *av_fetch(array_x, elemsx, 0);     /* fetch last element */
     tempy = *av_fetch(array_y, elemsx, 0);     /* fetch last element */
     SvPV(tempx, lenx);                 /* convert to string & store length */
index 0fa7d0f..6ff315b 100644 (file)
@@ -97,7 +97,7 @@ the same terms as Perl itself.
 
 Original math code by Mark Biggar, rewritten by Tels L<http://bloodgate.com/>
 in late 2000.
-Seperated from BigInt and shaped API with the help of John Peacock.
+Separated from BigInt and shaped API with the help of John Peacock.
 Fixed, sped-up and enhanced by Tels http://bloodgate.com 2001-2003.
 Further streamlining (api_version 1 etc.) by Tels 2004-2007.
 
index a51610c..c390917 100644 (file)
@@ -302,7 +302,7 @@ $x = $C->_new("11"); is ($C->_str($C->_fac($x)),'39916800');
 $x = $C->_new("12"); is ($C->_str($C->_fac($x)),'479001600');
 $x = $C->_new("13"); is ($C->_str($C->_fac($x)),'6227020800');
 
-# test that _fac modifes $x in place for small arguments
+# test that _fac modifies $x in place for small arguments
 $x = $C->_new("3"); $C->_fac($x); is ($C->_str($x),'6');
 $x = $C->_new("13"); $C->_fac($x); is ($C->_str($x),'6227020800');
 
index 1ccd381..1d9da29 100644 (file)
@@ -2501,7 +2501,7 @@ sub bpow
 sub bmodpow
   {
   # takes a very large number to a very large exponent in a given very
-  # large modulus, quickly, thanks to binary exponentation. Supports
+  # large modulus, quickly, thanks to binary exponentiation. Supports
   # negative exponents.
   my ($self,$num,$exp,$mod,@r) = objectify(3,@_);
 
@@ -3888,7 +3888,7 @@ Math::BigFloat - Arbitrary size floating point math package
 
   $x->bmod($y);                        # modulus ($x % $y)
   $x->bpow($y);                        # power of arguments ($x ** $y)
-  $x->bmodpow($exp,$mod);      # modular exponentation (($num**$exp) % $mod))
+  $x->bmodpow($exp,$mod);      # modular exponentiation (($num**$exp) % $mod))
   $x->blsft($y, $n);           # left shift by $y places in base $n
   $x->brsft($y, $n);           # right shift by $y places in base $n
                                # returns (quo,rem) or quo if in scalar context
index 52acc7a..c3a05a1 100644 (file)
@@ -931,7 +931,7 @@ sub round
   # Round $self according to given parameters, or given second argument's
   # parameters or global defaults 
 
-  # for speed reasons, _find_round_parameters is embeded here:
+  # for speed reasons, _find_round_parameters is embedded here:
 
   my ($self,$a,$p,$r,@args) = @_;
   # $a accuracy, if given by caller
@@ -989,7 +989,7 @@ sub round
     {
     $self->bfround(int($p),$r) if !defined $self->{_p} || $self->{_p} <= $p;
     }
-  # bround() or bfround() already callled bnorm() if nec.
+  # bround() or bfround() already called bnorm() if nec.
   $self;
   }
 
@@ -1402,7 +1402,7 @@ sub bgcd
   { 
   # (BINT or num_str, BINT or num_str) return BINT
   # does not modify arguments, but returns new object
-  # GCD -- Euclids algorithm, variant C (Knuth Vol 3, pg 341 ff)
+  # GCD -- Euclid's algorithm, variant C (Knuth Vol 3, pg 341 ff)
 
   my $y = shift;
   $y = $class->new($y) if !ref($y);
@@ -1859,7 +1859,7 @@ sub bmodinv
 sub bmodpow
   {
   # takes a very large number to a very large exponent in a given very
-  # large modulus, quickly, thanks to binary exponentation. Supports
+  # large modulus, quickly, thanks to binary exponentiation. Supports
   # negative exponents.
   my ($self,$num,$exp,$mod,@r) = objectify(3,@_);
 
@@ -2886,7 +2886,7 @@ sub _split
   # invalid input.
   my $x = shift;
 
-  # strip white space at front, also extranous leading zeros
+  # strip white space at front, also extraneous leading zeros
   $x =~ s/^\s*([-]?)0*([0-9])/$1$2/g;   # will not strip '  .2'
   $x =~ s/^\s+//;                       # but this will
   $x =~ s/\s+$//g;                      # strip white space at end
@@ -3212,8 +3212,8 @@ Math::BigInt - Arbitrary size integer/float math package
   $x->bmuladd($y,$z);  # $x = $x * $y + $z
 
   $x->bmod($y);                   # modulus (x % y)
-  $x->bmodpow($exp,$mod);  # modular exponentation (($num**$exp) % $mod))
-  $x->bmodinv($mod);      # the multiplicative inverse of $x modulo $mod
+  $x->bmodpow($exp,$mod);  # modular exponentiation (($num**$exp) % $mod)
+  $x->bmodinv($mod);      # the inverse of $x in the given modulus $mod
 
   $x->bpow($y);                   # power of arguments (x ** y)
   $x->blsft($y);          # left shift in base 2
@@ -3749,11 +3749,11 @@ inverse exists.
 
 =head2 bmodpow()
 
-       $num->bmodpow($exp,$mod);       # modular exponentation
+       $num->bmodpow($exp,$mod);       # modular exponentiation
                                        # ($num**$exp % $mod)
 
 Returns the value of C<$num> taken to the power C<$exp> in the modulus
-C<$mod> using binary exponentation.  C<bmodpow> is far superior to
+C<$mod> using binary exponentiation.  C<bmodpow> is far superior to
 writing
 
        $num ** $exp % $mod
@@ -4085,7 +4085,7 @@ the decimal point. For example, 123.45 has a precision of -2. 0 means an
 integer like 123 (or 120). A precision of 2 means two digits to the left
 of the decimal point are zero, so 123 with P = 1 becomes 120. Note that
 numbers with zeros before the decimal point may have different precisions,
-because 1200 can have p = 0, 1 or 2 (depending on what the inital value
+because 1200 can have p = 0, 1 or 2 (depending on what the initial value
 was). It could also have p < 0, when the digits after the decimal point
 are zero.
 
@@ -4232,7 +4232,7 @@ versions <= 5.7.2) is like this:
     assumption that 124 has 3 significant digits, while 120/7 will get you
     '17', not '17.1' since 120 is thought to have 2 significant digits.
     The rounding after the division then uses the remainder and $y to determine
-    wether it must round up or down.
+    whether it must round up or down.
  ?  I have no idea which is the right way. That's why I used a slightly more
  ?  simple scheme and tweaked the few failing testcases to match it.
 
index 054e898..f78457a 100644 (file)
@@ -1492,7 +1492,7 @@ sub _lsft
     }
   # set lowest parts to 0
   while ($dst >= 0) { $x->[$dst--] = 0; }
-  # fix spurios last zero element
+  # fix spurious last zero element
   splice @$x,-1 if $x->[-1] == 0;
   $x;
   }
index 2c80f7f..2e53324 100644 (file)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# test rounding, accuracy, precicion and fallback, round_mode and mixing
+# test rounding, accuracy, precision and fallback, round_mode and mixing
 # of classes under BareCalc
 
 use strict;
index 8c349c9..743752e 100644 (file)
@@ -726,7 +726,7 @@ abc:NaN
 -123456E-2:-1234.56
 1e1:10
 2e-11:0.00000000002
-# excercise _split
+# exercise _split
   .02e-1:0.002
    000001:1
    -00001:-1
index 3123ff8..d5837f0 100644 (file)
@@ -313,7 +313,7 @@ $x = $C->_new("11"); is ($C->_str($C->_fac($x)),'39916800');
 $x = $C->_new("12"); is ($C->_str($C->_fac($x)),'479001600');
 $x = $C->_new("13"); is ($C->_str($C->_fac($x)),'6227020800');
 
-# test that _fac modifes $x in place for small arguments
+# test that _fac modifies $x in place for small arguments
 $x = $C->_new("3"); $C->_fac($x); is ($C->_str($x),'6');
 $x = $C->_new("13"); $C->_fac($x); is ($C->_str($x),'6227020800');
 
index 822b446..47daa40 100644 (file)
@@ -1672,7 +1672,7 @@ inf:0:inf
 84696969696969696943434343434871161616161616161452525252486813131313131313143230042929292929292930:13131313131313131313131313131394949494949494949494949494943535353535353535353535:6449999999999999998
 84696969696969696969696969697497424242424242424242424242385803030303030303030300750000000000000000:13131313131313131313131313131394949494949494949494949494943535353535353535353535:6450000000000000000
 84696969696969696930303030303558030303030303030057575757537318181818181818199694689393939393939395:13131313131313131313131313131394949494949494949494949494943535353535353535353535:6449999999999999997
-# excercise shortcut for numbers of the same length in div
+# exercise shortcut for numbers of the same length in div
 999999999999999999999999999999999:999999999999999999999999999999999:1
 999999999999999999999999999999999:888888888888888888888888888888888:1
 999999999999999999999999999999999:777777777777777777777777777777777:1
index 5fa2531..6cdb4ac 100644 (file)
@@ -83,7 +83,7 @@ $try .= ' $x = 2**150; bgcd($x); $x = "$x";';
 $ans = eval $try;
 is ( $ans, "1427247692705959881058285969449495136382746624");
 
-# test wether Math::BigInt::Scalar via use works (w/ dff. spellings of calc)
+# test whether Math::BigInt::Scalar via use works (w/ dff. spellings of calc)
 $try = "use $class ($version,'lib','Scalar');";
 $try .= ' $x = 2**10; $x = "$x";';
 $ans = eval $try; is ( $ans, "1024");
index 50e0ebc..7b2c946 100644 (file)
@@ -1,4 +1,4 @@
-# test rounding, accuracy, precicion and fallback, round_mode and mixing
+# test rounding, accuracy, precision and fallback, round_mode and mixing
 # of classes
 
 # Make sure you always quote any bare floating-point values, lest 123.46 will
@@ -274,8 +274,8 @@ foreach my $c ($mbi,$mbf)
   }
 
 ###############################################################################
-# test wether operations round properly afterwards
-# These tests are not complete, since they do not excercise every "return"
+# test whether operations round properly afterwards
+# These tests are not complete, since they do not exercise every "return"
 # statement in the op's. But heh, it's better than nothing...
 
 $x = $mbf->new('123.456');
index 63e9bb3..7d8afb0 100644 (file)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# test rounding, accuracy, precicion and fallback, round_mode and mixing
+# test rounding, accuracy, precision and fallback, round_mode and mixing
 # of classes
 
 use strict;
index 3ccbca0..6317e97 100644 (file)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# test rounding, accuracy, precicion and fallback, round_mode and mixing
+# test rounding, accuracy, precision and fallback, round_mode and mixing
 # of classes
 
 use strict;
index 5c8d11a..088c567 100644 (file)
@@ -581,7 +581,7 @@ abc:abc:NaN
 +4294967296:+32:1
 +281474976710656:+48:1
 +2:-2:NaN
-# excercise base 10
+# exercise base 10
 -1234:0:10:-1234
 +1234:0:10:1234
 +200:2:10:2
index e2619e8..ad07009 100644 (file)
@@ -6,14 +6,14 @@
 # The following hash values are used:
 #   sign : +,-,NaN,+inf,-inf
 #   _d   : denominator
-#   _n   : numeraotr (value = _n/_d)
+#   _n   : numerator (value = _n/_d)
 #   _a   : accuracy
 #   _p   : precision
 # You should not look at the innards of a BigRat - use the methods for this.
 
 package Math::BigRat;
 
-# anythig older is untested, and unlikely to work
+# anything older is untested, and unlikely to work
 use 5.006;
 use strict;
 use Carp ();
@@ -1756,7 +1756,7 @@ in string form.
 
        $len = $x->length();
 
-Return the length of $x in digitis for integer values.
+Return the length of $x in digits for integer values.
 
 =head2 digit()
 
@@ -1894,7 +1894,7 @@ Please see the documentation in L<Math::BigInt> for further details.
        print $x->bstr(),"\n";                  # prints 1/2
        print $x->bsstr(),"\n";                 # prints 1/2
 
-Return a string representating this object.
+Return a string representing this object.
 
 =head2 bacmp()/bcmp()
 
index fcc09c7..9c884b7 100644 (file)
@@ -646,7 +646,7 @@ abc:NaN
 -123456E-2:-1234.56
 1e1:10
 2e-11:0.00000000002
-# excercise _split
+# exercise _split
   .02e-1:0.002
    000001:1
    -00001:-1
index a00c655..a55cbb5 100644 (file)
@@ -26,6 +26,6 @@ $x = $rat->new('1/3'); is ($x->bsqrt(),
  '1000000000000000000000000000000000000000/1732050807568877293527446341505872366943',
  'bsqrt(1/3)');
 
-# all tests successfull
+# all tests successful
 
 1;
index c4a21ef..4c869d6 100644 (file)
         - Fix from Mark Fowler - XSLoader is autogenerated too
 
 1.9     22nd April 2003
-        - incorported PodMaster's corelist script
+        - incorporated PodMaster's corelist script
 
 1.8    13th February 2003
        - reformatted Changes file to use makereadme
index 43a13f5..7e7f69f 100644 (file)
@@ -161,11 +161,11 @@ CHANGES
        - Can now select device for udp and icmp protocols.
          Patch by sarfata@altern.org (Thomas Sarlandie).
        - Add new "syn" protocol to allow for mass parallel
-         (syncronous) TCP service reachability checking.
+         (synchronous) TCP service reachability checking.
        - Add ack() method to utilize non-blocking connect
          (SYN/ACK) feature of the "syn" protocol.
        - Add demo/fping script as a "syn" demonstration.
-       - Compatibiliy patches for cygwin.
+       - Compatibility patches for cygwin.
          Spot by frazee.23@osu.edu (Joseph Frazee)
 
 2.20  Jun 20 10:00 2002
index 72b99fe..f280cb2 100644 (file)
@@ -1545,7 +1545,7 @@ be 1 if the host is reachable and 0 if it is not.  For most practical
 purposes, undef and 0 and can be treated as the same case.  In array
 context, the elapsed time as well as the string form of the ip the
 host resolved to are also returned.  The elapsed time value will
-be a float, as retuned by the Time::HiRes::time() function, if hires()
+be a float, as returned by the Time::HiRes::time() function, if hires()
 has been previously called, otherwise it is returned as an integer.
 
 =item $p->source_verify( { 0 | 1 } );
index 654785a..df11ff6 100644 (file)
@@ -499,7 +499,7 @@ sub find_good_formatter_class {
       } else {
         $^W = 0;
         # The average user just has no reason to be seeing
-        #  $^W-suppressable warnings from the the require!
+        #  $^W-suppressible warnings from the the require!
       }
 
       eval "require $c";
@@ -1128,7 +1128,7 @@ sub render_findings {
     } else {
       $^W = 0;
       # The average user just has no reason to be seeing
-      #  $^W-suppressable warnings from the formatting!
+      #  $^W-suppressible warnings from the formatting!
     }
           
     eval {  $formatter->parse_from_file( $file, $out_fh )  };
index 1562ec8..5b29fd9 100644 (file)
@@ -21,7 +21,7 @@ use Pod::Perldoc ();
 use File::Spec::Functions qw(catfile);
 
 use Tk;
-die join '', __PACKAGE__, " doesn't work nice with Tk.pm verison $Tk::VERSION"
+die join '', __PACKAGE__, " doesn't work nice with Tk.pm version $Tk::VERSION"
  if $Tk::VERSION eq '800.003';
 
 BEGIN { eval { require Tk::FcyEntry; }; };
index 385d661..22fb563 100644 (file)
@@ -21,7 +21,7 @@ use Opcode 1.00, qw(opdesc opset opset_to_ops opset_to_hex
 
 use Safe 1.00;
 
-my $last_test; # initalised at end
+my $last_test; # initialised at end
 print "1..$last_test\n";
 
 my $t = 1;
index 2548dcc..b861884 100644 (file)
@@ -18,7 +18,7 @@ use Opcode 1.00, qw(opdesc opset opset_to_ops opset_to_hex
 
 use Safe 1.00;
 
-my $last_test; # initalised at end
+my $last_test; # initialised at end
 print "1..$last_test\n";
 
 # Set up a package namespace of things to be visible to the unsafe code
@@ -120,7 +120,7 @@ print $@ =~ /foo bar/ ? "ok 29\n" : "not ok 29\n";
   
 my $t = 30;
 $! = 0;
-my $nosuch = '/non/existant/file.name';
+my $nosuch = '/non/existent/file.name';
 open(NOSUCH, $nosuch);
 if ($@) {
     my $errno  = $!;
index 95867c5..ad23775 100644 (file)
@@ -26,7 +26,7 @@ my $r = $c->reval($no_warn_redef . q!
     (bless[],"Foo")->isa("Foo");
 !);
 
-is( $r, "pwned", "isa overriden in compartment" );
+is( $r, "pwned", "isa overridden in compartment" );
 is( (bless[],"Foo")->isa("Foo"), 1, "... but not outside" );
 
 sub Foo::foo {}
@@ -36,7 +36,7 @@ $r = $c->reval($no_warn_redef . q!
     (bless[],"Foo")->can("foo");
 !);
 
-is( $r, "pwned", "can overriden in compartment" );
+is( $r, "pwned", "can overridden in compartment" );
 is( (bless[],"Foo")->can("foo"), \&Foo::foo, "... but not outside" );
 
 $r = $c->reval(q!
index faff566..51642d2 100644 (file)
@@ -177,7 +177,7 @@ Fri Jun  7 23:55:41 BST 2002   Nicholas Clark
        The bug was introduced as development perl change 16442 (on
        2002/05/07), so has been present since 2.00.
        Patches to introduce more regression tests to reduce the chance of
-       a reoccurance of this sort of goof are always welcome.
+       a reoccurence of this sort of goof are always welcome.
        
 Thu May 30 20:31:08 BST 2002   Nicholas Clark <nick@ccl4.org>
 
@@ -186,7 +186,7 @@ Thu May 30 20:31:08 BST 2002   Nicholas Clark <nick@ccl4.org>
         5.6.x introduced the ability to have IVs as long long.  However,
         Configure still defined BYTEORDER based on the size of a long.
         Storable uses the BYTEORDER value as part of the header, but
-        doesn't explicity store sizeof(IV) anywhere in the header.
+        doesn't explicitly store sizeof(IV) anywhere in the header.
         Hence on 5.6.x built with IV as long long on a platform that
         uses Configure (ie most things except VMS and Windows) headers
         are identical for the different IV sizes, despite the files
@@ -580,7 +580,7 @@ Mon Jul 12 14:37:19 METDST 1999   Raphael Manfredi <Raphael_Manfredi@pobox.com>
 
         changed my e-mail to pobox.
 
-        mentionned it is not thread-safe.
+        mentioned it is not thread-safe.
 
         updated version number.
 
@@ -610,8 +610,8 @@ Fri Jun 12 11:50:04 METDST 1998   Raphael Manfredi <Raphael_Manfredi@grenoble.hp
         scalars tagged as being an lvalue are handled as if they were
         not an lvalue at all.  Added test for that LVALUE bug workaround.
 
-        Now handles Perl immortal scalars explicitely, by storing &sv_yes
-        as such, explicitely.
+        Now handles Perl immortal scalars explicitly, by storing &sv_yes
+        as such, explicitly.
 
         Retrieval of non-immortal undef cannot be shared. Previous
         version was over-optimizing by not creating a separate SV for
@@ -673,7 +673,7 @@ Wed Apr  8 13:14:29 METDST 1998   Raphael Manfredi <Raphael_Manfredi@grenoble.hp
 
         Wrote sizeof(SV *) instead of sizeof(I32) when portable, which
         in effect mangled the object tags and prevented portability
-        accross 32/64 bit architectures!
+        across 32/64 bit architectures!
 
 Wed Mar 25 14:57:02 MET 1998   Raphael Manfredi <Raphael_Manfredi@grenoble.hp.com>
 
@@ -687,7 +687,7 @@ Wed Mar 25 14:57:02 MET 1998   Raphael Manfredi <Raphael_Manfredi@grenoble.hp.co
         exactly what nstore() is meant for...
 
         However, we continue to use SV addresses as tags for plain store(),
-        because benchamarking shows that it saves up to 8% of the store
+        because benchmarking shows that it saves up to 8% of the store
         time, and store() is meant to be fast at the expense of lack
         of portability.
 
index e9def9d..247dcc2 100644 (file)
@@ -19,7 +19,7 @@
 | Manfredi for providing us with this very useful module.
 +=======================================================================
 
-The Storable extension brings persistency to your data.
+The Storable extension brings persistence to your data.
 
 You may recursively store to disk any data structure, no matter how
 complex and circular it is, provided it contains only SCALAR, ARRAY,
@@ -44,10 +44,10 @@ To compile this extension, run:
     make
     make install
 
-There is an embeded POD manual page in Storable.pm.
+There is an embedded POD manual page in Storable.pm.
 
 Storable was written by Raphael Manfredi <Raphael_Manfredi@pobox.com>
-Maitainance is now done by the perl5-porters <perl5-porters@perl.org>
+Maintenance is now done by the perl5-porters <perl5-porters@perl.org>
 
 Please e-mail us with problems, bug fixes, comments and complaints,
 although if you have complements you should send them to Raphael.
index 8368928..689cdb9 100644 (file)
@@ -914,7 +914,7 @@ version of Storable fully support (but see discussion of
 C<$Storable::accept_future_minor> above).  The constant
 C<Storable::BIN_WRITE_VERSION_NV> function returns what file version
 is written and might be less than C<Storable::BIN_VERSION_NV> in some
-configuations.
+configurations.
 
 =item C<major>, C<minor>
 
index 3578825..317ada7 100644 (file)
@@ -180,7 +180,7 @@ typedef double NV;                  /* Older perls lack the NV type */
 
 #define SX_OBJECT      C(0)    /* Already stored object */
 #define SX_LSCALAR     C(1)    /* Scalar (large binary) follows (length, data) */
-#define SX_ARRAY       C(2)    /* Array forthcominng (size, item list) */
+#define SX_ARRAY       C(2)    /* Array forthcoming (size, item list) */
 #define SX_HASH                C(3)    /* Hash forthcoming (size, key/value pair list) */
 #define SX_REF         C(4)    /* Reference to object forthcoming */
 #define SX_UNDEF       C(5)    /* Undefined scalar */
@@ -249,12 +249,12 @@ typedef double NV;                        /* Older perls lack the NV type */
  * keys are not enough a motivation to reclaim that space).
  *
  * This structure is also used for memory store/retrieve operations which
- * happen in a fixed place before being malloc'ed elsewhere if persistency
+ * happen in a fixed place before being malloc'ed elsewhere if persistence
  * is required. Hence the aptr pointer.
  */
 struct extendable {
        char *arena;            /* Will hold hash key strings, resized as needed */
-       STRLEN asiz;            /* Size of aforementionned buffer */
+       STRLEN asiz;            /* Size of aforementioned buffer */
        char *aptr;                     /* Arena pointer, for in-place read/write ops */
        char *aend;                     /* First invalid address */
 };
@@ -267,7 +267,7 @@ struct extendable {
  *
  * At retrieve time:
  * An array table records the objects which have already been retrieved,
- * as seen by the tag determind by counting the objects themselves. The
+ * as seen by the tag determined by counting the objects themselves. The
  * reference to that retrieved object is kept in the table, and is returned
  * when an SX_OBJECT is found bearing that same tag.
  *
@@ -369,7 +369,7 @@ typedef struct stcxt {
        SV *eval;           /* whether to eval source code */
        int canonical;          /* whether to store hashes sorted by key */
 #ifndef HAS_RESTRICTED_HASHES
-        int derestrict;         /* whether to downgrade restrcted hashes */
+        int derestrict;         /* whether to downgrade restricted hashes */
 #endif
 #ifndef HAS_UTF8_ALL
         int use_bytes;         /* whether to bytes-ify utf8 */
@@ -791,12 +791,12 @@ static const char magicstr[] = "pst0";             /* Used as a magic number */
 /* 5.6.x introduced the ability to have IVs as long long.
    However, Configure still defined BYTEORDER based on the size of a long.
    Storable uses the BYTEORDER value as part of the header, but doesn't
-   explicity store sizeof(IV) anywhere in the header.  Hence on 5.6.x built
+   explicitly store sizeof(IV) anywhere in the header.  Hence on 5.6.x built
    with IV as long long on a platform that uses Configure (ie most things
    except VMS and Windows) headers are identical for the different IV sizes,
    despite the files containing some fields based on sizeof(IV)
    Erk. Broken-ness.
-   5.8 is consistent - the following redifinition kludge is only needed on
+   5.8 is consistent - the following redefinition kludge is only needed on
    5.6.x, but the interwork is needed on 5.8 while data survives in files
    with the 5.6 header.
 
@@ -1299,7 +1299,7 @@ static void init_store_context(
         * values stored are not real SV, just integers cast to (SV *),
         * which explains the freeing below.
         *
-        * It is also one possible bottlneck to achieve good storing speed,
+        * It is also one possible bottleneck to achieve good storing speed,
         * so the "shared keys" optimization is turned off (unlikely to be
         * of any use here), and the hash table is "pre-extended". Together,
         * those optimizations increase the throughput by 12%.
@@ -1406,7 +1406,7 @@ static void clean_store_context(pTHX_ stcxt_t *cxt)
         *
         * The surrounding if() protection has been added because there might be
         * some cases where this routine is called more than once, during
-        * exceptionnal events.  This was reported by Marc Lehmann when Storable
+        * exceptional events.  This was reported by Marc Lehmann when Storable
         * is executed from mod_perl, and the fix was suggested by him.
         *              -- RAM, 20/12/2000
         */
@@ -1486,7 +1486,7 @@ static void init_retrieve_context(pTHX_ stcxt_t *cxt, int optype, int is_tainted
        /*
         * If retrieving an old binary version, the cxt->retrieve_vtbl variable
         * was set to sv_old_retrieve. We'll need a hash table to keep track of
-        * the correspondance between the tags and the tag number used by the
+        * the correspondence between the tags and the tag number used by the
         * new retrieve routines.
         */
 
@@ -1947,7 +1947,7 @@ static int known_class(
 }
 
 /***
- *** Sepcific store routines.
+ *** Specific store routines.
  ***/
 
 /*
@@ -2199,7 +2199,7 @@ static int store_scalar(pTHX_ stcxt_t *cxt, SV *sv)
  *
  * Store an array.
  *
- * Layout is SX_ARRAY <size> followed by each item, in increading index order.
+ * Layout is SX_ARRAY <size> followed by each item, in increasing index order.
  * Each item is stored as <object>.
  */
 static int store_array(pTHX_ stcxt_t *cxt, AV *av)
@@ -2279,7 +2279,7 @@ sortcmp(const void *a, const void *b)
  * Values are stored as <object>.
  * Keys are stored as <flags> <length> <data>, the <data> section being omitted
  * if length is 0.
- * Currently the only hash flag is "restriced"
+ * Currently the only hash flag is "restricted"
  * Key flags are as for hv.h
  */
 static int store_hash(pTHX_ stcxt_t *cxt, HV *hv)
@@ -2767,7 +2767,7 @@ static int store_tied(pTHX_ stcxt_t *cxt, SV *sv)
         * Note that we store the Perl object as-is. We don't call its FETCH
         * method along the way. At retrieval time, we won't call its STORE
         * method either, but the tieing magic will be re-installed. In itself,
-        * that ensures that the tieing semantics are preserved since futher
+        * that ensures that the tieing semantics are preserved since further
         * accesses on the retrieved object will indeed call the magic methods...
         */
 
@@ -3788,7 +3788,7 @@ static int do_store(
         * Ensure sv is actually a reference. From perl, we called something
         * like:
         *       pstore(aTHX_ FILE, \@array);
-        * so we must get the scalar value behing that reference.
+        * so we must get the scalar value behind that reference.
         */
 
        if (!SvROK(sv))
@@ -4225,7 +4225,7 @@ static SV *retrieve_hook(pTHX_ stcxt_t *cxt, const char *cname)
         *
         * We read object tags and we can convert them into SV* on the fly
         * because we know all the references listed in there (as tags)
-        * have been already serialized, hence we have a valid correspondance
+        * have been already serialized, hence we have a valid correspondence
         * between each of those tags and the recreated SV.
         */
 
@@ -5084,7 +5084,7 @@ static SV *retrieve_sv_no(pTHX_ stcxt_t *cxt, const char *cname)
  * retrieve_array
  *
  * Retrieve a whole array.
- * Layout is SX_ARRAY <size> followed by each item, in increading index order.
+ * Layout is SX_ARRAY <size> followed by each item, in increasing index order.
  * Each item is stored as <object>.
  *
  * When we come here, SX_ARRAY has been read already.
@@ -5477,7 +5477,7 @@ static SV *retrieve_code(pTHX_ stcxt_t *cxt, const char *cname)
  *
  * Retrieve a whole array in pre-0.6 binary format.
  *
- * Layout is SX_ARRAY <size> followed by each item, in increading index order.
+ * Layout is SX_ARRAY <size> followed by each item, in increasing index order.
  * Each item is stored as SX_ITEM <object> or SX_IT_UNDEF for "holes".
  *
  * When we come here, SX_ARRAY has been read already.
@@ -5770,7 +5770,7 @@ static SV *magic_check(pTHX_ stcxt_t *cxt)
     if ((cxt->netorder = (use_network_order & 0x1)))   /* Extra () for -Wall */
         return &PL_sv_undef;                   /* No byte ordering info */
 
-    /* In C truth is 1, falsehood is 0. Very convienient.  */
+    /* In C truth is 1, falsehood is 0. Very convenient.  */
     use_NV_size = version_major >= 2 && version_minor >= 2;
 
     if (version_major >= 0) {
@@ -5839,7 +5839,7 @@ static SV *retrieve(pTHX_ stcxt_t *cxt, const char *cname)
        /*
         * Grab address tag which identifies the object if we are retrieving
         * an older format. Since the new binary format counts objects and no
-        * longer explicitely tags them, we must keep track of the correspondance
+        * longer explicitly tags them, we must keep track of the correspondence
         * ourselves.
         *
         * The following section will disappear one day when the old format is
@@ -6189,7 +6189,7 @@ static SV *do_retrieve(
         * so that we can croak when behaviour cannot be re-installed, and also
         * avoid testing for overloading magic at each reference retrieval.
         *
-        * Unfortunately, the root reference is implicitely stored, so we must
+        * Unfortunately, the root reference is implicitly stored, so we must
         * check for possible overloading now.  Furthermore, if we don't restore
         * overloading, we cannot croak as if the original ref was, because we
         * have no way to determine whether it was an overloaded ref or not in
index 7b14032..d05e9ba 100644 (file)
@@ -51,7 +51,7 @@ is( "$struct->[1]", "$thawed->[1]", 'Singleton thaws correctly' );
 
 # We can also test this empirically
 $struct->[1]->{value} = 'Goodbye cruel world!';
-is_deeply( $struct, $thawed, 'Empiric testing corfirms correct behaviour' );
+is_deeply( $struct, $thawed, 'Empiric testing confirms correct behaviour' );
 
 # End Tests
 ###########
index 243ffa5..7085d36 100644 (file)
@@ -22,7 +22,7 @@ use vars qw($debugging $verbose);
 
 use Test::More tests => 8;
 
-# Uncomment the folowing line to get a dump of the constructed data structure
+# Uncomment the following line to get a dump of the constructed data structure
 # (you may want to reduce the size of the hashes too)
 # $debugging = 1;
 
@@ -106,7 +106,7 @@ is($x1, $x2);
 is($x1, $x3);
 
 # In normal mode it is exceedingly unlikely that the frozen
-# representaions of all the hashes will be the same (normally the hash
+# representations of all the hashes will be the same (normally the hash
 # elements are frozen in the order they are stored internally,
 # i.e. pseudo-randomly).
 
index 7dca119..fd635c0 100644 (file)
@@ -34,7 +34,7 @@ my $array = [ $ddd ];
 my $string = Storable::freeze( $array );
 my $thawed = Storable::thaw( $string );
 
-# is_deeply infinite loops in ciculars, so do it manually
+# is_deeply infinite loops in circulars, so do it manually
 # is_deeply( $array, $thawed, 'Circular hooked objects work' );
 is( ref($thawed), 'ARRAY', 'Top level ARRAY' );
 is( scalar(@$thawed), 1, 'ARRAY contains one element' );
index 8520c59..db7d457 100644 (file)
@@ -96,7 +96,7 @@ sub thaw_scalar {
     # TODO tests.
     warn "# Test skipped because eq is buggy for certain Unicode cases in 5.6.0";
     warn "# Please upgrade to 5.6.1\n";
-    ok ("I'd really like to fail this test on 5.6.0 but I'm told that CPAN auto-dependancies mess up, and certain vendors only ship 5.6.0. Get your vendor to ugrade. Else upgrade your vendor.");
+    ok ("I'd really like to fail this test on 5.6.0 but I'm told that CPAN auto-dependencies mess up, and certain vendors only ship 5.6.0. Get your vendor to ugrade. Else upgrade your vendor.");
     # One such vendor being the folks who brought you LONG_MIN as a positive
     # integer.
   } else {
index 2a14710..bf1441b 100644 (file)
@@ -99,7 +99,7 @@ is($$$t, 'snow');
 
 
 #---
-# blessed reference to overloded object.
+# blessed reference to overloaded object.
 {
   my $a = bless [88], 'OVERLOADED';
   my $c = thaw freeze bless \$a, 'main';
index b21b37c..c27d874 100644 (file)
@@ -20,7 +20,7 @@ sub BEGIN {
            print "1..0 # Skip: No Hash::Util pre 5.005\n";
            exit 0;
            # And doing this seems on 5.004 seems to create bogus warnings about
-           # unitialized variables, or coredumps in Perl_pp_padsv
+           # uninitialized variables, or coredumps in Perl_pp_padsv
        } elsif (!eval "require Hash::Util") {
             if ($@ =~ /Can\'t locate Hash\/Util\.pm in \@INC/s) {
                 print "1..0 # Skip: No Hash::Util:\n";
index 4add560..e9652f0 100644 (file)
@@ -31,7 +31,7 @@ sub main'dump {
 # This is the root recursive dumping routine that may indirectly be
 # called by one of the routine it calls...
 # The link parameter is set to false when the reference passed to
-# the routine is an internal temporay variable, implying the object's
+# the routine is an internal temporary variable, implying the object's
 # address is not to be dumped in the %dumped table since it's not a
 # user-visible object.
 sub recursive_dump {
index 7e2adb0..6c6381a 100644 (file)
@@ -131,7 +131,7 @@ tie $scalar, TIED_SCALAR;
 
 ### If I say
 ###   $hash{'attribute'} = $d;
-### below, then dump() incorectly dumps the hash value as a string the second
+### below, then dump() incorrectly dumps the hash value as a string the second
 ### time it is reached. I have not investigated enough to tell whether it's
 ### a bug in my dump() routine or in the Perl tieing mechanism.
 $scalar = 'foo';
index 284a44a..fd20ef6 100644 (file)
@@ -37,7 +37,7 @@ $x = chr (175) . chr (256);
 chop $x;
 is($x, ${thaw freeze \$x});
 
-# Storable needs to cope if a frozen string happens to be internall utf8
+# Storable needs to cope if a frozen string happens to be internal utf8
 # encoded
 
 $x = chr 256;
@@ -50,6 +50,6 @@ is($x, ${thaw $data});
 
 
 $data .= chr 256;
-# This definately isn't valid
+# This definitely isn't valid
 eval {thaw $data};
 like($@, qr/corrupt.*characters outside/);
index 6dda10b..0a25aa3 100644 (file)
 
 2.03 Sun Sep 14 20:01:48 PDT 2003
     * phashes produced via fields::new() will now not warn when used for
-      forward compatiblity purposes
+      forward compatibility purposes
     - Reformatting the docs to make them a bit more readable
     - Making it clear that fields::new() is usable with or without
       pseudohashes
-    * Fixing inheritence from classes which have only private fields
-    * Fixing inheritence when an intermediate class has no fields.
+    * Fixing inheritance from classes which have only private fields
+    * Fixing inheritance when an intermediate class has no fields.
       [perlbug 20020326.004]
     - Removing uses of 'our' from tests for backwards compat.
 
@@ -62,4 +62,4 @@
     - Forgot to set the INSTALLDIRS to 'perl'
 
 2.0  Wed Aug 27 21:47:51 PDT 2003
-    * Seperated from Class::Fields
+    * Separated from Class::Fields
index 500486b..62d4d9a 100644 (file)
@@ -238,7 +238,7 @@ package main;
        my X $self = shift;
        $self = fields::new($self) unless ref $self;
        $self->{X1} = "x1";
-       # FIXME. This code is dead on blead becase the test is skipped.
+       # FIXME. This code is dead on blead because the test is skipped.
        # The test states that it's being skipped because restricted hashes
        # don't support a feature. Presumably we need to make that feature
        # supported. Bah.
index affe4b8..a298848 100644 (file)
@@ -180,19 +180,19 @@ sub import
       # this causes a different low lib to take care...
       $lib_kind = $1; $lib_kind = 'lib' if $lib_kind eq 'l';
       $lib = $_[$i+1] || '';
-      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existant..."
+      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existent..."
       splice @a, $j, $s; $j -= $s; $i++;
       }
     elsif ($_[$i] =~ /^(a|accuracy)$/)
       {
       $a = $_[$i+1];
-      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existant..."
+      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existent..."
       splice @a, $j, $s; $j -= $s; $i++;
       }
     elsif ($_[$i] =~ /^(p|precision)$/)
       {
       $p = $_[$i+1];
-      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existant..."
+      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existent..."
       splice @a, $j, $s; $j -= $s; $i++;
       }
     elsif ($_[$i] =~ /^(v|version)$/)
@@ -373,7 +373,7 @@ than or equal to zero. See Math::BigInt's bround() function for details.
 
        perl -Mbigint=a,2 -le 'print 12345+1'
 
-Note that setting precision and accurary at the same time is not possible.
+Note that setting precision and accuracy at the same time is not possible.
 
 =item p or precision
 
@@ -387,7 +387,7 @@ See Math::BigInt's bfround() function for details.
 
        perl -Mbignum=p,5 -le 'print 123456789+123'
 
-Note that setting precision and accurary at the same time is not possible.
+Note that setting precision and accuracy at the same time is not possible.
 
 =item t or trace
 
@@ -447,7 +447,7 @@ Math::BigInt::Bar, and when this also fails, revert to Math::BigInt::Calc:
 
 Using C<lib> warns if none of the specified libraries can be found and
 L<Math::BigInt> did fall back to one of the default libraries.
-To supress this warning, use C<try> instead:
+To suppress this warning, use C<try> instead:
 
         use bignum try => 'GMP';
 
index fc0da7c..6d4b792 100644 (file)
@@ -116,14 +116,14 @@ sub import
       {
       # this causes upgrading
       $upgrade = $_[$i+1];             # or undef to disable
-      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existant..."
+      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existent..."
       splice @a, $j, $s; $j -= $s; $i++;
       }
     elsif ($_[$i] eq 'downgrade')
       {
       # this causes downgrading
       $downgrade = $_[$i+1];           # or undef to disable
-      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existant..."
+      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existent..."
       splice @a, $j, $s; $j -= $s; $i++;
       }
     elsif ($_[$i] =~ /^(l|lib|try|only)$/)
@@ -131,19 +131,19 @@ sub import
       # this causes a different low lib to take care...
       $lib_kind = $1; $lib_kind = 'lib' if $lib_kind eq 'l';
       $lib = $_[$i+1] || '';
-      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existant..."
+      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existent..."
       splice @a, $j, $s; $j -= $s; $i++;
       }
     elsif ($_[$i] =~ /^(a|accuracy)$/)
       {
       $a = $_[$i+1];
-      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existant..."
+      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existent..."
       splice @a, $j, $s; $j -= $s; $i++;
       }
     elsif ($_[$i] =~ /^(p|precision)$/)
       {
       $p = $_[$i+1];
-      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existant..."
+      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existent..."
       splice @a, $j, $s; $j -= $s; $i++;
       }
     elsif ($_[$i] =~ /^(v|version)$/)
@@ -386,7 +386,7 @@ than or equal to zero. See Math::BigInt's bround() function for details.
 
        perl -Mbignum=a,50 -le 'print sqrt(20)'
 
-Note that setting precision and accurary at the same time is not possible.
+Note that setting precision and accuracy at the same time is not possible.
 
 =item p or precision
 
@@ -397,7 +397,7 @@ integer. See Math::BigInt's bfround() function for details.
 
        perl -Mbignum=p,-50 -le 'print sqrt(20)'
 
-Note that setting precision and accurary at the same time is not possible.
+Note that setting precision and accuracy at the same time is not possible.
 
 =item t or trace
 
@@ -570,7 +570,7 @@ Please see respective module documentation for further details.
 
 Using C<lib> warns if none of the specified libraries can be found and
 L<Math::BigInt> did fall back to one of the default libraries.
-To supress this warning, use C<try> instead:
+To suppress this warning, use C<try> instead:
 
        use bignum try => 'GMP';
 
@@ -592,7 +592,7 @@ underneath at all.
 
 =head2 SIGN
 
-The sign is either '+', '-', 'NaN', '+inf' or '-inf' and stored seperately.
+The sign is either '+', '-', 'NaN', '+inf' or '-inf' and stored separately.
 You can access it with the sign() method.
 
 A sign of 'NaN' is used to represent the result when input arguments are not
index 10d0cd4..684a999 100644 (file)
@@ -115,7 +115,7 @@ sub import
       {
       # this causes upgrading
       $upgrade = $_[$i+1];             # or undef to disable
-      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existant..."
+      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existent..."
       splice @a, $j, $s; $j -= $s;
       }
     elsif ($_[$i] =~ /^(l|lib|try|only)$/)
@@ -123,19 +123,19 @@ sub import
       # this causes a different low lib to take care...
       $lib_kind = $1; $lib_kind = 'lib' if $lib_kind eq 'l';
       $lib = $_[$i+1] || '';
-      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existant..."
+      my $s = 2; $s = 1 if @a-$j < 2;  # avoid "can not modify non-existent..."
       splice @a, $j, $s; $j -= $s; $i++;
       }
     elsif ($_[$i] =~ /^(a|accuracy)$/)
       {
       $a = $_[$i+1];
-      my $s = 2; $s = 1 if @a-$j < 2;   # avoid "can not modify non-existant..."
+      my $s = 2; $s = 1 if @a-$j < 2;   # avoid "can not modify non-existent..."
       splice @a, $j, $s; $j -= $s; $i++;
       }
     elsif ($_[$i] =~ /^(p|precision)$/)
       {
       $p = $_[$i+1];
-      my $s = 2; $s = 1 if @a-$j < 2;   # avoid "can not modify non-existant..."
+      my $s = 2; $s = 1 if @a-$j < 2;   # avoid "can not modify non-existent..."
       splice @a, $j, $s; $j -= $s; $i++;
       }
     elsif ($_[$i] =~ /^(v|version)$/)
@@ -257,7 +257,7 @@ bigrat - Transparent BigNumber/BigRational support for Perl
     print 1/3,"\n";                    # 0.33333...
   }
 
-  # Note that this will make hex() and oct() be globally overriden:
+  # Note that this will make hex() and oct() be globally overridden:
   use bigrat qw/hex oct/;
   print hex("0x1234567890123490"),"\n";
   print oct("01234567890123490"),"\n";
@@ -302,7 +302,7 @@ Math::BigInt::Bar, and when this also fails, revert to Math::BigInt::Calc:
 
 Using C<lib> warns if none of the specified libraries can be found and
 L<Math::BigInt> did fall back to one of the default libraries.
-To supress this warning, use C<try> instead:
+To suppress this warning, use C<try> instead:
 
         use bignum try => 'GMP';
 
@@ -325,7 +325,7 @@ minus infinity. You will get '+inf' when dividing a positive number by 0, and
 
 Since all numbers are not objects, you can use all functions that are part of
 the BigInt or BigFloat API. It is wise to use only the bxxx() notation, and not
-the fxxx() notation, though. This makes you independed on the fact that the
+the fxxx() notation, though. This makes you independent on the fact that the
 underlying object might morph into a different class than BigFloat.
 
 =over 2
@@ -399,7 +399,7 @@ This method only works on Perl v5.9.4 or later.
 
 Math with the numbers is done (by default) by a module called
 
-=head2 Cavaet
+=head2 Caveat
 
 But a warning is in order. When using the following to make a copy of a number,
 only a shallow copy will be made.
@@ -452,7 +452,7 @@ than or equal to zero. See Math::BigInt's bround() function for details.
 
        perl -Mbigrat=a,50 -le 'print sqrt(20)'
 
-Note that setting precision and accurary at the same time is not possible.
+Note that setting precision and accuracy at the same time is not possible.
 
 =item p or precision
 
@@ -463,7 +463,7 @@ integer. See Math::BigInt's bfround() function for details.
 
        perl -Mbigrat=p,-50 -le 'print sqrt(20)'
 
-Note that setting precision and accurary at the same time is not possible.
+Note that setting precision and accuracy at the same time is not possible.
 
 =item t or trace
 
@@ -492,7 +492,7 @@ and cannot be disabled with "no bigint;".
 =item oct
 
 Override the built-in oct() method with a version that can handle big
-integers. Note that under Perl v5.9.4 or ealier, this will be global
+integers. Note that under Perl v5.9.4 or earlier, this will be global
 and cannot be disabled with "no bigint;".
 
 =item v or version
index e9de090..431a6a6 100644 (file)
@@ -64,7 +64,7 @@ like (ref(4.5+4.5), qr/^Math::BigInt/);
 
 
 ###############################################################################
-# accurarcy and precision
+# accuracy and precision
 
 is (bigint->accuracy(), undef);
 is (bigint->accuracy(12),12);
index 6cef537..562564d 100644 (file)
@@ -36,7 +36,7 @@ is (12->bfac(),479001600);
 is (1/3, '0.3333333333333333333333333333333333333333');
 
 ###############################################################################
-# accurarcy and precision
+# accuracy and precision
 
 is (bignum->accuracy(), undef);
 is (bignum->accuracy(12),12);
index 2865453..7f40d62 100644 (file)
@@ -40,7 +40,7 @@ is (3/7 / 1,'3/7');
 is (3/7 / 1.5,'2/7');
 
 ###############################################################################
-# accurarcy and precision
+# accuracy and precision
 
 is (bigrat->accuracy(), undef);
 is (bigrat->accuracy(12),12);
index e92d33d..7f1cd06 100644 (file)
 #define UL_MAGIC_SIG 0x554C  /* UL = user lock */
 
 /*
- * The shared things need an intepreter to live in ...
+ * The shared things need an interpreter to live in ...
  */
 PerlInterpreter *PL_sharedsv_space;             /* The shared sv space */
 /* To access shared space we fake aTHX in this scope and thread's context */
@@ -1163,7 +1163,7 @@ Perl_sharedsv_locksv(pTHX_ SV *sv)
 
 /* Can a shared object be destroyed?
  * True if not a shared,
- * or if detroying last proxy on a shared object
+ * or if destroying last proxy on a shared object
  */
 #ifdef PL_destroyhook
 bool
@@ -1178,7 +1178,7 @@ Perl_shared_object_destroy(pTHX_ SV *sv)
 }
 #endif
 
-/* veto signal despatch if we have the lock */
+/* veto signal dispatch if we have the lock */
 
 #ifdef PL_signalhook
 
index 5cc6a22..55cfb09 100644 (file)
@@ -51,7 +51,7 @@ ok(5, $$foo eq "yeah", "Check that assignment works");
 $$foo = "yeah2";
 ok(6, $$foo eq "yeah2", "Check that deref assignment works");
 threads->create(sub {$bar = "yeah3"})->join();
-ok(7, $$foo eq "yeah3", "Check that other thread assignemtn works");
+ok(7, $$foo eq "yeah3", "Check that other thread assignment works");
 threads->create(sub {$foo = "artur"})->join();
 ok(8, $foo eq "artur", "Check that uncopupling the ref works");
 my $baz;
index d41199a..c40fe18 100644 (file)
@@ -56,7 +56,7 @@ sub ok
 ### Start of Testing ###
 ok(1, 'Loaded');
 
-# Tests freeing the Perl interperter for each thread
+# Tests freeing the Perl interpreter for each thread
 # See http://www.nntp.perl.org/group/perl.perl5.porters/110772 for details
 
 my ($COUNT, $STARTED) :shared;
index 9976130..8bb5580 100644 (file)
@@ -61,7 +61,7 @@ sub ok
 ### Start of Testing ###
 ok(1, 'Loaded');
 
-# Tests freeing the Perl interperter for each thread
+# Tests freeing the Perl interpreter for each thread
 # See http://www.nntp.perl.org/group/perl.perl5.porters/110772 for details
 
 my $COUNT;
index ec2bf02..3f28c0f 100644 (file)
@@ -137,7 +137,7 @@ for my $decl ('my $x : unique', 'sub foo : unique') {
 }
 
 
-# Returing a closure from a thread caused problems. If the last index in
+# Returning a closure from a thread caused problems. If the last index in
 # the anon sub's pad wasn't for a lexical, then a core dump could occur.
 # Otherwise, there might be leaked scalars.
 
index 56a5188..1305e0e 100644 (file)
@@ -47,7 +47,7 @@ my $ext_dirs_re = '(?:' . join('|', @ext_dirs) . ')';
 # It's actually a cut and shut of the Unix version ext/utils/makeext and the
 # Windows version win32/build_ext.pl hence the two invocation styles.
 
-# On Unix, it primarily used by the perl Makefile one extention at a time:
+# On Unix, it primarily used by the perl Makefile one extension at a time:
 #
 # d_dummy $(dynamic_ext): miniperl preplibrary FORCE
 #      @$(RUN) ./miniperl make_ext.pl --target=dynamic $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL)
@@ -56,7 +56,7 @@ my $ext_dirs_re = '(?:' . join('|', @ext_dirs) . ')';
 # If '--static' is specified, static extensions will be built.
 # If '--dynamic' is specified, dynamic extensions will be built.
 # If '--nonxs' is specified, nonxs extensions will be built.
-# If '--dynaloader' is specificied, DynaLoader will be built.
+# If '--dynaloader' is specified, DynaLoader will be built.
 # If '--all' is specified, all extensions will be built.
 #
 #    make_ext.pl "MAKE=make [-make_opts]" --dir=directory [--target=target] [--static|--dynamic|--all] +ext2 !ext1
@@ -370,7 +370,7 @@ use ExtUtils::MakeMaker;
 # hash.
 my @temps = 'Makefile.PL';
 foreach (glob('scripts/pod*.PL')) {
-    # The various pod*.PL extrators change directory. Doing that with relative
+    # The various pod*.PL extractors change directory. Doing that with relative
     # paths in @INC breaks. It seems the lesser of two evils to copy (to avoid)
     # the chdir doing anything, than to attempt to convert lib paths to
     # absolute, and potentially run into problems with quoting special
index 418133b..401201f 100644 (file)
@@ -526,7 +526,7 @@ sub generate_perlpod {
 
 
 sub generate_manifest {
-  # Annyoingly unexpand doesn't consider it good form to replace a single
+  # Annoyingly, unexpand doesn't consider it good form to replace a single
   # space before a tab with a tab
   # Annoyingly (2) it returns read only values.
   my @temp = unexpand (map {sprintf "%-32s%s\n", @$_} @_);
index 1b722ed..7ceb174 100644 (file)
@@ -32,7 +32,7 @@ to match whichever property they like, including the new artificial definitions.
 
 B<NOTE:> This is a backwards incompatible no-warning change in behaviour. If you are upgrading
 and you process large volumes of text look for POSIX and Perl style character classes and
-change them to the relevent property name (by removing the word 'Posix' from the current name).
+change them to the relevant property name (by removing the word 'Posix' from the current name).
 
 The following table maps the POSIX character class names, the escapes and the old and new
 Unicode property mappings:
@@ -63,7 +63,7 @@ in regcomp.h, and then setting
 
        PERL_TEST_LEGACY_POSIX_CC
 
-to true your enviornment when testing.
+to true your environment when testing.
 
 
 =head2 @INC reorganization
@@ -1544,7 +1544,7 @@ simpler to spot and correct the suspicious character.
 
 =item *
 
-Explicitely point to $. when it causes an uninitialized warning for ranges in scalar context
+Explicitly point to $. when it causes an uninitialized warning for ranges in scalar context
 
 
 =item *
index afe6773..cfee564 100644 (file)
@@ -287,7 +287,7 @@ those installed in C<ARCHLIB> and C<PRIVLIB>.
 
 =head2 REGEXPs are now first class
 
-Internally, Perl now treates compiled regular expressions (such as
+Internally, Perl now treats compiled regular expressions (such as
 those created with C<qr//>) as first class entities. Perl modules which
 serialize, deserialize or otherwise have deep interaction with Perl's
 internal data structures need to be updated for this change.  Most
@@ -589,7 +589,7 @@ on CPAN which require these should add them to their prerequisites. The
 core versions of these modules warnings will issue a deprecation warning.
 
 If you ship a packaged version of Perl, either alone or as part of a
-larger system, then you should carefully consider the reprecussions of
+larger system, then you should carefully consider the repercussions of
 core module deprecations. You may want to consider shipping your default
 build of Perl with packages for some or all deprecated modules which
 install into C<vendor> or C<site> perl library directories. This will
@@ -1667,7 +1667,7 @@ C<\N{...}> now compiles better, always forces UTF-8 internal representation
 Perl's developers have fixed several problems with the recognition of
 C<\N{...}> constructs.  As part of this, perl will store any scalar
 or regex containing C<\N{I<name>}> or C<\N{U+I<wide hex char>}> in its
-definition in UTF-8 format. (This was true previously for all occurences
+definition in UTF-8 format. (This was true previously for all occurrences
 of C<\N{I<name>}> that did not use a custom translator, but now it's
 always true.)
 
index ca922bc..37ac9b4 100644 (file)
@@ -60,7 +60,7 @@ We made a small fix to the L<CPANPLUS> test suite to fix an occasional spurious
 
 =item *
 
-We upgraded L<Safe> to version 2.27 to wrap coderefs retured by C<reval()> and C<rdo()>.
+We upgraded L<Safe> to version 2.27 to wrap coderefs returned by C<reval()> and C<rdo()>.
 
 =back
 
index 9fbe1cc..c5d5169 100644 (file)
@@ -22,7 +22,7 @@ should give a few percent speed increase, and eliminates almost all of
 the speed penalty caused by the introduction of "safe signals" in
 5.8.0. Signals should still be dispatched within the same statement as
 they were previously - if this is not the case, or it is possible to
-create uninterruptable loops, this is a bug, and reports are encouraged
+create uninterruptible loops, this is a bug, and reports are encouraged
 of how to recreate such issues.
 
 =head2 Assignment to C<$0> sets the legacy process name with C<prctl()> on Linux
index b285209..f812257 100644 (file)
@@ -17,7 +17,7 @@ L<perl5135delta>, which describes differences between 5.13.4 and
 
 =head2  C<(?^...)> regex construct added to signify default modifiers
 
-A caret (also called a "cirumflex accent") C<"^"> immediately following
+A caret (also called a "circumflex accent") C<"^"> immediately following
 a C<"(?"> in a regular expression now means that the subexpression is to
 not inherit the surrounding modifiers such as C</i>, but to revert to the
 Perl defaults.  Any modifiers following the caret override the defaults.
@@ -290,7 +290,7 @@ working with tainted values
 (L<CPAN RT #40727|https://rt.cpan.org/Public/Bug/Display.html?id=40727>).
 
 C<< ->maketext >> calls will now backup and restore C<$@> so that error
-messages are not supressed
+messages are not suppressed
 (L<CPAN RT #34182|https://rt.cpan.org/Public/Bug/Display.html?id=34182>).
 
 =item *
@@ -666,7 +666,7 @@ fixed.
 =item *
 
 C<sort> with a custom sort routine could crash if too many nested
-subroutine calls occurrred from within the sort routine
+subroutine calls occurred from within the sort routine
 L<[perl #77930]|http://rt.perl.org/rt3/Public/Bug/Display.html?id=77930>.
 
 This bug was introduced in an earlier 5.13 release, and did not affect
index 21585ed..67d0912 100644 (file)
@@ -760,10 +760,10 @@ hard-to-fix ways.  As a stop-gap measure to avoid people from getting
 frustrated at the mysterious results (core dumps, most often) it is
 for now forbidden (you will get a fatal error even from an attempt).
 
-=head2 Variable Attributes are not Currently Usable for Tieing
+=head2 Variable Attributes are not Currently Usable for Tying
 
 This limitation will hopefully be fixed in future.  (Subroutine
-attributes work fine for tieing, see L<Attribute::Handlers>).
+attributes work fine for tying, see L<Attribute::Handlers>).
 
 =head2 Building Extensions Can Fail Because Of Largefiles
 
index 2070cc3..8cd1cf6 100644 (file)
@@ -92,7 +92,7 @@ C<system> operator. See L<perlvar> for details. (Contributed by Gisle Aas.)
 
 This variable controls the state of the internal UTF-8 offset caching code.
 1 for on (the default), 0 for off, -1 to debug the caching code by checking
-all its results against linear scans, and panicing on any discrepancy.
+all its results against linear scans, and panicking on any discrepancy.
 
 =back
 
@@ -1655,7 +1655,7 @@ a C<system> call.
 
 =item *
 
-Fixed bug RT #37886, symbolic deferencing was allowed in the argument of
+Fixed bug RT #37886, symbolic dereferencing was allowed in the argument of
 C<defined> even under the influence of C<use strict 'refs'>.
 
 =item *
@@ -1811,7 +1811,7 @@ The process id is no longer truncated to 16 bits on some Windows platforms
 
 =item *
 
-Fixed bug RT #54828 in F<perlio.c> where calling C<binmode> on Win32 and Cgywin
+Fixed bug RT #54828 in F<perlio.c> where calling C<binmode> on Win32 and Cygwin
 may cause a segmentation fault.
 
 =back
index aa1f5c4..0fd2f26 100644 (file)
@@ -84,7 +84,7 @@ dereferenced according to its overloading, not its underlying reference type.
 The warning is issued when C<%{}> overloading exists on a blessed arrayref,
 when C<@{}> overloading exists on a blessed hashref, or when both overloadings
 are defined (in which case C<%{}> is used).  You can force the interpretation
-of the object by explictly dereferencing it as an array or hash instead of
+of the object by explicitly dereferencing it as an array or hash instead of
 passing the object itself to C<keys>, C<values> or C<each>.
 
 =item Ambiguous range in transliteration operator
@@ -5125,7 +5125,7 @@ to be huge numbers, and so usually indicates programmer error.
 If you really do mean it, explicitly numify your reference, like so:
 C<$array[0+$ref]>.  This warning is not given for overloaded objects,
 either, because you can overload the numification and stringification
-operators and then you assumably know what you are doing.
+operators and then you presumably know what you are doing.
 
 =item Use of reserved word "%s" is deprecated
 
index d4fffee..f6cf3ba 100644 (file)
@@ -1272,7 +1272,7 @@ omitted for brevity):
     $string =~ s/=([0-9A-Fa-f][0-9A-Fa-f])/chr $a2e[hex $1]/ge;
     $string =~ s/=[\n\r]+$//;
 
-=head2 Caesarian ciphers
+=head2 Caesarean ciphers
 
 The practice of shifting an alphabet one or more characters for encipherment
 dates back thousands of years and was explicitly detailed by Gaius Julius
index e2fe116..66c3272 100644 (file)
@@ -267,7 +267,7 @@ Ctags uses an index to quickly find things in source code, and many
 popular editors support ctags for several different languages,
 including Perl.
 
-Exuberent ctags supports Perl: http://ctags.sourceforge.net/
+Exuberant ctags supports Perl: http://ctags.sourceforge.net/
 
 You might also try pltags: http://www.mscha.com/pltags.zip
 
@@ -583,7 +583,7 @@ These are Perl bindings for the Gtk toolkit ( http://www.gtk.org ). The
 interface changed significantly between versions 1 and 2 so they have
 separate Perl modules. It runs under Unix, Win32 and Mac OS X (currently
 it requires an X server on Mac OS, but a 'native' port is underway), and
-the widgets look the same on every plaform: i.e., they don't match the
+the widgets look the same on every platform: i.e., they don't match the
 native widgets. As with Wx, the Perl bindings follow the C API closely,
 and the documentation requires you to read the C documentation to
 understand it.
index 392ed97..bf00acc 100644 (file)
@@ -1221,7 +1221,7 @@ for list operations, so list operations also work on arrays:
        wash_animals( qw( dog cat bird ) );
        wash_animals( @animals );
 
-Array operations, which change the scalars, reaaranges them, or adds
+Array operations, which change the scalars, rearranges them, or adds
 or subtracts some scalars, only work on arrays. These can't work on a
 list, which is fixed. Array operations include C<shift>, C<unshift>,
 C<push>, C<pop>, and C<splice>.
@@ -1268,7 +1268,7 @@ context. The comma operator (yes, it's an operator!) in scalar
 context evaluates its lefthand side, throws away the result, and
 evaluates it's righthand side and returns the result. In effect,
 that list-lookalike assigns to C<$scalar> it's rightmost value. Many
-people mess this up becuase they choose a list-lookalike whose
+people mess this up because they choose a list-lookalike whose
 last element is also the count they expect:
 
        my $scalar = ( 1, 2, 3 );  # $scalar gets 3, accidentally
@@ -1714,7 +1714,7 @@ Or, simply:
        my $element = $array[ rand @array ];
 
 =head2 How do I permute N elements of a list?
-X<List::Permuter> X<permute> X<Algorithm::Loops> X<Knuth>
+X<List::Permutor> X<permute> X<Algorithm::Loops> X<Knuth>
 X<The Art of Computer Programming> X<Fischer-Krause>
 
 Use the C<List::Permutor> module on CPAN. If the list is actually an
index 0238c9a..a705988 100644 (file)
@@ -770,7 +770,7 @@ though.
                }
 
 For more details on regular expression efficiency, see I<Mastering
-Regular Expressions> by Jeffrey Freidl. He explains how regular
+Regular Expressions> by Jeffrey Friedl. He explains how regular
 expressions engine work and why some patterns are surprisingly
 inefficient. Once you understand how perl applies regular expressions,
 you can tune them for individual situations.
index 0c382f6..41de7e8 100644 (file)
@@ -659,7 +659,7 @@ This can make tasks like fetching the newsgroup list as simple as
 
 (contributed by brian d foy)
 
-The C<LWP> family of modules (available on CPAN as the libwww-perl distibution)
+The C<LWP> family of modules (available on CPAN as the libwww-perl distribution)
 can work with FTP just like it can with many other protocols. C<LWP::Simple>
 makes it quite easy to fetch a file:
 
index f1df33c..ec265b1 100644 (file)
@@ -7675,7 +7675,7 @@ and C<${^CHILD_ERROR_NATIVE}>.
 Note that a return value of C<-1> could mean that child processes are
 being automatically reaped, as described in L<perlipc>.
 
-If you use wait in your handler for $SIG{CHLD} it may accidently wait for the
+If you use wait in your handler for $SIG{CHLD} it may accidentally for the
 child created by qx() or system(). See L<perlipc> for details.
 
 =item waitpid PID,FLAGS
index bbd1434..c4fb406 100644 (file)
@@ -507,7 +507,7 @@ the class (its L<objects|/object>).  See also L</inheritance>.
 
 =item class method
 
-A L</method> whose L</invocant> is a L</package> name, not an
+A L</method> whose L</invocand> is a L</package> name, not an
 L</object> reference.  A method associated with the class as a whole.
 
 =item client
@@ -1470,7 +1470,7 @@ Perl, C<print STDOUT "$foo\n";> can be understood as "verb
 indirect-object object" where L</STDOUT> is the recipient of the
 L<print|perlfunc/print> action, and C<"$foo"> is the object being
 printed.  Similarly, when invoking a L</method>, you might place the
-invocant between the method and its arguments:
+invocand between the method and its arguments:
 
   $gollum = new Pathetic::Creature "Smeagol";
   give $gollum "Fisssssh!";
@@ -1548,11 +1548,11 @@ of compiler that takes a program and turns it into a more executable
 form (L<syntax trees|/syntax tree>) within the I<perl> process itself,
 which the Perl L</run time> system then interprets.
 
-=item invocant
+=item invocand
 
 The agent on whose behalf a L</method> is invoked.  In a L</class>
-method, the invocant is a package name.  In an L</instance> method,
-the invocant is an object reference.
+method, the invocand is a package name.  In an L</instance> method,
+the invocand is an object reference.
 
 =item invocation
 
index ab82c30..c8b0065 100644 (file)
@@ -244,7 +244,7 @@ If you are a member of the perl5-porters mailing list, it is a good
 thing to keep in touch with the most recent changes. If not only to
 verify if what you would have posted as a bug report isn't already
 solved in the most recent available perl development branch, also
-known as perl-current, bleading edge perl, bleedperl or bleadperl.
+known as perl-current, bleeding edge perl, bleedperl or bleadperl.
 
 Needless to say, the source code in perl-current is usually in a perpetual
 state of evolution.  You should expect it to be very buggy.  Do B<not> use
index 6225d95..3009913 100644 (file)
@@ -398,7 +398,7 @@ C<waitpid> calls will always be retried.
 =item Signals as "faults"
 
 Certain signals like SEGV, ILL, and BUS are generated by virtual memory
-addressing errors and similiar "faults". These are normally fatal: there is
+addressing errors and similar "faults". These are normally fatal: there is
 little a Perl-level handler can do with them.  So Perl now delivers them
 immediately rather than attempting to defer them.
 
index 7c5358f..1a166a8 100644 (file)
@@ -571,7 +571,7 @@ like for example handle the cloning of non-Perl data, if necessary.
 C<CLONE> will be called once as a class method for every package that has it
 defined (or inherits it).  It will be called in the context of the new thread,
 so all modifications are made in the new area.  Currently CLONE is called with
-no parameters other than the invocant package name, but code should not assume
+no parameters other than the invocand package name, but code should not assume
 that this will remain unchanged, as it is likely that in future extra parameters
 will be passed in to give more information about the state of cloning.
 
@@ -593,7 +593,7 @@ to make use of the objects, then a more sophisticated approach is
 needed.
 
 Like C<CLONE>, C<CLONE_SKIP> is currently called with no parameters other
-than the invocant package name, although that may change. Similarly, to
+than the invocand package name, although that may change. Similarly, to
 allow for future expansion, the return value should be a single C<0> or
 C<1> value.
 
index fc3acab..234db2d 100644 (file)
@@ -1187,7 +1187,7 @@ feature known as extended names.  On these releases, file names
 can contain up to 255 characters, are prohibited from starting
 with a C<-> character, and the set of prohibited characters is
 reduced to any character matching C<< tr/#%*<>?// >>.  There are
-restrictions involving spaces and apostrophies:  these characters
+restrictions involving spaces and apostrophes:  these characters
 must not begin or end a name, nor can they immediately precede or
 follow a period.  Additionally, a space must not immediately
 precede another space or hyphen.  Specifically, the following
index cc76502..dfe7af5 100644 (file)
@@ -317,7 +317,7 @@ behave in the same situation:
 
     package main;
 
-    tie my $sv => "CatptureVar";
+    tie my $sv => "CaptureVar";
     $sv =~ y/a/b/;
 
 Because C<$sv> is C<undef> when the C<y///> operator is applied to it
index 9bab138..1b0689b 100644 (file)
@@ -227,7 +227,7 @@ form.
 In some contexts, a backslash followed by two or even one octal digits may be
 interpreted as an octal escape, sometimes with a warning, and because of some
 bugs, sometimes with surprising results.  Also, if you are creating a regex
-out of smaller snippets concatentated together, and you use fewer than three
+out of smaller snippets concatenated together, and you use fewer than three
 digits, the beginning of one snippet may be interpreted as adding digits to the
 ending of the snippet before it.  See L</Absolute referencing> for more
 discussion and examples of the snippet problem.
index bb2a9ce..5564b4d 100644 (file)
@@ -936,7 +936,7 @@ most C preprocessors: it matches the regular expression
 
 with C<$1> being the line number for the next line, and C<$3> being
 the optional filename (specified with or without quotes). Note that
-no whitespace may preceed the C<< # >>, unlike modern C preprocessors.
+no whitespace may precede the C<< # >>, unlike modern C preprocessors.
 
 There is a fairly obvious gotcha included with the line directive:
 Debuggers and profilers will only show the last source line to appear
index fb947b6..30f8357 100644 (file)
@@ -1080,13 +1080,13 @@ on your way to becoming a threaded Perl expert.
 Annotated POD for L<threads>:
 L<http://annocpan.org/?mode=search&field=Module&name=threads>
 
-Lastest version of L<threads> on CPAN:
+Latest version of L<threads> on CPAN:
 L<http://search.cpan.org/search?module=threads>
 
 Annotated POD for L<threads::shared>:
 L<http://annocpan.org/?mode=search&field=Module&name=threads%3A%3Ashared>
 
-Lastest version of L<threads::shared> on CPAN:
+Latest version of L<threads::shared> on CPAN:
 L<http://search.cpan.org/search?module=threads%3A%3Ashared>
 
 Perl threads mailing list:
index 3bd0c06..e77f501 100644 (file)
@@ -189,7 +189,7 @@ The F<installman> script is slow. All it is doing text processing, which we're
 told is something Perl is good at. So it would be nice to know what it is doing
 that is taking so much CPU, and where possible address it.
 
-=head2 enable lexical enabling/disabling of inidvidual warnings
+=head2 enable lexical enabling/disabling of individual warnings
 
 Currently, warnings can only be enabled or disabled by category. There
 are times when it would be useful to quash a single warning, not a
@@ -929,7 +929,7 @@ be C<*$> instead. (This is changed in F<opcode.pl>)
 
 Currently C<$foo ~~ $object> will die with the message "Smart matching a
 non-overloaded object breaks encapsulation". It would be nice to allow
-to bypass this by using explictly the syntax C<$foo ~~ %$object> or
+to bypass this by using explicitly the syntax C<$foo ~~ %$object> or
 C<$foo ~~ @$object>.
 
 =head2 error reporting of [$a ; $b]
index 242238f..0ca64ad 100644 (file)
@@ -456,7 +456,7 @@ written right to left.
 
 The world's languages are written in a number of scripts.  This sentence
 (unless you're reading it in translation) is written in Latin, while Russian is
-written in Cyrllic, and Greek is written in, well, Greek; Japanese mainly in
+written in Cyrillic, and Greek is written in, well, Greek; Japanese mainly in
 Hiragana or Katakana.  There are many more.
 
 The Unicode Script property gives what script a given character is in,
index 17175db..fe2b5d8 100644 (file)
@@ -265,14 +265,14 @@ created by an older version of an archive utility or a build utility
 such as MMK or MMS may generate a filename in all upper case even on an
 ODS-5 volume.  If this filename is later retrieved by a Perl script or
 module in a case preserving environment, that upper case name may not
-match the mixed-case or lower-case expections of the Perl code.  Your
+match the mixed-case or lower-case exceptions of the Perl code.  Your
 best bet is to follow an all-or-nothing approach to case preservation:
 either don't use it at all, or make sure your entire toolchain and
 application environment support and use it.
 
 OpenVMS Alpha v7.3-1 and later and all version of OpenVMS I64 support
 case sensitivity as a process setting (see C<SET PROCESS
-/CASE_LOOKUP=SENSITIVE>). Perl does not currently suppport case
+/CASE_LOOKUP=SENSITIVE>). Perl does not currently support case
 sensitivity on VMS, but it may in the future, so Perl programs should
 use the C<< File::Spec->case_tolerant >> method to determine the state, and
 not the C<$^O> variable.
@@ -1188,7 +1188,7 @@ consequence of ignoring this advice will be undefined to allow future
 improvements in the POSIX exit handling.
 
 In general, with C<PERL_VMS_POSIX_EXIT> enabled, more detailed information
-will be availble in the exit status for DCL scripts or other native VMS tools,
+will be available in the exit status for DCL scripts or other native VMS tools,
 and will give the expected information for Posix programs.  It has not been
 made the default in order to preserve backward compatibility.
 
index b30e39d..e4de1a0 100644 (file)
@@ -66,7 +66,7 @@ die "$0: must be run on an ASCII system\n" unless ord 'A' == 65;
 #    this; 1.35+ does
 #  * Must produce output which is extractable by the regexes below
 #  * Must produce the right values.
-# These last two contstraints  may well be met by earlier versions, but
+# These last two constraints  may well be met by earlier versions, but
 # I simply haven't tested them yet. If it works for you, then modify
 # the test below to allow that version too. DAPM Feb 04.
 
index 8576827..2cab553 100644 (file)
@@ -13,7 +13,7 @@
 #        must be linked
 #
 # Output:
-#    PerlShr_Attr.Opt - linker options file which speficies that global vars
+#    PerlShr_Attr.Opt - linker options file which specifies that global vars
 #        be placed in NOSHR,WRT psects.  Use when linking any object files
 #        against PerlShr.Exe, since cc places global vars in SHR,WRT psects
 #        by default.
index aaec595..c76809a 100644 (file)
@@ -215,7 +215,7 @@ main(int argc, char *argv[])
     }
   }
 
-  /* Okay, we've read in all the substititions from our config.sh */
+  /* Okay, we've read in all the substitutions from our config.sh */
   /* equivalent. Read in the config_h.sh equiv and start the substitution */
   
   /* First, eat all the lines until we get to one with !GROK!THIS! in it */
@@ -311,7 +311,7 @@ main(int argc, char *argv[])
       }
     }
     
-    /* If we've created an #undef line, make sure we don't output anthing
+    /* If we've created an #undef line, make sure we don't output anything
      * after the "#undef FOO" besides comments.  We could do this as we
      * go by recognizing the #undef as it goes by, and thus avoid another
      * use of a fixed-length buffer, but this is simpler.
index 69faec5..346215c 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -773,7 +773,7 @@ const int verspec = 7;
     item_list[devspec].component = NULL;
 
     /* root is a special case,  adding it to either the directory or
-     * the device components will probalby complicate things for the
+     * the device components will probably complicate things for the
      * callers of this routine, so leave it separate.
      */
     item_list[rootspec].itmcode = FSCN$_ROOT;
@@ -994,7 +994,7 @@ Perl_vmstrnenv(const char *lnm, char *eqv, unsigned long int idx,
         if (!ivsym && !secure) {
           unsigned short int deflen = LNM$C_NAMLENGTH;
           struct dsc$descriptor_d eqvdsc = {0,DSC$K_DTYPE_T,DSC$K_CLASS_D,0};
-          /* dynamic dsc to accomodate possible long value */
+          /* dynamic dsc to accommodate possible long value */
           _ckvmssts_noperl(lib$sget1_dd(&deflen,&eqvdsc));
           retsts = lib$get_symbol(&lnmdsc,&eqvdsc,&eqvlen,0);
           if (retsts & 1) { 
@@ -1836,7 +1836,7 @@ static char *mp_do_tovmsspec(pTHX_ const char *, char *, int, int, int *);
 /* fixup barenames that are directories for internal use.
  * There have been problems with the consistent handling of UNIX
  * style directory names when routines are presented with a name that
- * has no directory delimitors at all.  So this routine will eventually
+ * has no directory delimiters at all.  So this routine will eventually
  * fix the issue.
  */
 static char * fixup_bare_dirnames(const char * name)
@@ -1852,7 +1852,7 @@ static int rms_erase(const char * vmsname);
 
 
 /* mp_do_kill_file
- * A little hack to get around a bug in some implemenation of remove()
+ * A little hack to get around a bug in some implementation of remove()
  * that do not know how to delete a directory
  *
  * Delete any file to which user has control access, regardless of whether
@@ -5281,7 +5281,7 @@ Stat_t dst_st;
     {
        /* Is the source and dest both in VMS format */
        /* if the source is a directory, then need to fileify */
-       /*  and dest must be a directory or non-existant. */
+       /*  and dest must be a directory or non-existent. */
 
        char * vms_dst;
        int sts;
@@ -6848,7 +6848,7 @@ static char *int_pathify_dirspec(const char *dir, char *buf)
         /* then pathify is simple */
 
         if (!decc_efs_charset) {
-            /* Have to deal with traiing '.dir' or extra '.' */
+            /* Have to deal with trailing '.dir' or extra '.' */
             /* that should not be there in legacy mode, but is */
 
             char * lastdot;
@@ -7763,7 +7763,7 @@ int sts, v_len, r_len, d_len, n_len, e_len, vs_len;
       lastslash = unixptr + unixlen;
     }
 
-    /* Watch out for traiing ".." after last slash, still a directory */
+    /* Watch out for trailing ".." after last slash, still a directory */
     if ((lastslash[1] == '.')&&(lastslash[2] == '.')&&(lastslash[3] == '\0')) {
       lastslash = unixptr + unixlen;
     }
@@ -7966,7 +7966,7 @@ int sts, v_len, r_len, d_len, n_len, e_len, vs_len;
        else {
         if (dotdir_seen) {
           /* Perl wants an empty directory here to tell the difference
-           * between a DCL commmand and a filename
+           * between a DCL command and a filename
            */
          *vmsptr++ = '[';
          *vmsptr++ = ']';
@@ -8959,7 +8959,7 @@ char *Perl_tovmsspec_utf8_ts(pTHX_ const char *path, char *buf, int * utf8_fl)
   { return do_tovmsspec(path,buf,1,utf8_fl); }
 
 /*{{{ char *int_tovmspath(char *path, char *buf, const int *)*/
-/* Internal routine for use with out an explict context present */
+/* Internal routine for use with out an explicit context present */
 static char * int_tovmspath(const char *path, char *buf, int * utf8_fl) {
 
     char * ret_spec, *pathified;
@@ -9465,7 +9465,7 @@ int rms_sts;
      */
     had_version = strchr(item, ';');
     /*
-     * Only return device and directory specs, if the caller specifed either.
+     * Only return device and directory specs, if the caller specified either.
      */
     had_device = strchr(item, ':');
     had_directory = (isunix || NULL != strchr(item, '[')) || (NULL != strchr(item, '<'));
@@ -13697,7 +13697,7 @@ Perl_vms_start_glob
 
             /* Test to see if SvPVX_const(tmpglob) ends with a VMS */
             /* path delimiter of ':>]', if so, then the old behavior has */
-            /* obviously been specificially requested */
+            /* obviously been specifically requested */
 
             fname = SvPVX_const(tmpglob);
             fname_len = strlen(fname);
@@ -14296,7 +14296,7 @@ mp_do_vms_realpath(pTHX_ const char *filespec, char *outbuf,
        } else {
 
            /* Now for some hacks to deal with backwards and forward */
-           /* compatibilty */
+           /* compatibility */
            if (!decc_efs_charset) {
 
                /* 1. ODS-2 mode wants to do a syntax only translation */
@@ -14810,7 +14810,7 @@ static int set_features
 #endif
 
     /* USE POSIX/DCL Exit codes - Recommended, but needs to default to  */
-    /* for strict backward compatibilty */
+    /* for strict backward compatibility */
     status = sys_trnlnm
        ("PERL_VMS_POSIX_EXIT", val_str, sizeof(val_str));
     if ($VMS_STATUS_SUCCESS(status)) {
index d1ce6ea..c3cddd8 100644 (file)
@@ -499,7 +499,7 @@ Swap the contents of the pattern space and the hold space.
 $ComTab{'y'}=[ 2, 'tra', \&Emit,       ''                                ]; #ok
 =item [2addr]B<y>B</>I<string1>B</>I<string2>B</>
 
-In the pattern space, replace all characters occuring in I<string1> by the
+In the pattern space, replace all characters occurring in I<string1> by the
 character at the corresponding position in I<string2>. It is possible
 to use any character (other than a backslash or newline) instead of a
 slash to delimit the strings.  Within I<string1> and I<string2>, a
@@ -1887,7 +1887,7 @@ A `\' in a BRE is used to make the subsequent character literal.
 
 =item `\' cannot be last in substitution
 
-A `\' in a subsitution string is used to make the subsequent character literal.
+A `\' in a substitution string is used to make the subsequent character literal.
 
 =item conflicting flags `%s'