diff options
| author | David Steinbrunner <dsteinbrunner@pobox.com> | 2013-05-21 07:16:19 -0400 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2013-05-25 14:46:33 +0200 |
| commit | efaa61e24beb535fda79f980bb05126966ecca87 (patch) | |
| tree | e18d9167624658ad184027a9967151428d262199 /dist | |
| parent | d80134284328cd5128b0a17920632e7b70625b46 (diff) | |
| download | perl-efaa61e24beb535fda79f980bb05126966ecca87.tar.gz | |
typo fix for Storable
Bump $VERSION.
typo fixes for Math::BigRat
Bump $VERSION.
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/Math-BigRat/lib/Math/BigRat.pm | 8 | ||||
| -rw-r--r-- | dist/Storable/Storable.pm | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/dist/Math-BigRat/lib/Math/BigRat.pm b/dist/Math-BigRat/lib/Math/BigRat.pm index 757a03b8f3..15b2ed08fe 100644 --- a/dist/Math-BigRat/lib/Math/BigRat.pm +++ b/dist/Math-BigRat/lib/Math/BigRat.pm @@ -24,7 +24,7 @@ use vars qw($VERSION @ISA $upgrade $downgrade @ISA = qw(Math::BigFloat); -$VERSION = '0.2605'; +$VERSION = '0.2606'; $VERSION = eval $VERSION; # inherit overload from Math::BigFloat, but disable the bitwise ops that don't @@ -258,7 +258,7 @@ sub new if ($n->{sign} =~ /^[+-]$/ && $d->{sign} =~ /^[+-]$/) { - # both parts are ok as integers (wierd things like ' 1e0' + # both parts are ok as integers (weird things like ' 1e0' $self->{_n} = $MBI->_copy($n->{value}); $self->{_d} = $MBI->_copy($d->{value}); $self->{sign} = $n->{sign}; @@ -446,7 +446,7 @@ sub bneg return $x if $x->modify('bneg'); - # for +0 dont negate (to have always normalized +0). Does nothing for 'NaN' + # for +0 do not negate (to have always normalized +0). Does nothing for 'NaN' $x->{sign} =~ tr/+-/-+/ unless ($x->{sign} eq '+' && $MBI->_is_zero($x->{_n})); $x; } @@ -1271,7 +1271,7 @@ sub bsqrt $x->{_n} = _float_from_part( $x->{_n} )->bsqrt(); $x->{_d} = _float_from_part( $x->{_d} )->bsqrt(); - # XXX TODO: we probably can optimze this: + # XXX TODO: we probably can optimize this: # if sqrt(D) was not integer if ($x->{_d}->{_es} ne '+') diff --git a/dist/Storable/Storable.pm b/dist/Storable/Storable.pm index 0cc5d162d9..1a73c3fafa 100644 --- a/dist/Storable/Storable.pm +++ b/dist/Storable/Storable.pm @@ -21,7 +21,7 @@ package Storable; @ISA = qw(Exporter); use vars qw($canonical $forgive_me $VERSION); -$VERSION = '2.42'; +$VERSION = '2.43'; BEGIN { if (eval { local $SIG{__DIE__}; require Log::Agent; 1 }) { @@ -311,7 +311,7 @@ sub _store_fd { # # freeze # -# Store oject and its hierarchy in memory and return a scalar +# Store object and its hierarchy in memory and return a scalar # containing the result. # sub freeze { @@ -1048,7 +1048,7 @@ untrusted sources!> If your application requires accepting data from untrusted sources, you are best off with a less powerful and more-likely safe serialization format -and implementation. If your data is sufficently simple, JSON is a good +and implementation. If your data is sufficiently simple, JSON is a good choice and offers maximum interoperability. =head1 WARNING @@ -1162,7 +1162,7 @@ correct behaviour. What this means is that if you have data written by Storable 1.x running on perl 5.6.0 or 5.6.1 configured with 64 bit integers on Unix or Linux then by default this Storable will refuse to read it, giving the error -I<Byte order is not compatible>. If you have such data then you you +I<Byte order is not compatible>. If you have such data then you should set C<$Storable::interwork_56_64bit> to a true value to make this Storable read and write files with the old header. You should also migrate your data, or any older perl you are communicating with, to this |