diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-01-16 10:04:10 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-16 12:51:45 -0800 |
commit | 5e0688b6067afdfb59fdfa9923e658ed40c9f246 (patch) | |
tree | a2b238871976c5faff799237fe8e4869c2422a7e | |
parent | 7778d8049861df5954e61187039e2f815b0b4370 (diff) | |
download | perl-5e0688b6067afdfb59fdfa9923e658ed40c9f246.tar.gz |
BigInt.pm: Suppress overload warning
BigInt.pm intentionally registered an unregisterable op.
-rw-r--r-- | dist/Math-BigInt/lib/Math/BigInt.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/dist/Math-BigInt/lib/Math/BigInt.pm b/dist/Math-BigInt/lib/Math/BigInt.pm index 0bb8ebae3a..f1ebda45df 100644 --- a/dist/Math-BigInt/lib/Math/BigInt.pm +++ b/dist/Math-BigInt/lib/Math/BigInt.pm @@ -40,6 +40,8 @@ use strict; # Thus inheritance of overload operators becomes possible and transparent for # our subclasses without the need to repeat the entire overload section there. +# We register ops that are not registerable yet, so suppress warnings +{ no warnings; use overload '=' => sub { $_[0]->copy(); }, @@ -151,6 +153,7 @@ use overload '""' => sub { $_[0]->bstr(); }, '0+' => sub { $_[0]->numify(); } ; +} # no warnings scope ############################################################################## # global constants, flags and accessory |