Change 31481: Revert change #31480. The PI and e functions can accept an argument.

[Rafael Garcia-Suarez]

Change 31481 by [EMAIL PROTECTED] on 2007/06/27 16:40:10

        Revert change #31480. The PI and e functions can accept an argument.

Affected files ...

... //depot/perl/lib/bigint.pm#20 edit
... //depot/perl/lib/bignum.pm#21 edit
... //depot/perl/lib/bigrat.pm#18 edit

Differences ...

==== //depot/perl/lib/bigint.pm#20 (text) ====
Index: perl/lib/bigint.pm
--- perl/lib/bigint.pm#19~31480~        2007-06-27 06:02:02.000000000 -0700
+++ perl/lib/bigint.pm  2007-06-27 09:40:10.000000000 -0700
@@ -280,8 +280,8 @@
 
 sub inf () { Math::BigInt::binf(); }
 sub NaN () { Math::BigInt::bnan(); }
-sub PI  () { Math::BigInt->new(3); }
-sub e   () { Math::BigInt->new(2); }
+sub PI { Math::BigInt->new(3); }
+sub e  { Math::BigInt->new(2); }
 
 1;
 

==== //depot/perl/lib/bignum.pm#21 (text) ====
Index: perl/lib/bignum.pm
--- perl/lib/bignum.pm#20~31480~        2007-06-27 06:02:02.000000000 -0700
+++ perl/lib/bignum.pm  2007-06-27 09:40:10.000000000 -0700
@@ -240,8 +240,8 @@
   }
   }
 
-sub PI () { Math::BigFloat::bpi(@_); }
-sub e  () { Math::BigFloat->bone->bexp(@_); }
+sub PI { Math::BigFloat::bpi(@_); }
+sub e  { Math::BigFloat->bone->bexp(@_); }
 
 1;
 

==== //depot/perl/lib/bigrat.pm#18 (text) ====
Index: perl/lib/bigrat.pm
--- perl/lib/bigrat.pm#17~31480~        2007-06-27 06:02:02.000000000 -0700
+++ perl/lib/bigrat.pm  2007-06-27 09:40:10.000000000 -0700
@@ -226,8 +226,8 @@
   }
   }
 
-sub PI () { local $Math::BigFloat::upgrade = undef; Math::BigFloat::bpi(@_); }
-sub e  () { local $Math::BigFloat::upgrade = undef; 
Math::BigFloat->bone()->bexp(@_); }
+sub PI { local $Math::BigFloat::upgrade = undef; Math::BigFloat::bpi(@_); }
+sub e  { local $Math::BigFloat::upgrade = undef; 
Math::BigFloat->bone()->bexp(@_); }
 
 1;
 
End of Patch.