blob: 6002743b72f34ebf7218d27f37eb5a2adf6ea1b3 (
plain)
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
65
66
67
68
69
70
71
72
73
74
75
|
################################################################################
##
## $Revision: 9 $
## $Author: mhx $
## $Date: 2007/08/18 20:16:12 +0200 $
##
################################################################################
##
## Version 3.x, Copyright (C) 2004-2007, Marcus Holland-Moritz.
## Version 2.x, Copyright (C) 2001, Paul Marquess.
## Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
##
## This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself.
##
################################################################################
=provides
__UNDEFINED__
aTHXR
aTHXR_
dTHXR
=implementation
__UNDEFINED__ dTHR dNOOP
__UNDEFINED__ dTHX dNOOP
__UNDEFINED__ dTHXa(x) dNOOP
__UNDEFINED__ pTHX void
__UNDEFINED__ pTHX_
__UNDEFINED__ aTHX
__UNDEFINED__ aTHX_
#if { VERSION < 5.6.0 }
# ifdef USE_THREADS
# define aTHXR thr
# define aTHXR_ thr,
# else
# define aTHXR
# define aTHXR_
# endif
# define dTHXR dTHR
#else
# define aTHXR aTHX
# define aTHXR_ aTHX_
# define dTHXR dTHX
#endif
__UNDEFINED__ dTHXoa(x) dTHXa(x)
=xsubs
IV
no_THX_arg(sv)
SV *sv
CODE:
RETVAL = 1 + sv_2iv(sv);
OUTPUT:
RETVAL
void
with_THX_arg(error)
char *error
PPCODE:
Perl_croak(aTHX_ "%s", error);
=tests plan => 2
ok(&Devel::PPPort::no_THX_arg("42"), 43);
eval { &Devel::PPPort::with_THX_arg("yes\n"); };
ok($@ =~ /^yes/);
|
