perl 5.003_05: hints/convexos.sh

[p5sagit/p5-mst-13.2.git] / regexec.c

diff --git a/regexec.c b/regexec.c
index 4119dfc..1ee1436 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -668,7 +668,7 @@ char *prog;
                sayNO;
            if (regeol - locinput < ln)
                sayNO;
-           if (ln > 1 && bcmp(s, locinput, ln) != 0)
+           if (ln > 1 && memcmp(s, locinput, ln) != 0)
                sayNO;
            locinput += ln;
            nextchar = *locinput;
@@ -748,7 +748,7 @@ char *prog;
            ln = regendp[n] - s;
            if (locinput + ln > regeol)
                sayNO;
-           if (ln > 1 && bcmp(s, locinput, ln) != 0)
+           if (ln > 1 && memcmp(s, locinput, ln) != 0)
                sayNO;
            locinput += ln;
            nextchar = *locinput;