diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-26 21:42:59 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-26 21:42:59 +0000 |
| commit | dff6d3cd91bb8f94ad6445629f3bfb07c761a04e (patch) | |
| tree | 2fdb1d6ee1668406fc46ad998bab2befadecdcd1 /perl.c | |
| parent | 12b99c3939cdc258628e89c11e6677725b2947c0 (diff) | |
| download | perl-dff6d3cd91bb8f94ad6445629f3bfb07c761a04e.tar.gz | |
warnings and const violations identified by compiling in C++ mode
with GCC v2.95
p4raw-id: //depot/perl@4461
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1589,7 +1589,7 @@ Perl_moreswitches(pTHX_ char *s) case '0': { dTHR; - rschar = scan_oct(s, 4, &numlen); + rschar = (U32)scan_oct(s, 4, &numlen); SvREFCNT_dec(PL_nrs); if (rschar & ~((U8)~0)) PL_nrs = &PL_sv_undef; @@ -1691,7 +1691,7 @@ Perl_moreswitches(pTHX_ char *s) if (isDIGIT(*s)) { PL_ors = savepv("\n"); PL_orslen = 1; - *PL_ors = scan_oct(s, 3 + (*s == '0'), &numlen); + *PL_ors = (char)scan_oct(s, 3 + (*s == '0'), &numlen); s += numlen; } else { |