|< 1 2 3 >| | 22 Einträge, 3 Seiten |
1
2
3
4
5
6
7
8
9
10
11
use File::Spec;
use FindBin;
BEGIN{
unless((defined $FindBin::Bin)&&(length($FindBin::Bin) > 3)&&(-d $FindBin::Bin)){
use File::Basename;
my($script,$bin) = fileparse($0);
unshift(@INC, File::Spec->catdir($bin,'mylibs'));
}else{
unshift(@INC, File::Spec->catdir($FindBin::Bin,'mylibs'));
}
}
QuoteEs gibt noch andere Hoster, die mit FindBin Müll veranstalten aber HE ist die Krönung des Ganzen.
|< 1 2 3 >| | 22 Einträge, 3 Seiten |