Write hierarchy log file for Perl build
Project: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/repo Commit: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/commit/f85267dd Tree: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/tree/f85267dd Diff: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/diff/f85267dd Branch: refs/heads/perl_build_with_make Commit: f85267ddf7b8d41385b13af4eab0aaf0633fea23 Parents: f14b770 Author: Nick Wellnhofer <[email protected]> Authored: Wed Oct 29 22:13:44 2014 +0100 Committer: Nick Wellnhofer <[email protected]> Committed: Sat Nov 8 19:33:39 2014 +0100 ---------------------------------------------------------------------- compiler/perl/lib/Clownfish/CFC.xs | 6 ++++++ compiler/perl/lib/Clownfish/CFC/Perl/Build.pm | 2 ++ 2 files changed, 8 insertions(+) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/f85267dd/compiler/perl/lib/Clownfish/CFC.xs ---------------------------------------------------------------------- diff --git a/compiler/perl/lib/Clownfish/CFC.xs b/compiler/perl/lib/Clownfish/CFC.xs index a6ea249..f4757cb 100644 --- a/compiler/perl/lib/Clownfish/CFC.xs +++ b/compiler/perl/lib/Clownfish/CFC.xs @@ -760,6 +760,12 @@ CODE: OUTPUT: RETVAL void +write_log(self) + CFCHierarchy *self; +PPCODE: + CFCHierarchy_write_log(self); + +void _set_or_get(self, ...) CFCHierarchy *self; ALIAS: http://git-wip-us.apache.org/repos/asf/lucy-clownfish/blob/f85267dd/compiler/perl/lib/Clownfish/CFC/Perl/Build.pm ---------------------------------------------------------------------- diff --git a/compiler/perl/lib/Clownfish/CFC/Perl/Build.pm b/compiler/perl/lib/Clownfish/CFC/Perl/Build.pm index b83ab58..641bb4d 100644 --- a/compiler/perl/lib/Clownfish/CFC/Perl/Build.pm +++ b/compiler/perl/lib/Clownfish/CFC/Perl/Build.pm @@ -354,6 +354,8 @@ sub ACTION_clownfish { { utime( time, time, $AUTOGEN_DIR ); # touch } + + $hierarchy->write_log; } # Write ppport.h, which supplies some XS routines not found in older Perls and
