Tryag File Manager
Home
-
Turbo Force
Current Path :
/
proc
/
self
/
root
/
usr
/
lib
/
perl5
/
5.8.8
/
B
/
Upload File :
New :
File
Dir
//proc/self/root/usr/lib/perl5/5.8.8/B/cc_harness
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;