update change#2670 to later version

[p5sagit/p5-mst-13.2.git] / t / op / groups.t

diff --git a/t/op/groups.t b/t/op/groups.t
index 824e88d..5778795 100755 (executable)
--- a/t/op/groups.t
+++ b/t/op/groups.t
@@ -3,6 +3,14 @@
 $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:
@@ -54,8 +62,7 @@ EOM
        last GROUPS;
     }
     # Okay, not today.
-    print "1..0\n";
-    exit 0;
+    quit();
 }
 
 # Remember that group names can contain whitespace, '-', et cetera.