RT#69616: regexp SVs lose regexpness in assignment

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

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';