Thread Fehlermeldung bei use constant mit mod_perl *was:security (7 answers)
Opened by bieber at 2009-02-03 09:19

bieber
 2009-02-03 11:34
#118603 #118603
User since
2007-06-18
148 Artikel
BenutzerIn
[default_avatar]
na klar, ich hatte vermutet, dass das Konstrukt mit der Konstante nicht sauber ist, weswegen ich es nicht gepostet habe, sorry

constant.pm
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
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             }

util.pm
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
 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             }
Es gibt immer Leute die meinen, sie seien schlauer als ich. Das Schlimmste ist, sie sind es auch.

View full thread Fehlermeldung bei use constant mit mod_perl *was:security