This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Stop calling get-magic twice for lvalue pos($utf8)
[perl5.git] / t / op / tie_fetch_count.t
index 9cadaf6..977b8bf 100644 (file)
@@ -7,7 +7,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
-    plan (tests => 304);
+    plan (tests => 305);
 }
 
 use strict;
 }
 
 use strict;
@@ -248,7 +248,8 @@ for ([chdir=>''],[chmod=>'0,'],[chown=>'0,0,'],[utime=>'0,0,'],
                             ; check_count 'select $tied_undef, ...';
 }
 
                             ; check_count 'select $tied_undef, ...';
 }
 
-$var = "\x{100}";
+tie $var, "main", "\x{100}";
+pos$var = 0             ; check_count 'lvalue pos $utf8';
 $dummy  = substr$var,0,1; check_count 'substr $utf8';
 
 {
 $dummy  = substr$var,0,1; check_count 'substr $utf8';
 
 {