This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
242a51a
)
Fix regression test for RT 63110 when running with PERL_UNICODE set
author
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Tue, 9 Jun 2009 08:25:51 +0000
(10:25 +0200)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Tue, 9 Jun 2009 08:25:51 +0000
(10:25 +0200)
This is because block_start already does a copy of the hints in this case.
t/op/eval.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/eval.t
b/t/op/eval.t
index
2fef2aa
..
071b2fa
100644
(file)
--- a/
t/op/eval.t
+++ b/
t/op/eval.t
@@
-549,10
+549,11
@@
$test++;
# don't leak memory
{
use feature qw(:5.10);
+ my $count_expected = ($^H & 0x20000) ? 2 : 1;
my $t;
my $s = "a";
$s =~ s/a/$t = \%^H; qq( qq() );/ee;
- print "not " if Internals::SvREFCNT(%$t) !=
1
;
+ print "not " if Internals::SvREFCNT(%$t) !=
$count_expected
;
print "ok $test - RT 63110\n";
$test++;
}