[perl.git] branch blead, updated. v5.21.8-107-g5bf4b3b

James Keenan

2015-01-29 01:36:03 UTC

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/5bf4b3bf13bc4055684a48448b05920845ef7764?hp=1a43aa034207579c7b9e27eceda85687707c5c86>

- Log -----------------------------------------------------------------
commit 5bf4b3bf13bc4055684a48448b05920845ef7764
Author: Lajos Veres <***@gmail.com>
Date: Wed Jan 28 20:35:53 2015 -0500

Corrections to spelling and grammatical errors.

Extracted from patch submitted by Lajos Veres in RT #123693.
-----------------------------------------------------------------------

Summary of changes:
dist/Data-Dumper/Changes | 2 +-
dist/Data-Dumper/Dumper.pm | 4 ++--
dist/Data-Dumper/Dumper.xs | 2 +-
dist/ExtUtils-CBuilder/Changes | 2 +-
dist/IO/t/io_sock.t | 2 +-
dist/Math-BigInt/t/bigintpm.inc | 6 +++---
dist/Math-BigInt/t/upgrade.inc | 2 +-
dist/Module-CoreList/Changes | 2 +-
dist/Safe/Changes | 2 +-
dist/Storable/ChangeLog | 2 +-
dist/Storable/Storable.pm | 2 +-
dist/Storable/Storable.xs | 2 +-
dist/Storable/t/attach_errors.t | 2 +-
dist/Tie-File/lib/Tie/File.pm | 28 ++++++++++++++--------------
dist/Tie-File/t/00_version.t | 2 +-
dist/Tie-File/t/31_autodefer.t | 4 ++--
dist/threads-shared/t/hv_refs.t | 2 +-
17 files changed, 34 insertions(+), 34 deletions(-)

diff --git a/dist/Data-Dumper/Changes b/dist/Data-Dumper/Changes
index 1f31922..eca3bb9 100644
--- a/dist/Data-Dumper/Changes
+++ b/dist/Data-Dumper/Changes
@@ -328,7 +328,7 @@ C<require 5.002>.
MLDBM example removed (as its own module, it has a separate CPAN
reality now).

-Fixed bugs in handling keys with wierd characters. Perl can be
+Fixed bugs in handling keys with weird characters. Perl can be
tripped up in its implicit quoting of the word before '=>'. The
fix: C<Data::Dumper::Purity>, when set, always triggers quotes
around hash keys.
diff --git a/dist/Data-Dumper/Dumper.pm b/dist/Data-Dumper/Dumper.pm
index f426f3f..f9e6a1e 100644
--- a/dist/Data-Dumper/Dumper.pm
+++ b/dist/Data-Dumper/Dumper.pm
@@ -10,7 +10,7 @@
package Data::Dumper;

BEGIN {
- $VERSION = '2.156'; # Don't forget to set version and release
+ $VERSION = '2.157'; # Don't forget to set version and release
} # date in POD below!

#$| = 1;
@@ -1419,7 +1419,7 @@ modify it under the same terms as Perl itself.

=head1 VERSION

-Version 2.156 (January 20 2014)
+Version 2.157 (January 28 2015)

=head1 SEE ALSO

diff --git a/dist/Data-Dumper/Dumper.xs b/dist/Data-Dumper/Dumper.xs
index 70b0c92..98b013b 100644
--- a/dist/Data-Dumper/Dumper.xs
+++ b/dist/Data-Dumper/Dumper.xs
@@ -440,7 +440,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 arbitrary amount of space
+ /* If the output 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. */
diff --git a/dist/ExtUtils-CBuilder/Changes b/dist/ExtUtils-CBuilder/Changes
index fab9a9d..89301c6 100644
--- a/dist/ExtUtils-CBuilder/Changes
+++ b/dist/ExtUtils-CBuilder/Changes
@@ -381,7 +381,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
diff --git a/dist/IO/t/io_sock.t b/dist/IO/t/io_sock.t
index 0202d70..c9c443b 100644
--- a/dist/IO/t/io_sock.t
+++ b/dist/IO/t/io_sock.t
@@ -210,7 +210,7 @@ if ( $^O eq 'qnx' ) {
}

### TEST 15
-### Set up some data to be transfered between the server and
+### Set up some data to be transferred between the server and
### the client. We'll use own source code ...
#
local @data;
diff --git a/dist/Math-BigInt/t/bigintpm.inc b/dist/Math-BigInt/t/bigintpm.inc
index 0d47f6d..c3e815c 100644
--- a/dist/Math-BigInt/t/bigintpm.inc
+++ b/dist/Math-BigInt/t/bigintpm.inc
@@ -1135,7 +1135,7 @@ abc:abc:NaN
+1:+32:4294967296
+1:+48:281474976710656
+8:-2:NaN
-# excercise base 10
+# exercise base 10
+12345:4:10:123450000
-1234:0:10:-1234
+1234:0:10:1234
@@ -1153,7 +1153,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
@@ -1585,7 +1585,7 @@ inf:0:inf,inf
96969696969696969696969696969678787878626262626262626262626262:484848484848484848484848486666666666666689898989898989898989:199,484848484848484848484848123012121211954972727272727272727451
# bug in v1.76
1267650600228229401496703205375:1267650600228229401496703205376:0,1267650600228229401496703205375
-# excercise shortcut for numbers of the same length in div
+# exercise shortcut for numbers of the same length in div
999999999999999999999999999999999:999999999999999999999999999999999:1,0
999999999999999999999999999999999:888888888888888888888888888888888:1,111111111111111111111111111111111
999999999999999999999999999999999:777777777777777777777777777777777:1,222222222222222222222222222222222
diff --git a/dist/Math-BigInt/t/upgrade.inc b/dist/Math-BigInt/t/upgrade.inc
index 5516fa7..ef0a6ea 100644
--- a/dist/Math-BigInt/t/upgrade.inc
+++ b/dist/Math-BigInt/t/upgrade.inc
@@ -567,7 +567,7 @@ abc:abc:NaN
+1:+32:4294967296
+1:+48:281474976710656
+8:-2:NaN
-# excercise base 10
+# exercise base 10
+12345:4:10:123450000
-1234:0:10:-1234
+1234:0:10:1234
diff --git a/dist/Module-CoreList/Changes b/dist/Module-CoreList/Changes
index 3082f05..12fe65e 100644
--- a/dist/Module-CoreList/Changes
+++ b/dist/Module-CoreList/Changes
@@ -52,7 +52,7 @@
3.06 Thu Feb 20 2014
- updated for 5.19.9
- fix Module::CoreList::is_core default perl version
- - fix Module::CoreList::is_core version comparision
+ - fix Module::CoreList::is_core version comparison

3.05
- Prepared for v5.19.9
diff --git a/dist/Safe/Changes b/dist/Safe/Changes
index a707195..8c90395 100644
--- a/dist/Safe/Changes
+++ b/dist/Safe/Changes
@@ -163,7 +163,7 @@

2.09 Sun Oct 6 14:12:40 CEST 2002
- Upgraded the Makefile.PL to install Safe.pm to the correct place.
- - Made it work on 5.6 atleast, maybe even on 5.005?
+ - Made it work on 5.6 at least, maybe even on 5.005?

2.08 Sat Oct 5 18:05:32 CEST 2002
- First CPAN release, prompted by bug number 17744 on rt.perl.org.
diff --git a/dist/Storable/ChangeLog b/dist/Storable/ChangeLog
index 4df921e..cbfdbab 100644
--- a/dist/Storable/ChangeLog
+++ b/dist/Storable/ChangeLog
@@ -209,7 +209,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 reoccurence of this sort of goof are always welcome.
+ a reoccurrence of this sort of goof are always welcome.

Thu May 30 20:31:08 BST 2002 Nicholas Clark <***@ccl4.org>

diff --git a/dist/Storable/Storable.pm b/dist/Storable/Storable.pm
index f5afada..9d8b621 100644
--- a/dist/Storable/Storable.pm
+++ b/dist/Storable/Storable.pm
@@ -22,7 +22,7 @@ package Storable; @ISA = qw(Exporter);

use vars qw($canonical $forgive_me $VERSION);

-$VERSION = '2.52';
+$VERSION = '2.53';

BEGIN {
if (eval { local $SIG{__DIE__}; require Log::Agent; 1 }) {
diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs
index 7d27275..39f3565 100644
--- a/dist/Storable/Storable.xs
+++ b/dist/Storable/Storable.xs
@@ -3720,7 +3720,7 @@ undef_special_case:
* Write magic number and system information into the file.
* Layout is <magic> <network> [<len> <byteorder> <sizeof int> <sizeof long>
* <sizeof ptr>] where <len> is the length of the byteorder hexa string.
- * All size and lenghts are written as single characters here.
+ * All size and lengths are written as single characters here.
*
* Note that no byte ordering info is emitted when <network> is true, since
* integers will be emitted in network order in that case.
diff --git a/dist/Storable/t/attach_errors.t b/dist/Storable/t/attach_errors.t
index c163ca0..6cebd97 100644
--- a/dist/Storable/t/attach_errors.t
+++ b/dist/Storable/t/attach_errors.t
@@ -234,7 +234,7 @@ use Storable ();
isa_ok( $thawed->[1], 'My::GoodAttach::MultipleReferences' );

is($thawed->[0], $thawed->[1], 'References to the same object are attached properly');
- is($thawed->[1]{id}, $obj->{id}, 'Object with multiple references attchached properly');
+ is($thawed->[1]{id}, $obj->{id}, 'Object with multiple references attached properly');

package My::GoodAttach::MultipleReferences;

diff --git a/dist/Tie-File/lib/Tie/File.pm b/dist/Tie-File/lib/Tie/File.pm
index df8a197..1f71531 100644
--- a/dist/Tie-File/lib/Tie/File.pm
+++ b/dist/Tie-File/lib/Tie/File.pm
@@ -7,14 +7,14 @@ use Fcntl 'O_CREAT', 'O_RDWR', 'LOCK_EX', 'LOCK_SH', 'O_WRONLY', 'O_RDONLY';
sub O_ACCMODE () { O_RDONLY | O_RDWR | O_WRONLY }

-$VERSION = "1.01";
+$VERSION = "1.02";
my $DEFAULT_MEMORY_SIZE = 1<<21; # 2 megabytes
-my $DEFAULT_AUTODEFER_THRESHHOLD = 3; # 3 records
-my $DEFAULT_AUTODEFER_FILELEN_THRESHHOLD = 65536; # 16 disk blocksful
+my $DEFAULT_AUTODEFER_THRESHOLD = 3; # 3 records
+my $DEFAULT_AUTODEFER_FILELEN_THRESHOLD = 65536; # 16 disk blocksful

my %good_opt = map {$_ => 1, "-$_" => 1}
qw(memory dw_size mode recsep discipline
- autodefer autochomp autodefer_threshhold concurrent);
+ autodefer autochomp autodefer_threshold concurrent);

sub TIEARRAY {
if (@_ % 2 != 0) {
@@ -62,10 +62,10 @@ sub TIEARRAY {
$opts{autodefer} = 1 unless defined $opts{autodefer};
$opts{autodeferring} = 0; # but is not initially active
$opts{ad_history} = [];
- $opts{autodefer_threshhold} = $DEFAULT_AUTODEFER_THRESHHOLD
- unless defined $opts{autodefer_threshhold};
- $opts{autodefer_filelen_threshhold} = $DEFAULT_AUTODEFER_FILELEN_THRESHHOLD
- unless defined $opts{autodefer_filelen_threshhold};
+ $opts{autodefer_threshold} = $DEFAULT_AUTODEFER_THRESHOLD
+ unless defined $opts{autodefer_threshold};
+ $opts{autodefer_filelen_threshold} = $DEFAULT_AUTODEFER_FILELEN_THRESHOLD
+ unless defined $opts{autodefer_filelen_threshold};

$opts{offsets} = [0];
$opts{filename} = $file;
@@ -1100,7 +1100,7 @@ sub _old_flush {
@{$self->{deferred}}{$first_rec .. $last_rec});
}

- $self->_discard; # clear out defered-write-cache
+ $self->_discard; # clear out deferred-write-cache
}

sub _flush {
@@ -1133,7 +1133,7 @@ sub _flush {
}

$self->_mtwrite(@args); # write multiple record groups
- $self->_discard; # clear out defered-write-cache
+ $self->_discard; # clear out deferred-write-cache
$self->_oadjust(@adjust);
}

@@ -1201,7 +1201,7 @@ sub autodefer {
# Now, what does the ad_history mean, and what is this function doing?
# Essentially, the idea is to enable autodeferring when we see that the
# user has made three consecutive STORE calls to three consecutive records.
-# ("Three" is actually ->{autodefer_threshhold}.)
+# ("Three" is actually ->{autodefer_threshold}.)
# A STORE call for record #$n inserts $n into the autodefer history,
# and if the history contains three consecutive records, we enable
# autodeferment. An ad_history of [X, Y] means that the most recent
@@ -1220,7 +1220,7 @@ sub _annotate_ad_history {
my ($self, $n) = @_;
return unless $self->{autodefer}; # feature is disabled
return if $self->{defer}; # already in explicit defer mode
- return unless $self->{offsets}[-1] >= $self->{autodefer_filelen_threshhold};
+ return unless $self->{offsets}[-1] >= $self->{autodefer_filelen_threshold};

local *H = $self->{ad_history};
if ($n eq 'CLEAR') {
@@ -1232,7 +1232,7 @@ sub _annotate_ad_history {
} else { # @H == 2
if ($H[1] == $n-1) { # another consecutive record
$H[1]++;
- if ($H[1] - $H[0] + 1 >= $self->{autodefer_threshhold}) {
+ if ($H[1] - $H[0] + 1 >= $self->{autodefer_threshold}) {
$self->{autodeferring} = 1;
}
} else { # nonconsecutive- erase and start over
@@ -1562,7 +1562,7 @@ sub lookup {
# $self->[MISS]++ if $self->[STAT][$key]++ == 0;
# $self->[REQ]++;
# my $hit_rate = 1 - $self->[MISS] / $self->[REQ];
-# # Do some testing to determine this threshhold
+# # Do some testing to determine this threshold
# $#$self = STAT - 1 if $hit_rate > 0.20;
# }

diff --git a/dist/Tie-File/t/00_version.t b/dist/Tie-File/t/00_version.t
index 1bd714e..3a404ff 100644
--- a/dist/Tie-File/t/00_version.t
+++ b/dist/Tie-File/t/00_version.t
@@ -2,7 +2,7 @@

print "1..1\n";

-my $testversion = "1.01";
+my $testversion = "1.02";
use Tie::File;

if ($Tie::File::VERSION != $testversion) {
diff --git a/dist/Tie-File/t/31_autodefer.t b/dist/Tie-File/t/31_autodefer.t
index ea929a4..e7af0ad 100644
--- a/dist/Tie-File/t/31_autodefer.t
+++ b/dist/Tie-File/t/31_autodefer.t
@@ -28,7 +28,7 @@ print $o ? "ok $N\n" : "not ok $N\n";
$N++;

# I am an undocumented feature
-$o->{autodefer_filelen_threshhold} = 0;
+$o->{autodefer_filelen_threshold} = 0;
# Normally autodeferring only works on large files. This disables that.

# (3-22) Deferred storage
@@ -111,7 +111,7 @@ my $BUF = 20;
$o = tie @a, 'Tie::File', $file, autodefer => 0;
die $! unless $o;
# I am an undocumented feature
-$o->{autodefer_filelen_threshhold} = 0;
+$o->{autodefer_filelen_threshold} = 0;
# Normally autodeferring only works on large files. This disables that.

# (57-59) Did the autodefer => 0 option work?
diff --git a/dist/threads-shared/t/hv_refs.t b/dist/threads-shared/t/hv_refs.t
index ecefdc6..a2d2206 100644
--- a/dist/threads-shared/t/hv_refs.t
+++ b/dist/threads-shared/t/hv_refs.t
@@ -63,7 +63,7 @@ ok(8, threads::shared::_id($$gg) == threads::shared::_id($$gg2),
sprintf("Check we get the same thing (%x vs %x)",
threads::shared::_id($$gg),threads::shared::_id($$gg2)));
ok(9, $$gg eq $$gg2, "And check the values are the same");
-ok(10, keys %foo == 0, "And make sure we realy have deleted the values");
+ok(10, keys %foo == 0, "And make sure we really have deleted the values");
{
my (%hash1, %hash2);
share(%hash1);

--
Perl5 Master Repository