From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 14 Dec 2004 07:41:08 +0000 (+0000)
Subject: Fix test added in change 23645 with an eval()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e8d8584e4717e20a3de330c4e726e8e2c16aee35;p=p5sagit%2Fp5-mst-13.2.git

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