This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
bop.t follow-up to #23645
authorCraig A. Berry <craigberry@mac.com>
Thu, 16 Dec 2004 08:53:32 +0000 (02:53 -0600)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 16 Dec 2004 16:09:20 +0000 (16:09 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <41C1A16C.9040700@mac.com>

p4raw-id: //depot/perl@23660

t/op/bop.t

index b3d5382..b93b3c5 100755 (executable)
@@ -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?" );