Integrate change #9605 from maintperl into mainline.

can't optimize away scope entry if tr/// is present

p4raw-link: @9605 on //depot/maint-5.6/perl: c26ea50d9fd947ede98c9a5c8c05ff72fc15deaa

p4raw-id: //depot/perl@9607
p4raw-integrated: from //depot/maint-5.6/perl@9606 'merge in' t/op/tr.t
	(@9551..) op.c (@9597..)

1 files changed, 10 insertions, 1 deletions

diff --git a/t/op/tr.t b/t/op/tr.t
index 90b03706e2..7c73430687 100755
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..67\n";
+print "1..69\n";
 
 $_ = "abcdefghijklmnopqrstuvwxyz";
 
@@ -376,3 +376,12 @@ print "ok 66\n";
 print "not " if hex($a) != 1;
 print "ok 67\n";
 
+# From Inaba Hiroto
+@a = (1,2); map { y/1/./ for $_ } @a;
+print "not " if "@a" ne ". 2";
+print "ok 68\n";
+
+@a = (1,2); map { y/1/./ for $_.'' } @a;
+print "not " if "@a" ne "1 2";
+print "ok 69\n";
+