Opened by script im Urlaub at 2009-07-18 17:38
Allen nochmal vielen Dank, die sich mit meiner Frage beschäftigt haben!
Es war wohl meine unglückliche Fehlersuche, die den Erfolg verhindert hat. Wie immer, wenn man etwas Neues anpackt, ist man verunsichert, ob es nur ein "kleiner" oder ein "grundsätzlicher" Fehler ist.
Also, die Dateirechte sind egal, alle "Includes" werden eingelesen, ob mit 644 oder 755!
Letztlich war es doch nur das Semikolon! Hier noch das fertige gekürzte Ergebnis ('aikxdc' ist variabel):
Es war wohl meine unglückliche Fehlersuche, die den Erfolg verhindert hat. Wie immer, wenn man etwas Neues anpackt, ist man verunsichert, ob es nur ein "kleiner" oder ein "grundsätzlicher" Fehler ist.
Also, die Dateirechte sind egal, alle "Includes" werden eingelesen, ob mit 644 oder 755!
Letztlich war es doch nur das Semikolon! Hier noch das fertige gekürzte Ergebnis ('aikxdc' ist variabel):
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13
use FindBin; use File::Spec; sub init { my $sitenick = 'aikxdc'; my @Configs = qw(config.cfg.pl meta.cfg.pl upload.cfg.pl); for my $cfg (@Configs) { $cfg = File::Spec->catdir( $FindBin::Bin, "config", $sitenick, $cfg ); eval { require "$cfg" ; }; if ( $@ ){ die "Can't load $cfg: $@"; } else { print STDERR "\nDatei geladen:'$cfg' \n"; } }