summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2010-12-02 09:36:41 -0800
committerFather Chrysostomos <sprout@cpan.org>2010-12-02 17:45:06 -0800
commit7850f4d6b732ab5f426cd3bcd9757c70a46cfda1 (patch)
treed0b896978fba6773c5fab519c3f6f6054b1c4302 /pp_sys.c
parent84b9ac853508aaff52254b6cf2b95a2a6783ff00 (diff)
downloadperl-7850f4d6b732ab5f426cd3bcd9757c70a46cfda1.tar.gz
Revert "[perl #77688] tie $scalar can tie a handle"
This reverts commit 9aa8b00892d81bb5e94565d3cb9841dd57b7b9cf.
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_sys.c b/pp_sys.c
index a69cbcf554..695199a1d5 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -826,7 +826,7 @@ PP(pp_tie)
break;
case SVt_PVGV:
case SVt_PVLV:
- if (isGV_with_GP(varsv) && !SvFAKE(varsv)) {
+ if (isGV_with_GP(varsv)) {
methname = "TIEHANDLE";
how = PERL_MAGIC_tiedscalar;
/* For tied filehandles, we apply tiedscalar magic to the IO