Re: How to stack a call to a class method

Perhaps I'm a little off base here, but are you really sure you are doing what you want to do? I can't think of any code that actually uses warnings::warn() at all, so I don't see why redefining it would be particularly useful. Redefining it won't affect CORE::warn, which you can only override through an import, and even then only within the scope of the module that does the use. (Healthy amounts of iirc here :-)

You can however intercept calls to warn via $SIG{__WARN__}, however this approach is a little strange and has potential problems playing well with other modules/code.

If this isnt the issue at hand then my apologies and Aristotles approach should do just fine. :-) (But an explanation of your underlying intentions would be welcome :-)

---
demerphq

Comment on Re: How to stack a call to a class method Download Code

Replies are listed 'Best First'.
Re: Re: How to stack a call to a class method by belden (Friar) on Mar 03, 2003 at 21:39 UTC
I can't think of any code that actually uses warnings::warn() at all... `% cd /usr/local/lib/perl5 % find . -type f -exec grep -l 'warnings::warn' {} \; ./5.8.0/alpha-dec_osf/DB_File.pm ./5.8.0/alpha-dec_osf/Socket.pm ./5.8.0/alpha-dec_osf/IO/Select.pm ./5.8.0/charnames.pm ./5.8.0/constant.pm ./5.8.0/open.pm ./5.8.0/overload.pm ./5.8.0/syslog.pl ./5.8.0/vars.pm ./5.8.0/warnings.pm ./5.8.0/Tie/Handle.pm ./5.8.0/Tie/Hash.pm ./5.8.0/Tie/Scalar.pm ./5.8.0/I18N/Collate.pm ./5.8.0/File/Find.pm ./5.8.0/Class/Struct.pm ./5.8.0/pod/perllexwarn.pod ./5.8.0/pod/perltoc.pod` [download] Not an overwhelmingly large list, but there are a few modules. blyman setenv EXINIT 'set noai ts=2'	[reply] [d/l]
Re: Re: Re: How to stack a call to a class method by demerphq (Chancellor) on Mar 04, 2003 at 09:23 UTC
Yes true. And in fact if you had done a search on warnings::warnif() you probably would have found many more hits. Thanks for the correction. Although I didnt articulate this, what I was thinking of was that all output from warnings.pm are reported through CORE::warn() and CORE::die() (via Carp.pm) so overriding them (globally) or setting $SIG{__WARN__} and $SIG{__DIE__} to preprocess their arguments should resolve all user generated messages. The latter actually allows you to intercept Perl generated exceptions. Although in the case of a die() that won't be useful for much beyond changing the error message. --- demerphq	[reply] [d/l]
Re: Re: Re: Re: How to stack a call to a class method by belden (Friar) on Mar 08, 2003 at 18:15 UTC
++demerphq Thanks for the update. Yesterday a co-worker asked me how to turn off warnings that a module was generating during the course of his testing. (The warnings were of the sort "warning, you're running in test mode, DB will not be updated") During the test, he doesn't want to see the warnings. But during a live run, he would want to see them show up in the log. We played around unsuccessfully with having the test program install a new warnings::warn, CORE::warn, and even installing a warn in the package that was being tested. No dice. $SIG{__WARN__} sounds like exactly what we want; I'll have to hit that bit of the cookbook a bit more ;) blyman setenv EXINIT 'set noai ts=2'	[reply]
Re: Re: How to stack a call to a class method by fokat (Deacon) on Mar 03, 2003 at 17:24 UTC
Well demerphq, let me try to explain my intentions a bit more, although you might find this node informational so as to my purpose. (...) are you really sure you are doing what you want to do? I am not totally sure, but I am looking for a module that can help busy monks place some sort of protection against the vulnerability explained in the document referenced on this whitepaper until better measures can be applied by the respective module authors. (...)I can't think of any code that actually uses warnings::warn() at all, so I don't see why redefining it would be particularly useful. Certainly, at my company none of the code I've seen lately uses `warnings::warn()`, but I wanted to include it anyway just for completeness. (...) this approach is a little strange and has potential problems playing well with other modules/code. This is exactly where I would like enlightenment from you as well as other nodes. Please let's discuss that in this meditation. And thanks a lot for your answer. Best regards -lem, but some call me fokat	[reply]