Change 15295 by jhi@alpha on 2002/03/18 14:26:59
Subject: prefix slip
From: [EMAIL PROTECTED] (Andreas J. Koenig)
Date: Mon, 18 Mar 2002 16:24:46 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/INSTALL#91 edit
.... //depot/perl/perl.h#446 edit
Differences ...
==== //depot/perl/INSTALL#91 (text) ====
Index: perl/INSTALL
--- perl/INSTALL.~1~ Mon Mar 18 07:30:06 2002
+++ perl/INSTALL Mon Mar 18 07:30:06 2002
@@ -490,9 +490,9 @@
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:
==== //depot/perl/perl.h#446 (text) ====
Index: perl/perl.h
--- perl/perl.h.~1~ Mon Mar 18 07:30:06 2002
+++ perl/perl.h Mon Mar 18 07:30:06 2002
@@ -3183,7 +3183,7 @@
};
#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);
End of Patch.
