patches from Hugo van der Sanden <hv@crypt.compulink.co.uk>

	Date: Wed, 04 Nov 1998 12:19:44 +0000
	Message-Id: <199811041219.MAA05451@crypt.compulink.co.uk>
	Subject: [PATCH] Re: [5.005_53] read overflow?
	--
	Date: Wed, 04 Nov 1998 13:15:18 +0000
	Message-Id: <199811041315.NAA05711@crypt.compulink.co.uk>
	Subject: [PATCH 5.005_53] perl -V fix

p4raw-id: //depot/perl@2222

diff --git a/perl.c b/perl.c
index 32664b0..d2ee055 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -829,7 +829,7 @@ setuid perl scripts securely.\n");
                    sv_catpv(PL_Sv,"\"  Locally applied patches:\\n\",");
                    for (i = 1; i <= LOCAL_PATCH_COUNT; i++) {
                        if (PL_localpatches[i])
-                           sv_catpvf(PL_Sv,"\"  \\t%s\\n\",",PL_localpatches[i]);
+                           sv_catpvf(PL_Sv,"q\"  \t%s\n\",",PL_localpatches[i]);
                    }
                }
 #endif

diff --git a/regexec.c b/regexec.c
index 1fc37fc..83db7b5 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -2267,7 +2267,7 @@ regmatch(regnode *prog)
            n = 1;
            if (scan->flags) {
                s = HOPMAYBEc(locinput, -scan->flags);
-               if (!s)
+               if (!s || s < PL_bostr)
                    goto say_no;
                PL_reginput = s;
            }