Updated Math::BigRat to CPAN version 0.24

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 1b7e656..a62f7c1 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -982,7 +982,7 @@ use File::Glob qw(:case);
     'Math::BigRat' =>
        {
        'MAINTAINER'    => 'tels',
-       'DISTRIBUTION'  => 'TELS/math/Math-BigRat-0.22.tar.gz',
+       'DISTRIBUTION'  => 'LETO/Math-BigRat-0.24.tar.gz',
        'FILES'         => q[ext/Math-BigRat],
        'EXCLUDED'      => [ qr{^inc/},
                             qw{

diff --git a/ext/Math-BigRat/lib/Math/BigRat.pm b/ext/Math-BigRat/lib/Math/BigRat.pm
index 6d77f98..2460d1c 100644 (file)
--- a/ext/Math-BigRat/lib/Math/BigRat.pm
+++ b/ext/Math-BigRat/lib/Math/BigRat.pm
@@ -23,7 +23,8 @@ use vars qw($VERSION @ISA $upgrade $downgrade
 
 @ISA = qw(Math::BigFloat);
 
-$VERSION = '0.22';
+$VERSION = '0.24';
+$VERSION = eval $VERSION;
 
 use overload;                  # inherit overload from Math::BigFloat
 
@@ -279,7 +280,7 @@ sub new
     }
 
   # simple string input
-  if (($n =~ /[\.eE]/))
+  if (($n =~ /[\.eE]/) && $n !~ /^0x/)
     {
     # looks like a float, quacks like a float, so probably is a float
     $self->{sign} = 'NaN';
@@ -1686,7 +1687,7 @@ use L<as_int()> or L<as_float()> instead.
 This routine is automatically used whenever a scalar is required:
 
        my $x = Math::BigRat->new('3/1');
-       @array = (1,2,3);
+       @array = (0,1,2,3);
        $y = $array[$x];                # set $y to 3
 
 =head2 as_int()/as_number()
@@ -2012,6 +2013,8 @@ may contain more documentation and examples as well as testcases.
 
 =head1 AUTHORS
 
-(C) by Tels L<http://bloodgate.com/> 2001 - 2008.
+(C) by Tels L<http://bloodgate.com/> 2001 - 2009.
+
+Currently maintained by Jonathan "Duke" Leto <jonathan@leto.net> L<http://leto.net>
 
 =cut

diff --git a/ext/Math-BigRat/t/bigrat.t b/ext/Math-BigRat/t/bigrat.t
index d898335..c7563e5 100644 (file)
--- a/ext/Math-BigRat/t/bigrat.t
+++ b/ext/Math-BigRat/t/bigrat.t
@@ -8,7 +8,7 @@ BEGIN
   $| = 1;
   chdir 't' if -d 't';
   unshift @INC, '../lib'; # for running manually
-  plan tests => 198;
+  plan tests => 200;
   }
 
 # basic testing of Math::BigRat
@@ -53,6 +53,8 @@ foreach my $func (qw/new bnorm/)
   $x = $cr->$func('-inf');     ok ($x,'-inf');
   $x = $cr->$func('1/');       ok ($x,'NaN');
 
+  $x = $cr->$func("0x7e");  ok($x, 126);
+
   # input ala '1+1/3' isn't parsed ok yet
   $x = $cr->$func('1+1/3');    ok ($x,'NaN');