Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

warnings for modules < 5.6

by liz (Monsignor)
on Jul 29, 2003 at 12:09 UTC ( #278796=snippet: print w/ replies, xml ) Need Help??

Description: Since it seems there is not going to be a quick solution to the problem of modules running under perl < 5.6 with "use warnings" (see 278753), I thought I'd add this piece of code to the snippets. Courtesy of Podmaster. Documentation added for those monks not really familliar with BEGIN, GLOBs and %INC.

Liz


# Do this at compile time

BEGIN {

#  Check if there is a warnings module available

    eval {
        require warnings;

#  If not, create dummy "import" and "unimport" subroutines

    } or do {
        no strict 'refs';
        *warnings::import = *warnings::unimport = sub{};

#  Make sure no attempt will be made to load the "warnings.pm" file ev
+er again

        $INC{'warnings.pm'} = '';
    }
} #BEGIN
Comment on warnings for modules < 5.6
Download Code
Re: warnings for modules < 5.6
by Jenda (Abbot) on Aug 13, 2003 at 12:32 UTC

    The fake import() and unimport() is not necessary actually.

    Jenda
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live.
       -- Rick Osborne

    Edit by castaway: Closed small tag in signature

Back to Snippets Section

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://278796]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (7)
As of 2015-07-06 10:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (72 votes), past polls