diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-02-09 09:29:06 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-02-09 09:29:06 +0000 |
| commit | 32da55abecac94dc6a18cbca78eb8321199543f1 (patch) | |
| tree | 390fd784f9a50e98480a55eebff4c6572fca6702 /scope.c | |
| parent | cb50131aab68ac6dda048612c6e853b8cb08701e (diff) | |
| download | perl-32da55abecac94dc6a18cbca78eb8321199543f1.tar.gz | |
Minor fixes to assuage picky compilers (unsigned comparisons and
alias rules lead to compilation warnings)
p4raw-id: //depot/vmsperl@5050
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -316,7 +316,7 @@ Perl_save_ary(pTHX_ GV *gv) av = GvAVn(gv); if (SvMAGIC(oav)) { SvMAGIC(av) = SvMAGIC(oav); - SvFLAGS(av) |= SvMAGICAL(oav); + SvFLAGS((SV*)av) |= SvMAGICAL(oav); SvMAGICAL_off(oav); SvMAGIC(oav) = 0; PL_localizing = 1; @@ -341,7 +341,7 @@ Perl_save_hash(pTHX_ GV *gv) hv = GvHVn(gv); if (SvMAGIC(ohv)) { SvMAGIC(hv) = SvMAGIC(ohv); - SvFLAGS(hv) |= SvMAGICAL(ohv); + SvFLAGS((SV*)hv) |= SvMAGICAL(ohv); SvMAGICAL_off(ohv); SvMAGIC(ohv) = 0; PL_localizing = 1; @@ -715,7 +715,7 @@ Perl_leave_scope(pTHX_ I32 base) if (GvAV(gv)) { AV *goner = GvAV(gv); SvMAGIC(av) = SvMAGIC(goner); - SvFLAGS(av) |= SvMAGICAL(goner); + SvFLAGS((SV*)av) |= SvMAGICAL(goner); SvMAGICAL_off(goner); SvMAGIC(goner) = 0; SvREFCNT_dec(goner); |