bloonix+2008-08-06 15:32:47--

Code: (dl )

1
2
3
4
5
6
7

use vars qw/$BASEDIR/;

BEGIN {
    use FindBin;
    $BASEDIR = $FindBin::Bin;
    $BASEDIR =~ s@/bin$@@;
}

darf ich fragen, wieso es hier eine globale variable sein muss? ich würde da eine variable
mit my() definieren. oder hab ich übersehen, dass du die noch woanders benutzt?