CGI::XHTML_DTD redefined - #131218 (Allgemeines zu Perl)

MatthiasW

2010-01-25 17:02

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

2010-01-25T14:54:16 Taulmarill
constant hat warnings standardmäßig eingeschaltet (zumindest bei perl 5.10.1 wo ich es nachgeschaut habe). Dass es warnt, wenn eine Konstante ein weiteres mal belegt wird, ist AFAIK normal und gewollt.

Hm.. also bei mir wird lediglich warnings::register geladen. (constant.pm 1.13).

Ein kurzer Test ergibt auch, dass bei selbem Wert, keine Warnung geworfen wird.
Vergleiche:

Code (perl): (dl )

$ perl
use warnings;
use constant TEST => 1;
use constant TEST => 1;

mit:

Code (perl): (dl )

1
2
3

$ perl -w
use constant TEST => 1;
use constant TEST => 1;

Beim ersten bekomme ich keine Warnung, beim zweiten jedoch schon.

Versuche ich eine Konstante mit einem anderen Wert neu zu belegen, so bekomme ich immer eine Warnung.

MfG

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'