blob: 8e42fa9798749848c09e0eebb0c50b2228790992 (
plain) (
blame)
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
|
package inc::MMHelper;
use strict;
use warnings;
sub makefile_pl_extra {
return <<'EXTRA';
use Config;
use Devel::CallParser 'callparser1_h', 'callparser_linkable';
open my $fh, '>', 'callparser1.h' or die "Couldn't write to callparser1.h";
$fh->print(callparser1_h);
my @linkable = callparser_linkable;
unshift @linkable, "Keyword$Config{obj_ext}" if @linkable;
$WriteMakefileArgs{OBJECT} = join(' ', @linkable) if @linkable;
EXTRA
}
sub mm_args {
return {
NORECURS => 1,
clean => {
FILES => "callparser1.h",
}
};
}
1;
|