Fix test added in change 23645 with an eval()

p4raw-id: //depot/perl@23646

diff --git a/t/op/bop.t b/t/op/bop.t
index 5220f0a..b3d5382 100755 (executable)
--- a/t/op/bop.t
+++ b/t/op/bop.t
@@ -324,4 +324,4 @@ is($a, "\xFF", "~ works with utf-8");
 
 # [rt.perl.org 33003]
 # This would cause a segfault
-is( runperl(prog => '$#a>>=1; print 1'), 1 );
+is( runperl(prog => 'eval q($#a>>=1); print 1'), 1 );