sub inspect {
    return "windows"
        if $^O eq 'MSWin32' || $^O eq 'Windows_NT';

    my $frunext = $ENV{FRUNEXT}
        or die("Environment variable 'FRUNEXT' not set\n");

    return $frunext
       if $frunext =~ /^(?:ifx|msv|ora)$/;

    return '';
}

##</code><code>##

my %db_lkup = (
    ifx => 'informix',
    msv => 'sql',
    ifx => 'oracle',
);

sub inspect {
    return "windows"
        if $^O eq 'MSWin32' || $^O eq 'Windows_NT';

    my $frunext = $ENV{FRUNEXT}
        or die("Environment variable 'FRUNEXT' not set\n");

    return $db_lkup{$frunext}
       if exists( $db_lkup{$frunext} );

    return '';
}