bop.t follow-up to #23645

From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <41C1A16C.9040700@mac.com>

p4raw-id: //depot/perl@23660

diff --git a/t/op/bop.t b/t/op/bop.t
index b3d5382..b93b3c5 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 => 'eval q($#a>>=1); print 1'), 1 );
+like( runperl(prog => 'eval q($#a>>=1); print 1'), "^1\n?" );