config_perl.pl 516 B

123456789101112131415161718192021222324
  1. use Config;
  2. if ($ARGV[0] eq "PERL_LIBS") {
  3. $archlib = $Config{archlib};
  4. $libperl = $Config{libperl};
  5. $libperl =~ s/lib([^\.]+).*/$1/;
  6. print "-L$archlib/CORE -l$libperl";
  7. }
  8. if ($ARGV[0] eq "PERL_INCLUDES") {
  9. $archlib = $Config{archlib};
  10. print "-I$archlib/CORE";
  11. }
  12. if ($ARGV[0] eq "PERL_INSTALL_DIR") {
  13. my $d;
  14. foreach $d (qw(installvendorarch vendorarch installsitearch sitearch)) {
  15. if (exists($Config{$d}) and defined($Config{$d}) and
  16. ($Config{$d} ne '') ) {
  17. print "$Config{$d}";
  18. last;
  19. }
  20. }
  21. }