diff options
author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-12-10 18:36:26 +0000 |
---|---|---|
committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-12-10 18:36:26 +0000 |
commit | 3fe6f2dcb97acb1a1bb0a27dc5753fbc0548c545 (patch) | |
tree | 68938baaf94e50d9c90715cc190825247b2474a1 /util.c | |
parent | 7e0e7afedd94fe242b9d912ceebe511cf90e118a (diff) | |
download | perl-3fe6f2dcb97acb1a1bb0a27dc5753fbc0548c545.tar.gz |
Fix char*/unsigned char* clashes in util.c:fbm_instr and remove
a few extraneous trailing semicolons in perlvars.h.
p4raw-id: //depot/perl@358
Diffstat (limited to 'util.c')
-rw-r--r-- | util.c | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -871,8 +871,10 @@ fbm_instr(unsigned char *big, register unsigned char *bigend, SV *littlestr) substr => we can ignore SvVALID */ if (multiline) { char *t = "\n"; - if ((s = ninstr((char*)big,(char*)bigend, t, t + len))) - return s; + if ((s = (unsigned char*)ninstr((char*)big, (char*)bigend, + t, t + len))) { + return (char*)s; + } } if (bigend > big && bigend[-1] == '\n') return (char *)(bigend - 1); @@ -912,7 +914,9 @@ fbm_instr(unsigned char *big, register unsigned char *bigend, SV *littlestr) && (!SvTAIL(littlestr) || s == bigend || s[littlelen] == '\n')) /* Automatically multiline */ - return s; + { + return (char*)s; + } s++; } return Nullch; |