package GetRidOfOracle;

# @INC is messed up, so we must not load any other module here.
# This includes "strict" and "warnings".

sub isOracleDirectory
{
    my $dirname=shift;
    # We are on Windows. / and \ are equal. Case does not matter.
    # Change to local conditions as needed.
    $dirname=~tr|\\|/|;
    return lc($dirname)=~m|/oracle/|;
}

# remove Oracle Directories from @INC:
@INC=grep { !isOracleDirectory($_) } @INC; 

1;