Test hex('x...').

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

diff --git a/t/op/do.t b/t/op/do.t
index db46237..87ec08d 100755 (executable)
--- a/t/op/do.t
+++ b/t/op/do.t
@@ -10,7 +10,7 @@ sub foo1
 
 sub foo2
 {
-    shift(_);
+    shift;
     print $_[0];
     $x = 'value';
     $x;