Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Redefining Imported Subs: of scope and no

by LanX (Bishop)
on Feb 09, 2013 at 02:22 UTC ( #1017918=note: print w/replies, xml ) Need Help??


in reply to Redefining Imported Subs: of scope and no

Long read!

(wont try it again! ;-)

I don't understand why you're using feature qw(say) if you wanna redefine 'say.

This makes say() a builtin which has to be overridden like described in perlsub#Overriding Built in Functions.

Otherwise this works:

$verbose=0; sub not_say { print 'not saying'; } sub say { print @_,"\n"; } { no warnings; *say = \&not_say if not $verbose; } say 'test';

or even simpler:

use strict; use warnings; no feature "say"; sub say { print "nothing"; } say 'test';

OTOH you will certainly have problems if someone manages to globally switch say on.

My suggestion is to replace say() with something like 'log()' or 'out()' and keep it simple, don't redefine the sub at all, just put the test condition into the function body.

Cheers Rolf

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1017918]
help
Chatterbox?
[vedagiri89]: install perl5.16 in the new server and try to run appache
[hippo]: Which version of CentOS?
[vedagiri89]: how to fix: Attempt to reload DynaLoader.pm aborted
[hippo]: Ah, presumably 7 then.
[vedagiri89]: CentOS Linux release 7.0.1406 (Core)
[hippo]: How did you install libapreq2?
[vedagiri89]: that one is done by system team from the tar i guess
[hippo]: Really? Not using the one from the CentOS repository? Perhaps that's the problem.
[vedagiri89]: i need when this issue will come usually
[hippo]: How about mod_perl? Was that installed from the CentOS packge or from source?

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (8)
As of 2018-06-19 11:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?



    Results (113 votes). Check out past polls.

    Notices?