allow C<sort $coderef @foo>

[p5sagit/p5-mst-13.2.git] / t / pragma / overload.t

diff --git a/t/pragma/overload.t b/t/pragma/overload.t
index da85771..c013a7c 100755 (executable)
--- a/t/pragma/overload.t
+++ b/t/pragma/overload.t
@@ -778,8 +778,8 @@ test($c, "bareword");       # 135
   test "@sorted", '22 11 5 2 1'; # 189
   # Scalar
   test $$deref, 123;           # 190
-  # Glob
-  @sorted = sort $deref 11, 2, 5, 1, 22;
+  # Code
+  @sorted = sort $srt 11, 2, 5, 1, 22;
   test "@sorted", '22 11 5 2 1'; # 191
   # Array
   test "@$deref", '11 12 13';  # 192