diff options
| author | Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> | 2006-06-22 00:39:51 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-06-23 16:28:03 +0000 |
| commit | 1e73acc8af3eecb1b36ee831483e1e9a7b3d1662 (patch) | |
| tree | a723894f28f77db0a42b0de6599f6be9243cc439 /mg.c | |
| parent | 7d3c2c289ea5236d2681b4bfba871738a7751375 (diff) | |
| download | perl-1e73acc8af3eecb1b36ee831483e1e9a7b3d1662.tar.gz | |
Re: [PATCH] Hash::Util::FieldHash
Message-Id: <974A5B4B-7614-4F3F-BA7C-828960D82C55@mailbox.tu-berlin.de>
p4raw-id: //depot/perl@28419
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -379,7 +379,7 @@ Perl_mg_copy(pTHX_ SV *sv, SV *nsv, const char *key, I32 klen) } else { const char type = mg->mg_type; - if (isUPPER(type)) { + if (isUPPER(type) && type != PERL_MAGIC_uvar) { sv_magic(nsv, (type == PERL_MAGIC_tied) ? SvTIED_obj(sv, mg) |