From 8bb5f78688d9af260b13d9c9ba5dd28f01f846ec Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 13 May 2011 08:30:25 -0700
Subject: Revert "Revert "[perl #77688] tie $scalar can tie a handle""

This reverts commit 7850f4d6b732ab5f426cd3bcd9757c70a46cfda1.
---
 pp_sys.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pp_sys.c')

diff --git a/pp_sys.c b/pp_sys.c
index a45a8c2da4..31c6ea81c6 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -836,7 +836,7 @@ PP(pp_tie)
 	    break;
 	case SVt_PVGV:
 	case SVt_PVLV:
-	    if (isGV_with_GP(varsv)) {
+	    if (isGV_with_GP(varsv) && !SvFAKE(varsv)) {
 		methname = "TIEHANDLE";
 		how = PERL_MAGIC_tiedscalar;
 		/* For tied filehandles, we apply tiedscalar magic to the IO
-- 
cgit v1.2.1