diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-10-25 10:52:42 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-25 10:52:42 -0700 |
| commit | 9aa8b00892d81bb5e94565d3cb9841dd57b7b9cf (patch) | |
| tree | 8e675bf2f7f25b746b99e3f094065bade479e592 /pp_sys.c | |
| parent | 0095ccd463db264dc799ca02921528f64f1dc0b2 (diff) | |
| download | perl-9aa8b00892d81bb5e94565d3cb9841dd57b7b9cf.tar.gz | |
[perl #77688] tie $scalar can tie a handle
Make tie() distinguish between $scalar and *$scalar when $scalar holds
a glob copy, by checking the FAKE flag.
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -826,7 +826,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 |