From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 16 Dec 2004 08:53:32 +0000 (-0600)
Subject: bop.t follow-up to #23645
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d4c5c869043fa9353a750a98a5c2dad02bf2491c;p=p5sagit%2Fp5-mst-13.2.git

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