This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Another seemingly fixed (un)tie bug,
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 5 Sep 2003 04:13:17 +0000 (04:13 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 5 Sep 2003 04:13:17 +0000 (04:13 +0000)
[perl ##22297] cannot untie scalar from within tied FETCH

p4raw-id: //depot/perl@21039

t/op/tie.t

index 7e45615..f30f693 100755 (executable)
@@ -405,3 +405,44 @@ Two
 4
 Three
 4
 4
 Three
 4
+########
+# [perl #22297] cannot untie scalar from within tied FETCH
+my $counter = 0;
+my $x = 7;
+my $ref = \$x;
+tie $x, 'Overlay', $ref, $x;
+my $y;
+$y = $x;
+$y = $x;
+$y = $x;
+$y = $x;
+#print "WILL EXTERNAL UNTIE $ref\n";
+untie $$ref;
+$y = $x;
+$y = $x;
+$y = $x;
+$y = $x;
+#print "counter = $counter\n";
+
+print (($counter == 1) ? "ok\n" : "not ok\n");
+
+package Overlay;
+
+sub TIESCALAR
+{
+        my $pkg = shift;
+        my ($ref, $val) = @_;
+        return bless [ $ref, $val ], $pkg;
+}
+
+sub FETCH
+{
+        my $self = shift;
+        my ($ref, $val) = @$self;
+        #print "WILL INTERNAL UNITE $ref\n";
+        $counter++;
+        untie $$ref;
+        return $val;
+}
+EXPECT
+ok