This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "Make untie check the FAKE flag on globs"
[perl5.git] / t / op / tie.t
index 6bad251..5acd9a9 100644 (file)
@@ -955,20 +955,12 @@ main
 f
 ########
 
-# (un)tie $glob_copy vs (un)tie *$glob_copy
-sub TIESCALAR { print "TIESCALAR\n"; bless [] }
-sub TIEHANDLE{ print "TIEHANDLE\n"; bless [] }
-sub FETCH { print "never called\n" }
+# tie $glob_copy vs tie *$glob_copy
+sub TIESCALAR { print "TIESCALAR\n" }
+sub TIEHANDLE{ print "TIEHANDLE\n" }
 $f = *foo;
 tie *$f, "";
 tie $f, "";
-untie $f;
-print "ok 1\n" if !tied $f;
-() = $f; # should not call FETCH
-untie *$f;
-print "ok 2\n" if !tied *foo;
 EXPECT
 TIEHANDLE
 TIESCALAR
-ok 1
-ok 2