mirror of
https://github.com/fosslinux/live-bootstrap.git
synced 2026-03-02 01:18:08 +01:00
Remove the notion of "sys*"
- This idea originates from very early in the project and was, at the
time, a very easy way to categorise things.
- Now, it doesn't really make much sense - it is fairly arbitary, often
occuring when there is a change in kernel, but not from builder-hex0
to fiwix, and sysb is in reality completely unnecessary.
- In short, the sys* stuff is a bit of a mess that makes the project
more difficult to understand.
- This puts everything down into one folder and has a manifest file that
is used to generate the build scripts on the fly rather than using
coded scripts.
- This is created in the "seed" stage.
stage0-posix -- (calls) --> seed -- (generates) --> main steps
Alongside this change there are a variety of other smaller fixups to the
general structure of the live-bootstrap rootfs.
- Creating a rootfs has become much simpler and is defined as code in
go.sh. The new structure, for an about-to-be booted system, is
/
-- /steps (direct copy of steps/)
-- /distfiles (direct copy of distfiles/)
-- all files from seed/*
-- all files from seed/stage0-posix/*
- There is no longer such a thing as /usr/include/musl, this didn't
really make any sense, as musl is the final libc used. Rather, to
separate musl and mes, we have /usr/include/mes, which is much easier
to work with.
- This also makes mes easier to blow away later.
- A few things that weren't properly in packages have been changed;
checksum-transcriber, simple-patch, kexec-fiwix have all been given
fully qualified package names.
- Highly breaking change, scripts now exist in their package directory
but NOT WITH THE packagename.sh. Rather, they use pass1.sh, pass2.sh,
etc. This avoids manual definition of passes.
- Ditto with patches; default directory is patches, but then any patch
series specific to a pass are named patches-passX.
This commit is contained in:
parent
0907cfd073
commit
6ed2e09f3a
546 changed files with 700 additions and 1299 deletions
165
steps/perl-5.10.1/files/config.h
Normal file
165
steps/perl-5.10.1/files/config.h
Normal file
|
|
@ -0,0 +1,165 @@
|
|||
// SPDX-FileCopyrightText: 2021 Andrius Štikonas <andrius@stikonas.eu>
|
||||
// SPDX-FileCopyrightText: 2021 fosslinux <fosslinux@aussies.space>
|
||||
|
||||
// SPDX-License-Identifier: GPL-3.0-or-later
|
||||
|
||||
#define MEM_ALIGNBYTES 8
|
||||
#define BIN "/usr/bin"
|
||||
#define BYTEORDER 0x4321
|
||||
#define CPPSTDIN "gcc -E"
|
||||
#define CPPMINUS "-"
|
||||
#define HAS_ALARM
|
||||
#define HAS_DIRENT
|
||||
#define HAS_FORK
|
||||
#define HAS_FCNTL
|
||||
#define HAS_MEMCHR
|
||||
#define HAS_MEMSET
|
||||
#define HAS_MKDIR
|
||||
#define HAS_PAUSE
|
||||
#define HAS_READDIR
|
||||
#define HAS_RMDIR
|
||||
#define HAS_SETLOCALE
|
||||
#define HAS_STRERROR
|
||||
#define HAS_STRTOUL
|
||||
#define HAS_STRTOULL
|
||||
#define HAS_STRXFRM
|
||||
#define HAS_SYS_ERRLIST
|
||||
#define Strerror(e) strerror(e)
|
||||
|
||||
#define HAS_SYSCALL
|
||||
#define HAS_SYSCALL_PROTO
|
||||
#define HAS_TIMES
|
||||
#define HAS_FLOCK
|
||||
#define HAS_TRUNCATE
|
||||
|
||||
#define HAS_VPRINTF
|
||||
#define Gid_t gid_t
|
||||
|
||||
#define I_DIRENT
|
||||
#define Direntry_t struct dirent
|
||||
|
||||
#define I_DLFCN
|
||||
#define I_FCNTL
|
||||
#define I_GRP
|
||||
#define I_LIMITS
|
||||
#define I_LOCALE
|
||||
#define I_MATH
|
||||
#define I_NETINET_IN
|
||||
#define I_PWD
|
||||
#define I_STDDEF
|
||||
#define I_STDLIB
|
||||
#define I_STRING
|
||||
#define I_SYS_DIR
|
||||
#define I_SYS_IOCTL
|
||||
#define I_SYS_PARAM
|
||||
#define I_SYS_SELECT
|
||||
#define I_SYS_STAT
|
||||
#define I_SYS_TIMES
|
||||
#define I_TERMIOS
|
||||
#define I_TIME
|
||||
#define I_UNISTD
|
||||
#define I_UTIME
|
||||
#define I_STDARG
|
||||
|
||||
#define INTSIZE 4
|
||||
#define Off_t off_t
|
||||
|
||||
#define PRIVLIB "/usr/lib/perl5"
|
||||
|
||||
#define _(args) args
|
||||
|
||||
#define SCRIPTDIR "/usr/bin"
|
||||
|
||||
#define SIG_NAME "ZERO", "HUP", "INT", "QUIT", "ILL", "TRAP", "ABRT", "BUS", "FPE", "KILL", "USR1", "SEGV", "USR2", "PIPE", "ALRM", "TERM", "STKFLT", "CHLD", "CONT", "STOP", "TSTP", "TTIN", "TTOU", "URG", "XCPU", "XFSZ", "VTALRM", "PROF", "WINCH", "IO", "PWR", "SYS", "NUM32", "NUM33", "NUM34", "RTMIN", "NUM36", "NUM37", "NUM38", "NUM39", "NUM40", "NUM41", "NUM42", "NUM43", "NUM44", "NUM45", "NUM46", "NUM47", "NUM48", "NUM49", "NUM50", "NUM51", "NUM52", "NUM53", "NUM54", "NUM55", "NUM56", "NUM57", "NUM58", "NUM59", "NUM60", "NUM61", "NUM62", "NUM63", "RTMAX", "IOT", "POLL", "UNUSED", 0 /**/
|
||||
#define SIG_NUM 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 6, 29, 31, 0 /**/
|
||||
#define SIG_SIZE 68 /**/
|
||||
|
||||
#define Size_t size_t
|
||||
|
||||
#define STDCHAR char
|
||||
#define Uid_t uid_t
|
||||
|
||||
#define LOC_SED "/usr/bin/sed"
|
||||
#define ARCHLIB "/usr/lib/perl5/"
|
||||
|
||||
#define CAT2(a,b) a##b
|
||||
#define STRINGIFY(a) "a"
|
||||
#define Gconvert(x,n,t,b) gcvt((x),(n),(b))
|
||||
|
||||
#define Time_t time_t
|
||||
|
||||
#define SSize_t ssize_t
|
||||
|
||||
#define Sigjmp_buf sigjmp_buf
|
||||
|
||||
#define Sigsetjmp(buf,save_mask) setjmp(buf)
|
||||
#define Siglongjmp(buf,retval) longjmp(buf,retval)
|
||||
|
||||
#define Signal_t void
|
||||
|
||||
#define OSNAME "linux"
|
||||
|
||||
#undef __DATE__ /* want reproducible build */
|
||||
|
||||
#define Malloc_t void *
|
||||
#define Free_t void
|
||||
|
||||
#define SH_PATH "/bin/sh"
|
||||
#define ARCHNAME "i386-linux"
|
||||
#define BIN_EXP "/usr/bin"
|
||||
|
||||
#define NVSIZE 8 /* sizeof(double) */
|
||||
#define UVSIZE 4 /* sizeof(long) on i386 */
|
||||
#define IVSIZE 4
|
||||
#define PTRSIZE 4
|
||||
|
||||
#define IVTYPE long
|
||||
#define UVTYPE unsigned long
|
||||
#define NVTYPE double
|
||||
#define I8TYPE char
|
||||
#define U8TYPE unsigned char
|
||||
#define I16TYPE short
|
||||
#define U16TYPE unsigned short
|
||||
#define I32TYPE int
|
||||
#define U32TYPE unsigned int
|
||||
#define STDCHAR char
|
||||
|
||||
#define IVdf "ld"
|
||||
#define UVuf "lu"
|
||||
#define UVof "lo"
|
||||
#define UVxf "lx"
|
||||
#define UVXf "lX"
|
||||
#define NVef "e"
|
||||
#define NVff "f"
|
||||
#define NVgf "g"
|
||||
|
||||
#define Mode_t mode_t
|
||||
#define Off_t off_t
|
||||
#define Pid_t pid_t
|
||||
#define Rand_seed_t long
|
||||
#define Size_t_size 4
|
||||
#define Sock_size_t unsigned
|
||||
|
||||
#define RANDBITS 48
|
||||
#define seedDrand01(x) srand48((long)x)
|
||||
#define Drand01() drand48()
|
||||
|
||||
#define NVSIZE 8
|
||||
#define NV_PRESERVES_UV
|
||||
#define NV_PRESERVES_UV_BITS 32
|
||||
#define NV_OVERFLOWS_INTEGERS_AT 256.0*256.0*256.0*256.0*256.0*256.0*2.0*2.0*2.0*2.0*2.0
|
||||
#define NV_ZERO_IS_ALLBITS_ZERO
|
||||
|
||||
#define L_R_TZSET
|
||||
#define GMTIME_MAX 2147483647
|
||||
#define GMTIME_MIN -2147483648
|
||||
#define LOCALTIME_MAX 2147483647
|
||||
#define LOCALTIME_MIN -2147483648
|
||||
#define LOCALTIME_R_PROTO 0
|
||||
|
||||
#define PERL_PATCHLEVEL_H_IMPLICIT
|
||||
|
||||
#define MULTIPLICITY
|
||||
|
||||
#define OSNAME "linux"
|
||||
#define OSVERS "3.18.0"
|
||||
20
steps/perl-5.10.1/files/config.sh
Normal file
20
steps/perl-5.10.1/files/config.sh
Normal file
|
|
@ -0,0 +1,20 @@
|
|||
# SPDX-FileCopyrightText: 2021 Andrius Štikonas <andrius@stikonas.eu>
|
||||
# SPDX-FileCopyrightText: 2021 fosslinux <fosslinux@aussies.space>
|
||||
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
|
||||
ar='ar'
|
||||
cc='gcc'
|
||||
ldlibpthname='LD_LIBRARY_PATH'
|
||||
libpth='/usr/lib'
|
||||
path_sep=':'
|
||||
archname='i386'
|
||||
osvers=''
|
||||
byteorder='12345678'
|
||||
x=''
|
||||
ivsize='4'
|
||||
ivtype='long'
|
||||
lib_ext='.a'
|
||||
_a='.a'
|
||||
|
||||
PERL_CONFIG_SH=true
|
||||
137
steps/perl-5.10.1/mk/main.mk
Normal file
137
steps/perl-5.10.1/mk/main.mk
Normal file
|
|
@ -0,0 +1,137 @@
|
|||
# SPDX-FileCopyrightText: 2021 fosslinux <fosslinux@aussies.space>
|
||||
# SPDX-FileCopyrightText: 2021 Andrius Štikonas <andrius@stikonas.eu>
|
||||
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
|
||||
# Note: This makefile is not currently parallel-safe.
|
||||
|
||||
VERSION=5.10.1
|
||||
PRIVLIB_EXP=$(PREFIX)/lib/perl5/$(VERSION)
|
||||
|
||||
CC = gcc
|
||||
AR = ar
|
||||
CFLAGS = -DPRIVLIB_EXP=\"$(PRIVLIB_EXP)\" \
|
||||
-DPERL_CORE=1 \
|
||||
-I. \
|
||||
-DVERSION=\"$(VERSION)\" \
|
||||
-DNO_PPPORT_H
|
||||
|
||||
MINICFLAGS = -DPERL_EXTERNAL_GLOB
|
||||
|
||||
.PHONY: all
|
||||
|
||||
LIBPERL_SRC = av scope op doop doio dump gv hv mg reentr mro perl perly pp \
|
||||
pp_hot pp_ctl pp_sys regcomp regexec utf8 sv taint toke util \
|
||||
deb run universal xsutils pad globals perlio perlapi numeric \
|
||||
mathoms locale pp_pack pp_sort
|
||||
LIBPERL_OBJ = $(addsuffix .o, $(LIBPERL_SRC))
|
||||
|
||||
EXTENSIONS = File/Glob Digest/SHA Data/Dumper Cwd
|
||||
EXTENSIONS_A := $(foreach f,$(EXTENSIONS), lib/auto/$f/$(notdir $f).a)
|
||||
EXTENSIONS_PM = ext/File/Glob/Glob.pm ext/Digest/SHA/lib/Digest/SHA.pm \
|
||||
ext/Data/Dumper/Dumper.pm
|
||||
|
||||
all: perl
|
||||
|
||||
# miniperl
|
||||
|
||||
opmini.c: op.c
|
||||
cp op.c opmini.c
|
||||
|
||||
perlmini.c: perl.c
|
||||
cp perl.c perlmini.c
|
||||
|
||||
generate_uudmap: generate_uudmap.o
|
||||
$(CC) $(CFLAGS) $^ $(LDFLAGS) -o $@
|
||||
|
||||
uudmap.h: generate_uudmap
|
||||
./generate_uudmap > $@
|
||||
|
||||
git_version.h: lib/Config_git.pl
|
||||
|
||||
lib/Config_git.pl:
|
||||
perl make_patchnum.pl
|
||||
|
||||
globals.o: uudmap.h
|
||||
|
||||
perl.o: git_version.h
|
||||
|
||||
perlmini.o: git_version.h
|
||||
|
||||
libperl.a: $(LIBPERL_OBJ)
|
||||
$(AR) cr $@ $^
|
||||
|
||||
miniperl: miniperlmain.o opmini.o perlmini.o libperl.a
|
||||
$(CC) $(CFLAGS) $(MINICFLAGS) $^ $(LDFLAGS) -o $@
|
||||
# An extremely dodgy hack
|
||||
sed -i 's/va\.a\.a/v5.8.1/' miniperl
|
||||
chmod +x miniperl
|
||||
|
||||
# full perl
|
||||
|
||||
lib/re.pm:
|
||||
cp ext/re/re.pm lib/re.pm
|
||||
|
||||
lib/Config.pm: config.sh miniperl configpm lib/re.pm
|
||||
./miniperl -Ilib configpm
|
||||
|
||||
writemain: writemain.SH
|
||||
spitshell=cat eunicefix=true ./$<
|
||||
|
||||
perlmain.c: writemain $(EXTENSIONS_A)
|
||||
./writemain $(EXTENSIONS_A) > $@
|
||||
|
||||
perl: perlmain.o libperl.a $(EXTENSIONS_A) lib/File/Glob.pm lib/Digest/SHA.pm \
|
||||
lib/DynaLoader.pm lib/XSLoader.pm lib/Data/Dumper.pm
|
||||
$(CC) $(CFLAGS) perlmain.o libperl.a $(EXTENSIONS_A) -o $@
|
||||
# An extremely dodgy hack (v2)
|
||||
sed -i 's/va\.a\.a/v5.8.1/' perl
|
||||
chmod +x perl
|
||||
|
||||
# extensions
|
||||
|
||||
autosplit.pl: lib/re.pm lib/Config.pm miniperl
|
||||
echo 'use AutoSplit; autosplit_lib_modules(@ARGV)' > $@
|
||||
|
||||
ext/DynaLoader/DynaLoader.pm: miniperl lib/Config.pm
|
||||
./miniperl -Ilib ext/DynaLoader/DynaLoader_pm.PL DynaLoader.pm
|
||||
mv DynaLoader.pm $@
|
||||
|
||||
ext/DynaLoader/XSLoader.pm: miniperl lib/Config.pm
|
||||
./miniperl -Ilib ext/DynaLoader/XSLoader_pm.PL XSLoader.pm
|
||||
mv XSLoader.pm $@
|
||||
|
||||
lib/DynaLoader.pm: ext/DynaLoader/DynaLoader.pm
|
||||
install $< $@
|
||||
|
||||
lib/XSLoader.pm: ext/DynaLoader/XSLoader.pm
|
||||
install $< $@
|
||||
|
||||
lib/File/Glob.pm: ext/File/Glob/Glob.pm
|
||||
install $< $@
|
||||
|
||||
lib/Digest/SHA.pm: ext/Digest/SHA/lib/Digest/SHA.pm
|
||||
install $< $@
|
||||
|
||||
lib/Data:
|
||||
mkdir $@
|
||||
|
||||
lib/Data/Dumper.pm: ext/Data/Dumper/Dumper.pm lib/Data
|
||||
install $< $@
|
||||
|
||||
define build_rule
|
||||
lib/auto/$1/$(notdir $1).a: ext/$1/$(notdir $1).o $(patsubst %.c,%.o,$(wildcard ext/$1/*.c)) $(EXTENSIONS_PM)
|
||||
mkdir -p lib/auto/$1
|
||||
$(AR) cr lib/auto/$1/$(notdir $1).a ext/$1/$(notdir $1).o $(patsubst %.c,%.o,$(wildcard ext/$1/*.c))
|
||||
|
||||
ext/$1/$(notdir $1).c: miniperl lib/Config.pm
|
||||
cd ext/$1; \
|
||||
$(CURDIR)/miniperl -I$(CURDIR)/lib Makefile.PL; \
|
||||
$(CURDIR)/miniperl -I$(CURDIR)/lib $(CURDIR)/lib/ExtUtils/xsubpp -noprototypes -typemap $(CURDIR)/lib/ExtUtils/typemap `echo $(notdir $1) | sed 's/.*-//'`.xs > $(notdir $1).c
|
||||
endef
|
||||
$(foreach f,$(EXTENSIONS),$(eval $(call build_rule,$f)))
|
||||
|
||||
install: all
|
||||
install -D perl "$(DESTDIR)$(PREFIX)/bin/perl"
|
||||
mkdir -p "$(DESTDIR)$(PRIVLIB_EXP)"
|
||||
cp -r lib/* "$(DESTDIR)$(PRIVLIB_EXP)"
|
||||
37
steps/perl-5.10.1/pass1.sh
Executable file
37
steps/perl-5.10.1/pass1.sh
Executable file
|
|
@ -0,0 +1,37 @@
|
|||
# SPDX-FileCopyrightText: 2021-22 fosslinux <fosslinux@aussies.space>
|
||||
# SPDX-FileCopyrightText: 2022 Andrius Štikonas <andrius@stikonas.eu>
|
||||
#
|
||||
# SPDX-License-Identifier: GPL-3.0-or-later
|
||||
|
||||
src_prepare() {
|
||||
default_src_prepare
|
||||
|
||||
# Regenerate bison files
|
||||
# perly.c looks suspiciously like it is from bison, but is not; from the
|
||||
# below script:
|
||||
# Note that perly.c is *not* regenerated - this is now a static file which
|
||||
# is not dependent on perly.y any more.
|
||||
perl regen_perly.pl -b bison-2.3
|
||||
# Remove the source file so make works.
|
||||
rm -f perly.y
|
||||
|
||||
# Regenerate other prebuilt header files
|
||||
# Taken from headers of regen scripts
|
||||
rm -f lib/warnings.pm warnings.h regnodes.h reentr.h reentr.c overload.h \
|
||||
overload.c lib/overload/numbers.pm opcode.h opnames.h pp_proto.h \
|
||||
pp.sym keywords.h embed.h embedvar.h global.sym perlapi.c perlapi.h \
|
||||
proto.h
|
||||
perl regen.pl
|
||||
|
||||
mkdir -p ext/File ext/Digest ext/Data
|
||||
mv ext/File-Glob ext/File/Glob
|
||||
mv ext/Digest-SHA ext/Digest/SHA
|
||||
mv ext/Data-Dumper ext/Data/Dumper
|
||||
}
|
||||
|
||||
src_install() {
|
||||
# Remove old perl
|
||||
rm -rf "${PREFIX}"/lib/perl5/
|
||||
|
||||
default
|
||||
}
|
||||
124
steps/perl-5.10.1/patches/undefined_hack.patch
Normal file
124
steps/perl-5.10.1/patches/undefined_hack.patch
Normal file
|
|
@ -0,0 +1,124 @@
|
|||
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.
|
||||
|
||||
--- lib/ExtUtils/Constant.pm 2021-04-20 21:06:43.272663878 +1000
|
||||
+++ 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);
|
||||
--- ext/Data-Dumper/Dumper.xs 2009-06-11 02:42:23.000000000 +1000
|
||||
+++ 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));
|
||||
}
|
||||
1
steps/perl-5.10.1/sources
Normal file
1
steps/perl-5.10.1/sources
Normal file
|
|
@ -0,0 +1 @@
|
|||
http://www.cpan.org/src/5.0/perl-5.10.1.tar.bz2 9385f2c8c2ca8b1dc4a7c31903f1f8dc8f2ba867dc2a9e5c93012ed6b564e826
|
||||
Loading…
Add table
Add a link
Reference in a new issue