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