Change 31480 by [EMAIL PROTECTED] on 2007/06/27 13:02:02
Add an empty prototype to functions PI and e
Affected files ...
... //depot/perl/lib/bigint.pm#19 edit
... //depot/perl/lib/bignum.pm#20 edit
... //depot/perl/lib/bigrat.pm#17 edit
Differences ...
==== //depot/perl/lib/bigint.pm#19 (text) ====
Index: perl/lib/bigint.pm
--- perl/lib/bigint.pm#18~31479~ 2007-06-27 05:57:52.000000000 -0700
+++ perl/lib/bigint.pm 2007-06-27 06:02:02.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#20 (text) ====
Index: perl/lib/bignum.pm
--- perl/lib/bignum.pm#19~31479~ 2007-06-27 05:57:52.000000000 -0700
+++ perl/lib/bignum.pm 2007-06-27 06:02:02.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#17 (text) ====
Index: perl/lib/bigrat.pm
--- perl/lib/bigrat.pm#16~31479~ 2007-06-27 05:57:52.000000000 -0700
+++ perl/lib/bigrat.pm 2007-06-27 06:02:02.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.