summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorMalcolm Beattie <mbeattie@sable.ox.ac.uk>1997-12-10 18:36:26 +0000
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>1997-12-10 18:36:26 +0000
commit3fe6f2dcb97acb1a1bb0a27dc5753fbc0548c545 (patch)
tree68938baaf94e50d9c90715cc190825247b2474a1 /util.c
parent7e0e7afedd94fe242b9d912ceebe511cf90e118a (diff)
downloadperl-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.c10
1 files changed, 7 insertions, 3 deletions
diff --git a/util.c b/util.c
index 015637523a..86e148d720 100644
--- a/util.c
+++ b/util.c
@@ -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;