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 (file)
--- 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 (file)
--- 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);