diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-05-13 08:30:25 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-06-11 11:16:45 -0700 |
| commit | 8bb5f78688d9af260b13d9c9ba5dd28f01f846ec (patch) | |
| tree | ac70ba48b393df4dab8ecd63d340b6212ce101c2 /pp_sys.c | |
| parent | 4be76e1f2b4f53b080616615372a4ebaff876c87 (diff) | |
| download | perl-8bb5f78688d9af260b13d9c9ba5dd28f01f846ec.tar.gz | |
Revert "Revert "[perl #77688] tie $scalar can tie a handle""
This reverts commit 7850f4d6b732ab5f426cd3bcd9757c70a46cfda1.
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |