Change 23660 by [EMAIL PROTECTED] on 2004/12/16 16:09:20
Subject: [PATCH] bop.t follow-up to #23645
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Thu, 16 Dec 2004 08:53:32 -0600
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/op/bop.t#25 edit
Differences ...
==== //depot/perl/t/op/bop.t#25 (xtext) ====
Index: perl/t/op/bop.t
--- perl/t/op/bop.t#24~23646~ Mon Dec 13 23:41:08 2004
+++ perl/t/op/bop.t Thu Dec 16 08:09:20 2004
@@ -324,4 +324,4 @@
# [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?" );
End of Patch.
