#!./perl
-$ENV{PATH} = '/bin:/usr/bin:/usr/xpg4/bin:/usr/ucb';
+$ENV{PATH} ="/bin:/usr/bin:/usr/xpg4/bin:/usr/ucb" .
+ exists $ENV{PATH} ? ":$ENV{PATH}" : "";
+$ENV{LC_ALL} = "C"; # so that external utilities speak English
+$ENV{LANGUAGE} = 'C'; # GNU locale extension
+
+sub quit {
+ print "1..0\n";
+ exit 0;
+}
+
+quit() if $^O eq 'MSWin32';
# We have to find a command that prints all (effective
# and real) group names (not ids). The known commands are:
last GROUPS;
}
# Okay, not today.
- print "1..0\n";
- exit 0;
+ quit();
}
# Remember that group names can contain whitespace, '-', et cetera.