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