mirror of
https://github.com/fosslinux/live-bootstrap.git
synced 2026-03-04 02:15:24 +01:00
a67db8fcbd
Ever since an old patch version, it has (for reasonable security reasons) not supported patched with ../ in the filename. Many of our patches have been relying on this behaviour being OK, because we start off with an ancient patch version that didn't perform such checks. As soon as we need this behaviour after we build a newer patch though, we will have problems. So, let's change the policy. Patches are relative to where tarballs are extracted, rather than the "working directory" - e.g. have patches for `coreutils-9.4/src/cp.c` instead of `src/cp.c`. Keeping this consistent has a few implications; - patches are applied from the build/ directory in bash era now, with `-p0` - when patches are manually applied in the bash era, use `-p` as required, usually `-p1` - in kaem era where patches are always manually applied, `-p1` is used
124 lines
4.2 KiB
Diff
124 lines
4.2 KiB
Diff
SPDX-FileCopyrightText: 2021 fosslinux <fosslinux@aussies.space>
|
|
|
|
SPDX-License-Identifier: Artistic-1.0-Perl
|
|
|
|
There are a bunch of aliases that perl's build system somehow makes but
|
|
I'm not sure how to appropriately do them, so just patch them.
|
|
|
|
--- perl-5.10.1/lib/ExtUtils/Constant.pm 2021-04-20 21:06:43.272663878 +1000
|
|
+++ perl-5.10.1/lib/ExtUtils/Constant.pm 2021-04-20 21:07:11.116805426 +1000
|
|
@@ -253,11 +253,11 @@
|
|
switch (type) {
|
|
case PERL_constant_NOTFOUND:
|
|
sv =
|
|
- sv_2mortal(newSVpvf("%s is not a valid $package_sprintf_safe macro", s));
|
|
+ sv_2mortal(Perl_newSVpvf("%s is not a valid $package_sprintf_safe macro", s));
|
|
PUSHs(sv);
|
|
break;
|
|
case PERL_constant_NOTDEF:
|
|
- sv = sv_2mortal(newSVpvf(
|
|
+ sv = sv_2mortal(Perl_newSVpvf(
|
|
"Your vendor has not defined $package_sprintf_safe macro %s, used",
|
|
s));
|
|
PUSHs(sv);
|
|
@@ -288,7 +288,7 @@
|
|
}
|
|
$xs .= << "EOT";
|
|
default:
|
|
- sv = sv_2mortal(newSVpvf(
|
|
+ sv = sv_2mortal(Perl_newSVpvf(
|
|
"Unexpected return type %d while processing $package_sprintf_safe macro %s, used",
|
|
type, s));
|
|
PUSHs(sv);
|
|
--- perl-5.10.1/ext/Data-Dumper/Dumper.xs 2009-06-11 02:42:23.000000000 +1000
|
|
+++ perl-5.10.1/ext/Data-Dumper/Dumper.xs 2021-04-21 18:19:32.548468344 +1000
|
|
@@ -312,7 +312,7 @@
|
|
{
|
|
dSP; ENTER; SAVETMPS; PUSHMARK(sp);
|
|
XPUSHs(val); PUTBACK;
|
|
- i = perl_call_method(SvPVX_const(freezer), G_EVAL|G_VOID);
|
|
+ i = call_method(SvPVX_const(freezer), G_EVAL|G_VOID);
|
|
SPAGAIN;
|
|
if (SvTRUE(ERRSV))
|
|
warn("WARNING(Freezer method call failed): %"SVf"", ERRSV);
|
|
@@ -515,7 +515,7 @@
|
|
|
|
SV * const ixsv = newSViv(0);
|
|
/* allowing for a 24 char wide array index */
|
|
- New(0, iname, namelen+28, char);
|
|
+ Newx(iname, namelen+28, char);
|
|
(void)strcpy(iname, name);
|
|
inamelen = namelen;
|
|
if (name[0] == '@') {
|
|
@@ -660,7 +660,7 @@
|
|
if (sortkeys != &PL_sv_yes) {
|
|
dSP; ENTER; SAVETMPS; PUSHMARK(sp);
|
|
XPUSHs(sv_2mortal(newRV_inc(ival))); PUTBACK;
|
|
- i = perl_call_sv(sortkeys, G_SCALAR | G_EVAL);
|
|
+ i = call_sv(sortkeys, G_SCALAR | G_EVAL);
|
|
SPAGAIN;
|
|
if (i) {
|
|
sv = POPs;
|
|
@@ -745,7 +745,7 @@
|
|
}
|
|
else {
|
|
nticks = num_q(key, klen);
|
|
- New(0, nkey_buffer, klen+nticks+3, char);
|
|
+ Newx(nkey_buffer, klen+nticks+3, char);
|
|
nkey = nkey_buffer;
|
|
nkey[0] = '\'';
|
|
if (nticks)
|
|
@@ -772,7 +772,7 @@
|
|
char *extra;
|
|
I32 elen = 0;
|
|
newapad = newSVsv(apad);
|
|
- New(0, extra, klen+4+1, char);
|
|
+ Newx(extra, klen+4+1, char);
|
|
while (elen < (klen+4))
|
|
extra[elen++] = ' ';
|
|
extra[elen] = '\0';
|
|
@@ -829,7 +829,7 @@
|
|
char *npack;
|
|
char *npack_buffer = NULL;
|
|
|
|
- New(0, npack_buffer, plen+pticks+1, char);
|
|
+ Newx(npack_buffer, plen+pticks+1, char);
|
|
npack = npack_buffer;
|
|
plen += esc_q(npack, realpack, plen);
|
|
npack[plen] = '\0';
|
|
@@ -903,7 +903,7 @@
|
|
if (len > 10) {
|
|
/* Looks like we're on a 64 bit system. Make it a string so that
|
|
if a 32 bit system reads the number it will cope better. */
|
|
- sv_catpvf(retval, "'%s'", tmpbuf);
|
|
+ Perl_sv_catpvf(retval, "'%s'", tmpbuf);
|
|
} else
|
|
sv_catpvn(retval, tmpbuf, len);
|
|
}
|
|
@@ -1036,7 +1036,7 @@
|
|
|
|
if (!SvROK(href)) { /* call new to get an object first */
|
|
if (items < 2)
|
|
- croak("Usage: Data::Dumper::Dumpxs(PACKAGE, VAL_ARY_REF, [NAME_ARY_REF])");
|
|
+ Perl_croak_nocontext("Usage: Data::Dumper::Dumpxs(PACKAGE, VAL_ARY_REF, [NAME_ARY_REF])");
|
|
|
|
ENTER;
|
|
SAVETMPS;
|
|
@@ -1047,7 +1047,7 @@
|
|
if (items >= 3)
|
|
XPUSHs(sv_2mortal(newSVsv(ST(2))));
|
|
PUTBACK;
|
|
- i = perl_call_method("new", G_SCALAR);
|
|
+ i = call_method("new", G_SCALAR);
|
|
SPAGAIN;
|
|
if (i)
|
|
href = newSVsv(POPs);
|
|
@@ -1234,7 +1234,7 @@
|
|
SvREFCNT_dec(valstr);
|
|
}
|
|
else
|
|
- croak("Call to new() method failed to return HASH ref");
|
|
+ Perl_croak_nocontext("Call to new() method failed to return HASH ref");
|
|
if (gimme == G_SCALAR)
|
|
XPUSHs(sv_2mortal(retval));
|
|
}
|