change -i semantics to match GHC.
} elsif ( /^-D(.*)/ ) { # recognized wherever they occur
push(@Defines, $_);
} elsif ( /^-D(.*)/ ) { # recognized wherever they occur
push(@Defines, $_);
- } elsif ( /^-i(.*)/ ) { # ditto
- $Import_dirs .= ":$1";
+ } elsif ( /^-i$/ ) {
+ $Import_dirs = ''; # import path cleared!
+ } elsif ( /^-i(.*)/ ) {
+ $Import_dirs = "$1:$Import_dirs";
} elsif ( /^-I/ ) {
$Include_dirs .= " $_";
} elsif ( /^-syslib$/ ) {
} elsif ( /^-I/ ) {
$Include_dirs .= " $_";
} elsif ( /^-syslib$/ ) {