cc_harness

来自「UNIX下perl实现代码」· 代码 · 共 13 行

use Config;

$libdir = $ENV{PERL_SRC} || "$Config{installarchlib}/CORE";

if (!grep(/^-[cS]$/, @ARGV)) {
    $linkargs = sprintf("%s $libdir/$Config{libperl} %s",
			@Config{qw(ldflags libs)});
}

$cccmd = "$Config{cc} $Config{ccflags} -I$libdir @ARGV $linkargs";
print "$cccmd\n";
exec $cccmd;