blob: 89dc52e23176a680c948f70b810c4a9d2eaa957f (
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 File::Spec::Functions 'abs2rel';
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 = map { abs2rel($_) } callparser_linkable;
unshift @linkable, '$(BASEEXT)$(OBJ_EXT)' if @linkable;
$WriteMakefileArgs{OBJECT} = join(' ', @linkable) if @linkable;
EXTRA
}
sub mm_args {
return {
NORECURS => 1,
clean => {
FILES => "callparser1.h",
}
};
}
1;
|