1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/ref.t b/t/op/ref.t
index 73a54ff3c8..38e34f002b 100755
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -177,7 +177,7 @@ print $foo eq foo ? "ok 37\n" : "not ok 37\n";
 sub BASEOBJ'doit {
     local $ref = shift;
     die "Not an OBJ" unless ref $ref eq OBJ;
-    $ref->{shift};
+    $ref->{shift()};
 }
 
 package UNIVERSAL;