Re: Constant redefined


more useful options
	PerlMonks

Re: Constant redefined

by tlm (Prior)

on May 31, 2005 at 02:58 UTC ( [id://461910]=note: print w/replies, xml )

Need Help??

in reply to Constant redefined

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

{
  no warnings;
  use constant TEST => 2;
}
[download]

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
[download]

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

Comment on Re: Constant redefined Select or Download Code

Replies are listed 'Best First'.
Re^2: Constant redefined by K_M_McMahon (Hermit) on May 31, 2005 at 03: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;}` [download]	[reply] [d/l]