#endif /* !USE_LOCALE_NUMERIC */
/* constants (these are not literals to facilitate pointer comparisons) */
-PERLVARIC(GYes, char *, "1");
-PERLVARIC(GNo, char *, "");
-PERLVARIC(Ghexdigit, char *, "0123456789abcdef0123456789ABCDEFx");
-PERLVARIC(Gpatleave, char *, "\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}");
+PERLVARIC(GYes, char *, "1")
+PERLVARIC(GNo, char *, "")
+PERLVARIC(Ghexdigit, char *, "0123456789abcdef0123456789ABCDEFx")
+PERLVARIC(Gpatleave, char *, "\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}")
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);
&& (!SvTAIL(littlestr)
|| s == bigend
|| s[littlelen] == '\n')) /* Automatically multiline */
- return s;
+ {
+ return (char*)s;
+ }
s++;
}
return Nullch;