Context Navigation

← Previous Changeset
Next Changeset →

Changeset 13312

Timestamp:

06/06/08 01:01:23 (5 years ago)

Author:

charsbar

Message:

Archive-Lha: converted eols to satisfy a picky compiler; updated ppport.h; lessened memory allocation; 0.03_03 -> CPAN

Location:

lang/perl/Archive-Lha/trunk

Files:

: 4 modified

Changes (modified) (1 diff)
Lha.xs (modified) (3 diffs, 1 prop)
lib/Archive/Lha.pm (modified) (1 diff)
ppport.h (modified) (58 diffs)

Legend:

: Unmodified
: Added
: Removed

lang/perl/Archive-Lha/trunk/Changes

r13181	r13312
1	1	Revision history for Archive-Lha
	2
	3	0.03_03 2008/06/06
	4	- converted eol characters to satisfy a picky compiler
	5	- updated ppport.h to 3.14
	6	- lessened the memory allocation
2	7
3	8	0.03_02 2008/06/04

lang/perl/Archive-Lha/trunk/Lha.xs

Property svn:eol-style set to native

r12893	r13312
138	138	LhaBitstream * bitstream;
139	139
140		Newxz(bitstream, ~~sizeof(LhaBitstream)~~, LhaBitstream);
	140	Newxz(bitstream, 1, LhaBitstream);
141	141	stash->bit = bitstream;
142	142
…	…
425	425	stash->CBIT = self_uchar("CBIT");
426	426
427		Newxz(pt_table, ~~sizeof(LhaTable)~~, LhaTable);
428		Newxz(c_table, ~~sizeof(LhaTable)~~, LhaTable);
429		Newxz(tree, ~~sizeof(LhaTree),~~ LhaTree);
	427	Newxz(pt_table, 1, LhaTable);
	428	Newxz(c_table, 1, LhaTable);
	429	Newxz(tree, 1, LhaTree);
430	430
431	431	pt_table->bit = self_uchar("PT_TABLE_BIT");
…	…
485	485
486	486	Newxz(queue, dicsize, unsigned char);
487		Newxz(stash, ~~sizeof(LhaStash)~~, LhaStash);
	487	Newxz(stash, 1, LhaStash);
488	488
489	489	stash->queue = queue;

lang/perl/Archive-Lha/trunk/lib/Archive/Lha.pm

r13181	r13312
4	4	use warnings;
5	5
6		our $VERSION = '0.03_02';
	6	our $VERSION = '0.03_03';
7	7
8	8	require XSLoader;

lang/perl/Archive-Lha/trunk/ppport.h

r3413	r13312
5	5	----------------------------------------------------------------------
6	6
7		ppport.h -- Perl/Pollution/Portability Version 3.13
8
9		Automatically created by Devel::PPPort running under perl 5.008008.
	7	ppport.h -- Perl/Pollution/Portability Version 3.14
	8
	9	Automatically created by Devel::PPPort running under perl 5.008007.
10	10
11	11	Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
…	…
22	22	=head1 NAME
23	23
24		ppport.h - Perl/Pollution/Portability version 3.13
	24	ppport.h - Perl/Pollution/Portability version 3.14
25	25
26	26	=head1 SYNOPSIS
…	…
231	231	newCONSTSUB() NEED_newCONSTSUB NEED_newCONSTSUB_GLOBAL
232	232	newRV_noinc() NEED_newRV_noinc NEED_newRV_noinc_GLOBAL
	233	newSVpvn_flags() NEED_newSVpvn_flags NEED_newSVpvn_flags_GLOBAL
233	234	newSVpvn_share() NEED_newSVpvn_share NEED_newSVpvn_share_GLOBAL
234	235	sv_2pv_flags() NEED_sv_2pv_flags NEED_sv_2pv_flags_GLOBAL
…	…
352	353	=head1 COPYRIGHT
353	354
354		Version 3.x, Copyright (c) 2004-2007, Marcus Holland-Moritz.
	355	Version 3.x, Copyright (c) 2004-2008, Marcus Holland-Moritz.
355	356
356	357	Version 2.x, Copyright (C) 2001, Paul Marquess.
…	…
372	373	BEGIN { eval '${^RE_TRIE_MAXBUF} = -1' if $] >= 5.009004 && $] <= 5.009005 }
373	374
374		my $VERSION = 3.13;
	375	my $VERSION = 3.14;
375	376
376	377	my %opt = (
…	…
488	489	HeSVKEY_set\|\|5.004000\|
489	490	HeSVKEY\|\|5.004000\|
	491	HeUTF8\|\|5.011000\|
490	492	HeVAL\|\|5.004000\|
491	493	HvNAME\|\|\|
…	…
507	509	LVRET\|\|\|
508	510	MARK\|\|\|
509		MULTICALL\|\|5.0~~09005~~\|
	511	MULTICALL\|\|5.011000\|
510	512	MY_CXT_CLONE\|5.009002\|\|p
511	513	MY_CXT_INIT\|5.007003\|\|p
…	…
545	547	PAD_SV\|\|\|
546	548	PERL_ABS\|5.008001\|\|p
547		PERL_BCDVERSION\|5.0~~09005~~\|\|p
	549	PERL_BCDVERSION\|5.011000\|\|p
548	550	PERL_GCC_BRACE_GROUPS_FORBIDDEN\|5.008001\|\|p
549	551	PERL_HASH\|5.004000\|\|p
…	…
563	565	PERL_MAGIC_ext\|5.007002\|\|p
564	566	PERL_MAGIC_fm\|5.007002\|\|p
565		PERL_MAGIC_glob\|5.0~~09005~~\|\|p
	567	PERL_MAGIC_glob\|5.011000\|\|p
566	568	PERL_MAGIC_isaelem\|5.007002\|\|p
567	569	PERL_MAGIC_isa\|5.007002\|\|p
568		PERL_MAGIC_mutex\|5.0~~09005~~\|\|p
	570	PERL_MAGIC_mutex\|5.011000\|\|p
569	571	PERL_MAGIC_nkeys\|5.007002\|\|p
570	572	PERL_MAGIC_overload_elem\|5.007002\|\|p
…	…
624	626	PL_Sv\|5.005000\|\|p
625	627	PL_compiling\|5.004050\|\|p
626		PL_copline\|5.0~~09005~~\|\|p
	628	PL_copline\|5.011000\|\|p
627	629	PL_curcop\|5.004050\|\|p
628	630	PL_curstash\|5.004050\|\|p
…	…
633	635	PL_dowarn\|\|\|pn
634	636	PL_errgv\|5.004050\|\|p
635		PL_expect\|5.0~~09005~~\|\|p
	637	PL_expect\|5.011000\|\|p
636	638	PL_hexdigit\|5.005000\|\|p
637	639	PL_hints\|5.005000\|\|p
…	…
659	661	PL_tainted\|5.004050\|\|p
660	662	PL_tainting\|5.004050\|\|p
661		POP_MULTICALL\|\|5.0~~09005~~\|
	663	POP_MULTICALL\|\|5.011000\|
662	664	POPi\|\|\|n
663	665	POPl\|\|\|n
…	…
673	675	PTRV\|5.006000\|\|p
674	676	PUSHMARK\|\|\|
675		PUSH_MULTICALL\|\|5.0~~09005~~\|
	677	PUSH_MULTICALL\|\|5.011000\|
676	678	PUSHi\|\|\|
677	679	PUSHmortal\|5.009002\|\|p
…	…
735	737	SV_SMAGIC\|5.009003\|\|p
736	738	SV_UTF8_NO_ENCODING\|5.008001\|\|p
	739	SVf_UTF8\|5.006000\|\|p
737	740	SVf\|5.006000\|\|p
738	741	SVt_IV\|\|\|
…	…
885	888	WARN_ALL\|5.006000\|\|p
886	889	WARN_AMBIGUOUS\|5.006000\|\|p
887		WARN_ASSERTIONS\|5.0~~09005~~\|\|p
	890	WARN_ASSERTIONS\|5.011000\|\|p
888	891	WARN_BAREWORD\|5.006000\|\|p
889	892	WARN_CLOSED\|5.006000\|\|p
…	…
966	969	aMY_CXT_\|5.007003\|\|p
967	970	aMY_CXT\|5.007003\|\|p
968		aTHXR_\|5.0~~09005~~\|\|p
969		aTHXR\|5.0~~09005~~\|\|p
	971	aTHXR_\|5.011000\|\|p
	972	aTHXR\|5.011000\|\|p
970	973	aTHX_\|5.006000\|\|p
971	974	aTHX\|5.006000\|\|p
…	…
999	1002	av_fetch\|\|\|
1000	1003	av_fill\|\|\|
	1004	av_iter_p\|\|5.011000\|
1001	1005	av_len\|\|\|
1002	1006	av_make\|\|\|
…	…
1045	1049	ck_delete\|\|\|
1046	1050	ck_die\|\|\|
	1051	ck_each\|\|\|
1047	1052	ck_eof\|\|\|
1048	1053	ck_eval\|\|\|
…	…
1121	1126	dSP\|\|\|
1122	1127	dTHR\|5.004050\|\|p
1123		dTHXR\|5.0~~09005~~\|\|p
	1128	dTHXR\|5.011000\|\|p
1124	1129	dTHXa\|5.006000\|\|p
1125	1130	dTHXoa\|5.006000\|\|p
…	…
1183	1188	do_openn\|\|5.007001\|
1184	1189	do_open\|\|5.004000\|
1185		~~do_pipe\|\|\|~~
1186	1190	do_pmop_dump\|\|5.006000\|
1187	1191	do_pmop_xmldump\|\|\|
…	…
1208	1212	do_vecset\|\|\|
1209	1213	do_vop\|\|\|
1210		~~docatch_body\|\|\|~~
1211	1214	docatch\|\|\|
1212	1215	doeval\|\|\|
…	…
1223	1226	dopoptoloop\|\|\|
1224	1227	dopoptosub_at\|\|\|
1225		~~dopoptosub\|\|\|~~
1226	1228	dopoptowhen\|\|\|
1227	1229	doref\|\|5.009003\|
…	…
1245	1247	dup_attrlist\|\|\|
1246	1248	emulate_cop_io\|\|\|
1247		~~emulate_eaccess\|\|\|~~
1248	1249	eval_pv\|5.006000\|\|p
1249	1250	eval_sv\|5.006000\|\|p
…	…
1286	1287	gen_constant_list\|\|\|
1287	1288	get_arena\|\|\|
	1289	get_aux_mg\|\|\|
1288	1290	get_av\|5.006000\|\|p
1289	1291	get_context\|\|5.006000\|n
…	…
1343	1345	gv_fullname4\|\|5.006001\|
1344	1346	gv_fullname\|\|\|
	1347	gv_get_super_pkg\|\|\|
1345	1348	gv_handler\|\|5.007001\|
1346	1349	gv_init_sv\|\|\|
…	…
1355	1358	hfreeentries\|\|\|
1356	1359	hsplit\|\|\|
1357		hv_assert\|\|5.0~~09005~~\|
	1360	hv_assert\|\|5.011000\|
1358	1361	hv_auxinit\|\|\|n
1359	1362	hv_backreferences_p\|\|\|
1360	1363	hv_clear_placeholders\|\|5.009001\|
1361	1364	hv_clear\|\|\|
	1365	hv_common_key_len\|\|5.010000\|
	1366	hv_common\|\|5.010000\|
1362	1367	hv_copy_hints_hv\|\|\|
1363	1368	hv_delayfree_ent\|\|5.004000\|
…	…
1369	1374	hv_exists_ent\|\|5.004000\|
1370	1375	hv_exists\|\|\|
1371		~~hv_fetch_common\|\|\|~~
1372	1376	hv_fetch_ent\|\|5.004000\|
1373	1377	hv_fetchs\|5.009003\|\|p
…	…
1384	1388	hv_ksplit\|\|5.004000\|
1385	1389	hv_magic_check\|\|\|n
1386		~~hv_magic_uvar_xkey\|\|\|~~
1387	1390	hv_magic\|\|\|
1388	1391	hv_name_set\|\|5.009003\|
…	…
1402	1405	ibcmp_utf8\|\|5.007003\|
1403	1406	ibcmp\|\|\|
1404		~~incl_perldb\|\|\|~~
1405	1407	incline\|\|\|
1406	1408	incpush_if_exists\|\|\|
…	…
1509	1511	mPUSHn\|5.009002\|\|p
1510	1512	mPUSHp\|5.009002\|\|p
	1513	mPUSHs\|5.011000\|\|p
1511	1514	mPUSHu\|5.009002\|\|p
1512	1515	mXPUSHi\|5.009002\|\|p
1513	1516	mXPUSHn\|5.009002\|\|p
1514	1517	mXPUSHp\|5.009002\|\|p
	1518	mXPUSHs\|5.011000\|\|p
1515	1519	mXPUSHu\|5.009002\|\|p
1516	1520	mad_free\|\|\|
…	…
1526	1530	magic_freearylen_p\|\|\|
1527	1531	magic_freeovrld\|\|\|
1528		~~magic_freeregexp\|\|\|~~
1529	1532	magic_getarylen\|\|\|
1530	1533	magic_getdefelem\|\|\|
…	…
1550	1553	magic_setamagic\|\|\|
1551	1554	magic_setarylen\|\|\|
1552		~~magic_setbm\|\|\|~~
1553	1555	magic_setcollxfrm\|\|\|
1554	1556	magic_setdbline\|\|\|
1555	1557	magic_setdefelem\|\|\|
1556	1558	magic_setenv\|\|\|
1557		~~magic_setfm\|\|\|~~
1558		~~magic_setglob\|\|\|~~
1559	1559	magic_sethint\|\|\|
1560	1560	magic_setisa\|\|\|
…	…
1609	1609	more_sv\|\|\|
1610	1610	moreswitches\|\|\|
1611		mro_get_linear_isa_c3\|\|~~5.009005~~\|
1612		mro_get_linear_isa_dfs\|\|~~5.009005~~\|
	1611	mro_get_linear_isa_c3\|\|\|
	1612	mro_get_linear_isa_dfs\|\|\|
1613	1613	mro_get_linear_isa\|\|5.009005\|
1614	1614	mro_isa_changed_in\|\|\|
…	…
1733	1733	newSVpvf_nocontext\|\|\|vn
1734	1734	newSVpvf\|\|5.004000\|v
	1735	newSVpvn_flags\|5.011000\|\|p
1735	1736	newSVpvn_share\|5.007001\|\|p
	1737	newSVpvn_utf8\|5.011000\|\|p
1736	1738	newSVpvn\|5.004050\|\|p
	1739	newSVpvs_flags\|5.011000\|\|p
1737	1740	newSVpvs_share\|\|5.009003\|
1738	1741	newSVpvs\|5.009003\|\|p
…	…
1811	1814	pad_reset\|\|\|
1812	1815	pad_setsv\|\|\|
1813		pad_sv\|\|5.0~~09005~~\|
	1816	pad_sv\|\|5.011000\|
1814	1817	pad_swipe\|\|\|
1815	1818	pad_tidy\|\|\|
…	…
1841	1844	pregcomp\|\|5.009005\|
1842	1845	pregexec\|\|\|
	1846	pregfree2\|\|5.011000\|
1843	1847	pregfree\|\|\|
1844	1848	prepend_elem\|\|\|
…	…
1864	1868	re_compile\|\|5.009005\|
1865	1869	re_croak2\|\|\|
1866		re_dup\|\|\|
	1870	re_dup_guts\|\|\|
1867	1871	re_intuit_start\|\|5.009005\|
1868	1872	re_intuit_string\|\|5.006000\|
…	…
1881	1885	refkids\|\|\|
1882	1886	refto\|\|\|
1883		ref\|\|5.0~~09003~~\|
	1887	ref\|\|5.011000\|
1884	1888	reg_check_named_buff_matched\|\|\|
1885	1889	reg_named_buff_all\|\|5.009005\|
…	…
1978	1982	save_hek_flags\|\|\|n
1979	1983	save_helem\|\|5.004050\|
1980		~~save_hints\|\|5.005000\|~~
1981	1984	save_hptr\|\|\|
1982	1985	save_int\|\|\|
…	…
2039	2042	sequence\|\|\|
2040	2043	set_context\|\|5.006000\|n
2041		~~set_csh\|\|\|~~
2042	2044	set_numeric_local\|\|5.006000\|
2043	2045	set_numeric_radix\|\|5.006000\|
…	…
2066	2068	start_glob\|\|\|
2067	2069	start_subparse\|\|5.004000\|
2068		stashpv_hvname_match\|\|5.0~~09005~~\|
	2070	stashpv_hvname_match\|\|5.011000\|
2069	2071	stdize_locale\|\|\|
2070	2072	strEQ\|\|\|
…	…
2091	2093	sv_2iv\|\|\|
2092	2094	sv_2mortal\|\|\|
	2095	sv_2num\|\|\|
2093	2096	sv_2nv\|\|\|
2094	2097	sv_2pv_flags\|5.007002\|\|p
…	…
2135	2138	sv_del_backref\|\|\|
2136	2139	sv_derived_from\|\|5.004000\|
	2140	sv_destroyable\|\|5.010000\|
2137	2141	sv_does\|\|5.009004\|
2138	2142	sv_dump\|\|\|
…	…
2156	2160	sv_len_utf8\|\|5.006000\|
2157	2161	sv_len\|\|\|
2158		sv_magic_portable\|5.0~~09005~~\|5.004000\|p
	2162	sv_magic_portable\|5.011000\|5.004000\|p
2159	2163	sv_magicext\|\|5.007003\|
2160	2164	sv_magic\|\|\|
…	…
2179	2183	sv_pvn_force_flags\|5.007002\|\|p
2180	2184	sv_pvn_force\|\|\|
2181		sv_pvn_nomg\|5.007003\|\|p
2182		sv_pvn\|\|\|
	2185	sv_pvn_nomg\|5.007003\|5.005000\|p
	2186	sv_pvn\|\|5.005000\|
2183	2187	sv_pvutf8n_force\|\|5.006000\|
2184	2188	sv_pvutf8n\|\|5.006000\|
…	…
2251	2255	swash_get\|\|\|
2252	2256	swash_init\|\|5.006000\|
	2257	sys_init3\|\|5.010000\|n
	2258	sys_init\|\|5.010000\|n
2253	2259	sys_intern_clear\|\|\|
2254	2260	sys_intern_dup\|\|\|
2255	2261	sys_intern_init\|\|\|
	2262	sys_term\|\|5.010000\|n
2256	2263	taint_env\|\|\|
2257	2264	taint_proper\|\|\|
…	…
2413	2420	push @{$depends{$function->[0]}}, @n if @n
2414	2421	}
2415		undef $~~define~~;
	2422	undef $function;
2416	2423	}
2417	2424	else {
…	…
3716	3723	# define ERRSV get_sv("@",FALSE)
3717	3724	#endif
3718		~~#ifndef newSVpvn~~
3719		~~# define newSVpvn(data,len) ((data) \~~
3720		~~? ((len) ? newSVpv((data), (len)) : newSVpv("", 0)) \~~
3721		~~: newSV(0))~~
3722		~~#endif~~
3723	3725
3724	3726	/* Hint: gv_stashpvn
…	…
3937	3939	# define dTHXoa(x) dTHXa(x)
3938	3940	#endif
	3941	#ifndef mPUSHs
	3942	# define mPUSHs(s) PUSHs(sv_2mortal(s))
	3943	#endif
	3944
3939	3945	#ifndef PUSHmortal
3940	3946	# define PUSHmortal PUSHs(sv_newmortal())
…	…
3942	3948
3943	3949	#ifndef mPUSHp
3944		# define mPUSHp(p,l) sv_setpvn~~_mg~~(PUSHmortal, (p), (l))
	3950	# define mPUSHp(p,l) sv_setpvn(PUSHmortal, (p), (l))
3945	3951	#endif
3946	3952
3947	3953	#ifndef mPUSHn
3948		# define mPUSHn(n) sv_setnv~~_mg~~(PUSHmortal, (NV)(n))
	3954	# define mPUSHn(n) sv_setnv(PUSHmortal, (NV)(n))
3949	3955	#endif
3950	3956
3951	3957	#ifndef mPUSHi
3952		# define mPUSHi(i) sv_setiv~~_mg~~(PUSHmortal, (IV)(i))
	3958	# define mPUSHi(i) sv_setiv(PUSHmortal, (IV)(i))
3953	3959	#endif
3954	3960
3955	3961	#ifndef mPUSHu
3956		# define mPUSHu(u) sv_setuv_mg(PUSHmortal, (UV)(u))
3957		#endif
	3962	# define mPUSHu(u) sv_setuv(PUSHmortal, (UV)(u))
	3963	#endif
	3964	#ifndef mXPUSHs
	3965	# define mXPUSHs(s) XPUSHs(sv_2mortal(s))
	3966	#endif
	3967
3958	3968	#ifndef XPUSHmortal
3959	3969	# define XPUSHmortal XPUSHs(sv_newmortal())
…	…
3961	3971
3962	3972	#ifndef mXPUSHp
3963		# define mXPUSHp(p,l) STMT_START { EXTEND(sp,1); sv_setpvn~~_mg~~(PUSHmortal, (p), (l)); } STMT_END
	3973	# define mXPUSHp(p,l) STMT_START { EXTEND(sp,1); sv_setpvn(PUSHmortal, (p), (l)); } STMT_END
3964	3974	#endif
3965	3975
3966	3976	#ifndef mXPUSHn
3967		# define mXPUSHn(n) STMT_START { EXTEND(sp,1); sv_setnv~~_mg~~(PUSHmortal, (NV)(n)); } STMT_END
	3977	# define mXPUSHn(n) STMT_START { EXTEND(sp,1); sv_setnv(PUSHmortal, (NV)(n)); } STMT_END
3968	3978	#endif
3969	3979
3970	3980	#ifndef mXPUSHi
3971		# define mXPUSHi(i) STMT_START { EXTEND(sp,1); sv_setiv~~_mg~~(PUSHmortal, (IV)(i)); } STMT_END
	3981	# define mXPUSHi(i) STMT_START { EXTEND(sp,1); sv_setiv(PUSHmortal, (IV)(i)); } STMT_END
3972	3982	#endif
3973	3983
3974	3984	#ifndef mXPUSHu
3975		# define mXPUSHu(u) STMT_START { EXTEND(sp,1); sv_setuv~~_mg~~(PUSHmortal, (UV)(u)); } STMT_END
	3985	# define mXPUSHu(u) STMT_START { EXTEND(sp,1); sv_setuv(PUSHmortal, (UV)(u)); } STMT_END
3976	3986	#endif
3977	3987
…	…
4360	4370	#ifndef NVef
4361	4371	# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \
4362		defined(PERL_PRIfldbl) /* Not very likely, but let's try anyway. */
	4372	defined(PERL_PRIfldbl) && (PERL_BCDVERSION != 0x5006000)
	4373	/* Not very likely, but let's try anyway. */
4363	4374	# define NVef PERL_PRIeldbl
4364	4375	# define NVff PERL_PRIfldbl
…	…
4442	4453	# define SvREFCNT_inc_simple_void_NN(sv) (void)(++SvREFCNT((SV*)(sv)))
4443	4454	#endif
	4455	#ifndef newSVpvn
	4456	# define newSVpvn(data,len) ((data) \
	4457	? ((len) ? newSVpv((data), (len)) : newSVpv("", 0)) \
	4458	: newSV(0))
	4459	#endif
	4460	#ifndef newSVpvn_utf8
	4461	# define newSVpvn_utf8(s, len, u) newSVpvn_flags((s), (len), (u) ? SVf_UTF8 : 0)
	4462	#endif
	4463	#ifndef SVf_UTF8
	4464	# define SVf_UTF8 0
	4465	#endif
	4466
	4467	#ifndef newSVpvn_flags
	4468
	4469	#if defined(NEED_newSVpvn_flags)
	4470	static SV * DPPP_(my_newSVpvn_flags)(pTHX_ const char * s, STRLEN len, U32 flags);
	4471	static
	4472	#else
	4473	extern SV * DPPP_(my_newSVpvn_flags)(pTHX_ const char * s, STRLEN len, U32 flags);
	4474	#endif
	4475
	4476	#ifdef newSVpvn_flags
	4477	# undef newSVpvn_flags
	4478	#endif
	4479	#define newSVpvn_flags(a,b,c) DPPP_(my_newSVpvn_flags)(aTHX_ a,b,c)
	4480	#define Perl_newSVpvn_flags DPPP_(my_newSVpvn_flags)
	4481
	4482	#if defined(NEED_newSVpvn_flags) \|\| defined(NEED_newSVpvn_flags_GLOBAL)
	4483
	4484	SV *
	4485	DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN len, U32 flags)
	4486	{
	4487	SV *sv = newSVpvn(s, len);
	4488	SvFLAGS(sv) \|= (flags & SVf_UTF8);
	4489	return (flags & SVs_TEMP) ? sv_2mortal(sv) : sv;
	4490	}
	4491
	4492	#endif
	4493
	4494	#endif
4444	4495
4445	4496	/* Backwards compatibility stuff... :-( */
…	…
4613	4664
4614	4665	#endif
	4666
	4667	#if (PERL_BCDVERSION < 0x5008008) \|\| ( (PERL_BCDVERSION >= 0x5009000) && (PERL_BCDVERSION < 0x5009003) )
	4668	# define DPPP_SVPV_NOLEN_LP_ARG &PL_na
	4669	#else
	4670	# define DPPP_SVPV_NOLEN_LP_ARG 0
	4671	#endif
4615	4672	#ifndef SvPV_const
4616	4673	# define SvPV_const(sv, lp) SvPV_flags_const(sv, lp, SV_GMAGIC)
…	…
4635	4692	((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4636	4693	? SvPVX_const(sv) : \
4637		(const char*) sv_2pv_flags(sv, 0, flags\|SV_CONST_RETURN))
	4694	(const char*) sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, flags\|SV_CONST_RETURN))
4638	4695	#endif
4639	4696	#ifndef SvPV_flags_mutable
…	…
4670	4727	# define SvPV_force_flags_nolen(sv, flags) \
4671	4728	((SvFLAGS(sv) & (SVf_POK\|SVf_THINKFIRST)) == SVf_POK \
4672		? SvPVX(sv) : sv_pvn_force_flags(sv, 0, flags))
	4729	? SvPVX(sv) : sv_pvn_force_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, flags))
4673	4730	#endif
4674	4731	#ifndef SvPV_force_flags_mutable
…	…
4681	4738	# define SvPV_nolen(sv) \
4682	4739	((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4683		? SvPVX(sv) : sv_2pv_flags(sv, 0, SV_GMAGIC))
	4740	? SvPVX(sv) : sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC))
4684	4741	#endif
4685	4742	#ifndef SvPV_nolen_const
4686	4743	# define SvPV_nolen_const(sv) \
4687	4744	((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
4688		? SvPVX_const(sv) : sv_2pv_flags(sv, 0, SV_GMAGIC\|SV_CONST_RETURN))
	4745	? SvPVX_const(sv) : sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC\|SV_CONST_RETURN))
4689	4746	#endif
4690	4747	#ifndef SvPV_nomg
…	…
5214	5271	#ifndef newSVpvs
5215	5272	# define newSVpvs(str) newSVpvn(str "", sizeof(str) - 1)
	5273	#endif
	5274
	5275	#ifndef newSVpvs_flags
	5276	# define newSVpvs_flags(str, flags) newSVpvn_flags(str "", sizeof(str) - 1, flags)
5216	5277	#endif
5217	5278

Download in other formats: