Beefy Boxes and Bandwidth Generously Provided by pair Networks chromatic writing perl on a camel
more useful options
 
PerlMonks  

Re: Constant redefined

by tlm (Prior)
on May 30, 2005 at 22:58 UTC ( [id://461910]=note: print w/replies, xml ) Need Help??

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.


in reply to Constant redefined

It's only a warning. You can suppress it with no warnings

{ no warnings; use constant TEST => 2; }

Update: Dang. That no warnings bit was all wrong, as noted by K_M_McMahon++. The worst of it is that I had even run the test

% perl -Mstrict -wle 'use constant x => 1; { no warnings; use constant + x => 4; } print x' Constant subroutine main::x redefined at /opt/lib/perl5/5.8.3/constant +.pm line 108. 4
but only paid attention to the fact that the last print out was correct, and completely ignored the fact that I was still getting a warning. Sheesh.

the lowliest monk

Replies are listed 'Best First'.
Re^2: Constant redefined
by K_M_McMahon (Hermit) on May 30, 2005 at 23:17 UTC
    I still get the error even using your no warnings code or with a global no warnings

    I am curious about the need to redefine a constant. If you are going to be changing its' value, you should be using variables anyway....

    -Kevin
    my $a='62696c6c77667269656e6440676d61696c2e636f6d'; while ($a=~m/(^.{2})/s) {print unpack('A',pack('H*',"$1"));$a=~s/^.{2}//s;}

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://461910]
help
Sections?
Information?
Find Nodes?
Leftovers?
    Notices?
    hippoepoptai's answer Re: how do I set a cookie and redirect was blessed by hippo!
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.