Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Can not remove 'redefined' warning

by grondilu (Friar)
on Jun 08, 2012 at 13:28 UTC ( #975161=perlquestion: print w/replies, xml ) Need Help??
grondilu has asked for the wisdom of the Perl Monks concerning the following question:

I have a package where I redefine the multiplication operator defined in Math::BigInt:

use bigint; package MyPackage; sub F; ... package Math::BigInt; no warnings 'redefine'; use overload '*' => sub { return ref($_[1]) eq 'MyPackage' ? MyPackage::F($_[0], $_[1]) : $_ +[0]->copy->bmult($_[1]); };

Unfortunatly the 'no warnings "redefine"' doesn't suppress a 'subroutine Math::BigInt::(* redefined at...' warning.

What am I missing?

Replies are listed 'Best First'.
Re: Can not remove 'redefined' warning (no)
by tye (Sage) on Jun 08, 2012 at 13:56 UTC has lexical scope and so your use of it has no impact on the actual assignment code inside of

    package Math::BigInt; no overload '*'; use overload '*' => sub { ... };

    - tye        

      It works! Thanks a lot :) !

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://975161]
Approved by marto
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2016-10-27 01:29 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (351 votes). Check out past polls.