diff options
| author | Ben Morrow <ben@morrow.me.uk> | 2008-06-28 18:00:17 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-06-28 21:06:57 +0000 |
| commit | 6e592b3a92f7ee35c9a857bd9a43297ab1693599 (patch) | |
| tree | 262d198509e9c5efd2b2af3fcebb6daa6456c827 /xsutils.c | |
| parent | 087986a76c08e8dfaaee54f8f476bfa315216671 (diff) | |
| download | perl-6e592b3a92f7ee35c9a857bd9a43297ab1693599.tar.gz | |
Some more missing isGV_with_GP()s
Message-ID: <20080628160017.GA81579@osiris.mauzo.dyndns.org>
p4raw-id: //depot/perl@34092
Diffstat (limited to 'xsutils.c')
| -rw-r--r-- | xsutils.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -120,7 +120,7 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs) break; case 'e': if (memEQ(name, "uniqu", 5)) { - if (SvTYPE(sv) == SVt_PVGV) { + if (isGV_with_GP(sv)) { if (negated) { GvUNIQUE_off(sv); } else { @@ -216,7 +216,7 @@ usage: XPUSHs(newSVpvs_flags("unique", SVs_TEMP)); break; case SVt_PVGV: - if (GvUNIQUE(sv)) + if (isGV_with_GP(sv) && GvUNIQUE(sv)) XPUSHs(newSVpvs_flags("unique", SVs_TEMP)); break; default: @@ -260,7 +260,7 @@ usage: stash = CvSTASH(sv); break; case SVt_PVGV: - if (GvGP(sv) && GvESTASH((GV*)sv)) + if (isGV_with_GP(sv) && GvGP(sv) && GvESTASH((GV*)sv)) stash = GvESTASH((GV*)sv); break; default: |