Commit d74d9a03f9c86f3d846bcc33f8000c82ad319d6e - libmouse-perl-upstream

Merge pull request #113 from atoomic/dppp++ Use Devel-PPPort 3.59 Shohei YOSHIDA authored 3 years ago GitHub committed 3 years ago

6 changed file(s) with 17 addition(s) and 7 deletion(s). Raw diff Collapse all Expand all

-0

Changes less more

-1

META.json less more

-0

builder/MyBuilder.pm less more

1	1	use strict;
2	2	use warnings;
3	3	use base qw(Module::Build::XSUtil);
	4
	5	use Devel::PPPort 3.59;
4	6
5	7	sub new {
6	8	my ($class, %args) = @_;

-1

cpanfile less more

10	10	conflicts 'MouseX::NativeTraits', '< 1.00';
11	11
12	12	on configure => sub {
13		requires 'Devel::PPPort', '3.42';
	13	requires 'Devel::PPPort', '3.59';
14	14	requires 'ExtUtils::ParseXS', '3.22';
15	15	requires 'Module::Build::XSUtil', '0.19';
16	16	# prevent "Mouse::Deprecated does not define $VERSION" error in test under perl 5.8

-2

xs-src/MouseUtil.xs less more

123	123	}
124	124	}
125	125
126		#if (PERL_BCDVERSION < 0x5014000)
	126	#if PERL_VERSION_LT(5,14,0)
127	127	/* workaround Perl-RT #69939 */
128	128	I32
129	129	mouse_call_sv_safe(pTHX_ SV* const sv, I32 const flags) {

134	134	SAVEGENERICSV(ERRSV); /* local $@ */
135	135	ERRSV = newSV(0);
136	136
137		count = Perl_call_sv(aTHX_ sv, flags \| G_EVAL);
	137	count = call_sv(aTHX_ sv, flags \| G_EVAL);
138	138
139	139	if(sv_true(ERRSV)){
140	140	SV* const err = sv_mortalcopy(ERRSV);

+10

-3

xs-src/mouse.h less more

0	0	#ifndef MOUSE_H
1	1	#define MOUSE_H
2	2
	3	/* used by 'ppport.h' Devel-PPPort */
	4	#define NEED_croak_xs_usage
	5	#define NEED_gv_fetchpvn_flags
3	6	#define NEED_mg_findext
4		#define NEED_gv_fetchpvn_flags
	7	#define NEED_newSVpvn_flags
	8	#define NEED_newSVpvn_share
5	9	#define NEED_SvRX
6		#define NEED_newSVpvn_flags
	10	#define NEED_warner
	11	#define NEED_grok_number
	12	#define NEED_grok_numeric_radix
	13
7	14	#define PERL_EUPXS_ALWAYS_EXPORT
8	15
9	16	#include "xshelper.h"

46	53	mouse_throw_error(SV* const metaobject, SV* const data /* not used /, const char const fmt, ...)
47	54	__attribute__format__(__printf__, 3, 4);
48	55
49		#if (PERL_BCDVERSION < 0x5014000)
	56	#if PERL_VERSION_LT(5,14,0)
50	57	/* workaround RT #69939 */
51	58	I32
52	59	mouse_call_sv_safe(pTHX_ SV*, I32);