mirror of
https://github.com/fosslinux/live-bootstrap.git
synced 2026-03-02 01:18:08 +01:00
Remove unused perl 5.10.1
This commit is contained in:
Samuel Tyler
parent
1a07149847
commit
1145ddd981
6 changed files with 1 additions and 477 deletions
|
|
@ -1,165 +0,0 @@
|
||||||
// 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"
|
|
||||||
|
|
@ -1,20 +0,0 @@
|
||||||
# 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
|
|
||||||
|
|
@ -1,137 +0,0 @@
|
||||||
# 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)"
|
|
||||||
|
|
@ -1,30 +0,0 @@
|
||||||
# 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
|
|
||||||
}
|
|
||||||
|
|
@ -1,124 +0,0 @@
|
||||||
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));
|
|
||||||
}
|
|
||||||
|
|
@ -1 +1 @@
|
||||||
f http://www.cpan.org/src/5.0/perl-5.10.1.tar.bz2 9385f2c8c2ca8b1dc4a7c31903f1f8dc8f2ba867dc2a9e5c93012ed6b564e826
|
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