# Public domain sub TEST_getenv { TryCompile 'HAVE_GETENV', << 'EOF'; #include int main(int argc, char *argv[]) { (void)getenv("PATH"); return (0); } EOF } sub DISABLE_getenv { MkDefine('HAVE_GETENV', 'no'); MkSaveUndef('HAVE_GETENV'); } sub EMUL_getenv { my ($os, $osrel, $machine) = @_; if ($os =~ /^windows/) { MkEmulWindows('GETENV', ''); } else { MkEmulUnavail('GETENV'); } return (1); } BEGIN { my $n = 'getenv'; $DESCR{$n} = 'getenv()'; $TESTS{$n} = \&TEST_getenv; $DISABLE{$n} = \&DISABLE_getenv; $EMUL{$n} = \&EMUL_getenv; $DEPS{$n} = 'cc'; } ;1