Skip to content

Commit

Permalink
makeblibproxy to make proxy *::Inline before (re)build of SO
Browse files Browse the repository at this point in the history
  • Loading branch information
mohawk2 committed Feb 5, 2015
1 parent 4776ddb commit 596f77f
Showing 1 changed file with 13 additions and 1 deletion.
14 changes: 13 additions & 1 deletion lib/Inline/Module.pm
Original file line number Diff line number Diff line change
Expand Up @@ -52,6 +52,8 @@ sub import {
if $cmd eq 'fixblib';
return $class->handle_makeblibdyna(@ARGV)
if $cmd eq 'makeblibdyna';
return $class->handle_makeblibproxy(@ARGV)
if $cmd eq 'makeblibproxy';

# TODO: Deprecated 12/26/2014. Remove this in a month.
die "Inline::Module 'autostub' no longer supported. " .
Expand Down Expand Up @@ -148,12 +150,15 @@ distdir : distdir_inline
distdir_inline : create_distdir
\t\$\$(ABSPERLRUN) -MInline::Module=distdir -e 1 -- \$(DISTVNAME) @$stub_modules -- @$included_modules
pure_all :: build_inline
# Inline currently only supports dynamic
dynamic :: build_inline
build_inline :
\t\$(MKPATH) $inline_build_path
...
for my $module (@$code_modules) {
$section .=
"\t\$(ABSPERLRUN) -Iinc -MInline::Module=makeblibproxy -e 1 -- $module\n";
$section .=
"\t\$(ABSPERLRUN) -Iinc -Ilib -MInline=Config,directory,$inline_build_path -M$module -e 1 --\n";
$section .=
Expand Down Expand Up @@ -215,6 +220,13 @@ sub handle_makeblibdyna {
$class->write_module("blib/lib", "$module\::Inline", $code);
}

sub handle_makeblibproxy {
my ($class, $module) = @_;
DEBUG "$class->handle_makeblibproxy($module)";
my $code = $class->proxy_module("$module\::Inline");
$class->write_module("blib/lib", "$module\::Inline", $code);
}

sub handle_fixblib {
my ($class) = @_;
my $ext = $Config::Config{dlext};
Expand Down

0 comments on commit 596f77f

Please sign in to comment.