From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 9 Nov 1998 01:56:24 +0000 (+0000)
Subject: patches from Hugo van der Sanden <hv@crypt.compulink.co.uk>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=642653c7e3215219ce2200f4c30c63d5b9e03f5f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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;
 	    }