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";
+