Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (8)
As of 2018-06-22 16:11 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (124 votes). Check out past polls.