Consider alternate location for system groups command

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

diff --git a/t/op/sort.t b/t/op/sort.t
index 56a0fd3..dc01e5f 100755 (executable)
--- a/t/op/sort.t
+++ b/t/op/sort.t
@@ -12,7 +12,7 @@ sub backwards { $a lt $b ? 1 : $a gt $b ? -1 : 0; }
 $x = join('', sort @harry);
 print ($x eq 'AbelCaincatdogx' ? "ok 1\n" : "not ok 1\n");
 
-$x = join('', sort backwards @harry);
+$x = join('', sort( backwards @harry));
 print ($x eq 'xdogcatCainAbel' ? "ok 2\n" : "not ok 2\n");
 
 $x = join('', sort @george, 'to', @harry);