#sicherheitsvariable für zu inkludierende Dateien (dass diese immer über index.pl aufgerufen werden müssen)
use constant SECURITY => "ich bin zur Sicherheit";

[Tue Feb  3 13:32:10 2009] index.pl: Prototype mismatch: sub ModPerl::ROOT::ModPerl::PerlRunPrefork::oracle_tool_index_2epl::SECURITY: none vs () at /opt/lampp/lib/perl5/5.10.0/constant.pm line 115.
[Tue Feb  3 13:32:10 2009] -e: Constant subroutine ModPerl::ROOT::ModPerl::PerlRunPrefork::oracle_tool_index_2epl::SECURITY redefined at /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux/ModPerl/Util.pm line 69.

110                     # constants from cv_const_sv are read only. So we have to:
    111                     Internals::SvREADONLY($scalar, 1);
    112                     $symtab->{$name} = \$scalar;
    113                     mro::method_changed_in($pkg);
    114                 } else {
    115                     *$full_name = sub () { $scalar };
    116                 }
    117             } elsif (@_) {
    118                 my @list = @_;
    119                 *$full_name = sub () { @list };
    120             } else {
    121                 *$full_name = sub () { };
    122             }

 60         if ($$fullname) {
     61             my $tmp; # argh, no such thing as an anonymous scalar
     62             *{$fullname} = \$tmp;
     63             undef $$fullname;
     64         }
     65         if (defined &$fullname) {
     66             no warnings;
     67             local $^W = 0;
     68             if (defined(my $p = prototype $fullname)) {
     69                 *{$fullname} = eval "sub ($p) {}";
     70             }

BEGIN {
  no warnings 'redefined';
  use constant ...;
}

$ perl -wle'

use constant SECURITY => 23;

sub SECURITY { print "something" }'
Prototype mismatch: sub main::SECURITY () vs none at -e line 5.
Constant subroutine SECURITY redefined at -e line 5.

[error] Unknown warnings category 'redefined'

BEGIN{
        no warnings 'redefined';
   use constant SECURIT => "ich bin zur Sicherheit";
}