Mark Dootson schreef:
>> + my @libs = ();
>> + for (@INC) {
>> + my $ilib = $_;
>> + $ilib =~ s/\\/\//g if($^O =~ /^MSWin/);
>> + push(@libs, qq(-I\"$ilib\") );
>> + }
my @libs = map qq(-I"$_"), @INC;
if ($^O =~ /^MSWin/) {
s#\\#/#g for @libs;
}
--
Affijn, Ruud
"Gewoon is een tijger."
