diff options
| author | Craig A. Berry <craigberry@mac.com> | 2004-12-16 02:53:32 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-12-16 16:09:20 +0000 |
| commit | d4c5c869043fa9353a750a98a5c2dad02bf2491c (patch) | |
| tree | aebd60235817187f9ed4fe1748fd7ffb61c1ccdb /t/op/bop.t | |
| parent | 170888cff5e2ffb7b4b221453ce3ca926e8506b5 (diff) | |
| download | perl-d4c5c869043fa9353a750a98a5c2dad02bf2491c.tar.gz | |
bop.t follow-up to #23645
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <41C1A16C.9040700@mac.com>
p4raw-id: //depot/perl@23660
Diffstat (limited to 't/op/bop.t')
| -rwxr-xr-x | t/op/bop.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/bop.t b/t/op/bop.t index b3d538265d..b93b3c52f6 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?" ); |