Opening dirhandle DIR also as a file needs no warnings 'deprecated';

[p5sagit/p5-mst-13.2.git] / t / op / eval.t

diff --git a/t/op/eval.t b/t/op/eval.t
old mode 100755 (executable)
new mode 100644 (file)
index 4c01434..071b2fa
--- a/t/op/eval.t
+++ b/t/op/eval.t
@@ -541,7 +541,7 @@ END_EVAL_TEST
    print "ok $test # eval { 1 } completly resets \$@\n";
 }
 else {
-  print "ok $test # skipped - eval { 1 } completly resets \$@";
+  print "ok $test # skipped - eval { 1 } completly resets \$@\n";
 }
 $test++;
 
@@ -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++;
 }