'static', # Dirty hack to enable -shared/-static
'shared', # Create a shared library (--shared for compat.)
'log:s', # where to log compilation process information
+ 'Wb:s', # pass (comma-sepearated) options to backend
'testsuite', # try to be nice to testsuite
);
my $lose = 0;
my ($cfh);
my $testsuite = '';
+ my $addoptions = opt(Wb);
+
+ if( $addoptions ) {
+ $addoptions .= ',' if $addoptions !~ m/,$/;
+ }
if (opt(testsuite)) {
my $bo = join '', @begin_output;
# This has to do the write itself, so we can't keep a lock. Life
# sucks.
- my $command = "$BinPerl $taint -MO=$Backend,$testsuite$max_line_len$stash,-o$cfile $Input";
+ my $command = "$BinPerl $taint -MO=$Backend,$addoptions$testsuite$max_line_len$stash,-o$cfile $Input";
vprint 1, "Compiling...";
vprint 1, "Calling $command";
$link .= " -libpath:".$_ for split /\s+/, opt(L);
my @mods = split /-?u /, $stash;
$link .= " ".ExtUtils::Embed::ldopts("-std", \@mods);
- $link .= " perl57.lib msvcrt.lib";
+ $link .= " perl57.lib kernel32.lib msvcrt.lib";
vprint 3, "running $Config{cc} $compile";
system("$Config{cc} $compile");
vprint 3, "running $Config{ld} $link";