do subname() is deprecated, so update this hunk of test dating from perl 1.

diff --git a/t/op/chop.t b/t/op/chop.t
index 503f6f7..39577c2 100644 (file)
--- a/t/op/chop.t
+++ b/t/op/chop.t
@@ -9,7 +9,7 @@ BEGIN {
 plan tests => 139;
 
 $_ = 'abc';
-$c = do foo();
+$c = foo();
 is ($c . $_, 'cab', 'optimized');
 
 $_ = 'abc';