diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-01-17 13:39:59 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-01-17 13:39:59 +0000 |
| commit | 13d7cbc19a96f5e624f1b194ed83075a47c1251d (patch) | |
| tree | f5ba9055a73083244756b07b8d8bfe11d29f58e3 /t/op/groups.t | |
| parent | 51a19bc0654ae83130b5db1dfb665bcc81c7afd1 (diff) | |
| download | perl-13d7cbc19a96f5e624f1b194ed83075a47c1251d.tar.gz | |
bogus assert()
p4raw-id: //depot/perl@2633
Diffstat (limited to 't/op/groups.t')
| -rwxr-xr-x | t/op/groups.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/t/op/groups.t b/t/op/groups.t index 824e88d28e..dc8385b853 100755 --- a/t/op/groups.t +++ b/t/op/groups.t @@ -4,6 +4,13 @@ $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 +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: # groups @@ -54,8 +61,7 @@ EOM last GROUPS; } # Okay, not today. - print "1..0\n"; - exit 0; + quit(); } # Remember that group names can contain whitespace, '-', et cetera. |