Skip to content

Commit a68d98f

Browse files
committed
make XS::{Test,Other} have separate C function
1 parent 406aae3 commit a68d98f

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
@@ -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+
4447
MODULE = XS::Test PACKAGE = XS::Test
4548
PROTOTYPES: DISABLE
4649
int
4750
is_even(input)
48-
int input
49-
CODE:
50-
RETVAL = (input % 2 == 0);
51-
OUTPUT:
52-
RETVAL
51+
int input
5352
END
5453

5554
my $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+
106108
MODULE = XS::Other PACKAGE = XS::Other
107109
PROTOTYPES: DISABLE
108110
int
109111
is_odd(input)
110-
int input
111-
CODE:
112-
RETVAL = (INVAR % 2 == 1);
113-
OUTPUT:
114-
RETVAL
112+
int input
115113
END
116114

117115
my $T_OTHER = <<'END';

0 commit comments

Comments
 (0)