Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # NOTE: Derived from blib/lib/Inline.pm. |
2 | # Changes made here will be lost when autosplit is run again. | |
3 | # See AutoSplit.pm. | |
4 | package Inline; | |
5 | ||
6 | #line 923 "blib/lib/Inline.pm (autosplit into blib/lib/auto/Inline/write_inl_file.al)" | |
7 | #============================================================================== | |
8 | # Create the .inl file for an object | |
9 | #============================================================================== | |
10 | sub write_inl_file { | |
11 | my $o = shift; | |
12 | my $inl = | |
13 | File::Spec->catfile($o->{API}{install_lib},"auto",$o->{API}{modpname}, | |
14 | "$o->{API}{modfname}.inl"); | |
15 | open INL, "> $inl" | |
16 | or croak "Can't create Inline validation file $inl"; | |
17 | my $apiversion = $Config{apiversion} || $Config{xs_apiversion}; | |
18 | print INL Inline::denter->new() | |
19 | ->indent(*md5, $o->{INLINE}{md5}, | |
20 | *name, $o->{API}{module}, | |
21 | *version, $o->{CONFIG}{VERSION}, | |
22 | *language, $o->{API}{language}, | |
23 | *language_id, $o->{API}{language_id}, | |
24 | *installed, $o->{CONFIG}{_INSTALL_}, | |
25 | *date_compiled, scalar localtime, | |
26 | *inline_version, $Inline::VERSION, | |
27 | *ILSM, { map {($_, $o->{INLINE}{"ILSM_$_"})} | |
28 | (qw( module suffix type )) | |
29 | }, | |
30 | *Config, { (map {($_,$Config{$_})} | |
31 | (qw( archname osname osvers | |
32 | cc ccflags ld so version | |
33 | ))), | |
34 | (apiversion => $apiversion), | |
35 | }, | |
36 | ); | |
37 | close INL; | |
38 | } | |
39 | ||
40 | # end of Inline::write_inl_file | |
41 | 1; |