diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-12-02 09:36:35 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-12-02 17:45:05 -0800 |
| commit | 84b9ac853508aaff52254b6cf2b95a2a6783ff00 (patch) | |
| tree | fa304bbcca315e9c29021b3bee9524e710f607e9 /t/op/tie.t | |
| parent | 8cbe99e5b6fe99a6bc17c0b0cee249bac3565da4 (diff) | |
| download | perl-84b9ac853508aaff52254b6cf2b95a2a6783ff00.tar.gz | |
Revert "Make untie check the FAKE flag on globs"
This reverts commit 830748013f81bcc28d145baf4024efd1b6537704.
Diffstat (limited to 't/op/tie.t')
| -rw-r--r-- | t/op/tie.t | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index 6bad251d14..5acd9a9db0 100644 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -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 |