Skip to content

Commit cb1b951

Browse files
committed
make XS::{Test,Other} have separate C function
1 parent f5cdee6 commit cb1b951

File tree

1 file changed

+8
-10
lines changed
  • t/lib/MakeMaker/Test/Setup

1 file changed

+8
-10
lines changed

t/lib/MakeMaker/Test/Setup/XS.pm

Lines changed: 8 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -39,15 +39,14 @@ my $XS_TEST = <<'END';
3939
#include "EXTERN.h"
4040
#include "perl.h"
4141
#include "XSUB.h"
42+
43+
int is_even(int input) { return (input % 2 == 0); }
44+
4245
MODULE = XS::Test PACKAGE = XS::Test
4346
PROTOTYPES: DISABLE
4447
int
4548
is_even(input)
46-
int input
47-
CODE:
48-
RETVAL = (input % 2 == 0);
49-
OUTPUT:
50-
RETVAL
49+
int input
5150
END
5251

5352
my $T_TEST = <<'END';
@@ -94,15 +93,14 @@ my $XS_OTHER = <<'END';
9493
#include "EXTERN.h"
9594
#include "perl.h"
9695
#include "XSUB.h"
96+
97+
int is_odd(int input) { return (INVAR % 2 == 1); }
98+
9799
MODULE = XS::Other PACKAGE = XS::Other
98100
PROTOTYPES: DISABLE
99101
int
100102
is_odd(input)
101-
int input
102-
CODE:
103-
RETVAL = (INVAR % 2 == 1);
104-
OUTPUT:
105-
RETVAL
103+
int input
106104
END
107105

108106
my $T_OTHER = <<'END';

0 commit comments

Comments
 (0)