Lingua::EN::Numbers

[WC -Sx- Jones]

#! /usr/local/bin/perl

use strict;
use warnings;
use Lingua::EN::Numbers;
my $number = 2**64;

while(1) {

  ($number *= 2) ? print "\n" . &words($number) . " ..."
                : '';  sleep 1;
  exit if $number =~ /Infinity/i;
}
sub words {
  my $number = new Lingua::EN::Numbers();
  $number->parse( shift );
  return $number->get_string();
}
__END__

I get -

Useless use of a constant in void context at tf line 11.

Error: bad number format: '.68934881474191e+19'.
 at tf line 18
Is there a newer module which can handle
numbers in the E Power range?
Also, in this test case I see that -w and use warnings
are treated the same.  With -w I get
Use of uninitialized value in string eq at 
/usr/local/lib/perl5/site_perl/5.8.0/Lingua/EN/Numbers.pm line 206.
Use of uninitialized value in string eq at 
/usr/local/lib/perl5/site_perl/5.8.0/Lingua/EN/Numbers.pm line 206.
Useless use of a constant in void context at tf line 11.

Without it I just get:
Useless use of a constant in void context at tf line 11.
Thx/Sx

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>