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

p4raw-link: @31480 on //depot/perl: c8ab6ea16e62f8a4c2caf5d6b6f57d1f5fb3b685

p4raw-id: //depot/perl@31481

diff --git a/lib/bigint.pm b/lib/bigint.pm
index 9a23200..6eaa77e 100644 (file)
--- a/lib/bigint.pm
+++ b/lib/bigint.pm
@@ -280,8 +280,8 @@ sub import
 
 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;
 

diff --git a/lib/bignum.pm b/lib/bignum.pm
index e9ab3bc..f8814f9 100644 (file)
--- a/lib/bignum.pm
+++ b/lib/bignum.pm
@@ -240,8 +240,8 @@ sub import
   }
   }
 
-sub PI () { Math::BigFloat::bpi(@_); }
-sub e  () { Math::BigFloat->bone->bexp(@_); }
+sub PI { Math::BigFloat::bpi(@_); }
+sub e  { Math::BigFloat->bone->bexp(@_); }
 
 1;
 

diff --git a/lib/bigrat.pm b/lib/bigrat.pm
index b5fb267..e185d4f 100644 (file)
--- a/lib/bigrat.pm
+++ b/lib/bigrat.pm
@@ -226,8 +226,8 @@ sub import
   }
   }
 
-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;