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 /mg.h | |
| 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 'mg.h')
| -rw-r--r-- | mg.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -40,7 +40,7 @@ struct magic { #define MgTAINTEDDIR_on(mg) (mg->mg_flags |= MGf_TAINTEDDIR) #define MgTAINTEDDIR_off(mg) (mg->mg_flags &= ~MGf_TAINTEDDIR) -#define MgPV(mg,lp) (((lp = (mg)->mg_len) == HEf_SVKEY) ? \ +#define MgPV(mg,lp) ((((int)(lp = (mg)->mg_len)) == HEf_SVKEY) ? \ SvPV((SV*)((mg)->mg_ptr),lp) : \ (mg)->mg_ptr) |