From: Andreas König <a.koenig@mind.de>
Date: Mon, 18 Mar 2002 16:24:46 +0000 (+0100)
Subject: prefix slip
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=345c69e9b0e03d9315f568046674ffa653e13358;p=p5sagit%2Fp5-mst-13.2.git

prefix slip
Message-ID: <m3y9gp3nlt.fsf@anima.de>

(perl.h part accidental, undone by #15296)

p4raw-id: //depot/perl@15295
---

diff --git a/INSTALL b/INSTALL
index 2a42ab3..45064a6 100644
--- a/INSTALL
+++ b/INSTALL
@@ -490,9 +490,9 @@ for you to use to distribute add-on modules.
 These are normally empty, but may be set as needed.  For example,
 a vendor might choose the following settings:
 
-	$prefix		/usr/bin
-	$siteprefix	/usr/local/bin
-	$vendorprefix	/usr/bin
+	$prefix		/usr
+	$siteprefix	/usr/local
+	$vendorprefix	/usr
 
 This would have the effect of setting the following:
 
diff --git a/perl.h b/perl.h
index f7bf179..02e3f9c 100644
--- a/perl.h
+++ b/perl.h
@@ -3183,7 +3183,7 @@ struct perl_debug_pad {
 };
 
 #define PERL_DEBUG_PAD(i)	&(PL_debug_pad.pad[i])
-#define PERL_DEBUG_PAD_ZERO(i)	(sv_setpvn(PERL_DEBUG_PAD(i), "", 0), PERL_DEBUG_PAD(i))
+#define PERL_DEBUG_PAD_ZERO(i)	(SvPVX(PERL_DEBUG_PAD(i))[0] = 0, SvCUR(PERL_DEBUG_PAD(i)) = 0, PERL_DEBUG_PAD(i))
 
 /* Enable variables which are pointers to functions */
 typedef void (CPERLscope(*peep_t))(pTHX_ OP* o);