File tree Expand file tree Collapse file tree 1 file changed +8
-10
lines changed
t/lib/MakeMaker/Test/Setup Expand file tree Collapse file tree 1 file changed +8
-10
lines changed Original file line number Diff line number Diff line change @@ -41,15 +41,14 @@ my $XS_TEST = <<'END';
4141#include "EXTERN.h"
4242#include "perl.h"
4343#include "XSUB.h"
44+
45+ int is_even(int input) { return (input % 2 == 0); }
46+
4447MODULE = XS::Test PACKAGE = XS::Test
4548PROTOTYPES: DISABLE
4649int
4750is_even(input)
48- int input
49- CODE:
50- RETVAL = (input % 2 == 0);
51- OUTPUT:
52- RETVAL
51+ int input
5352END
5453
5554my $T_TEST = <<'END' ;
@@ -103,15 +102,14 @@ my $XS_OTHER = <<'END';
103102#include "EXTERN.h"
104103#include "perl.h"
105104#include "XSUB.h"
105+
106+ int is_odd(int input) { return (INVAR % 2 == 1); }
107+
106108MODULE = XS::Other PACKAGE = XS::Other
107109PROTOTYPES: DISABLE
108110int
109111is_odd(input)
110- int input
111- CODE:
112- RETVAL = (INVAR % 2 == 1);
113- OUTPUT:
114- RETVAL
112+ int input
115113END
116114
117115my $T_OTHER = <<'END' ;
You can’t perform that action at this time.
0 commit comments