File: config_perl.pl

package info (click to toggle)
graphviz 14.0.5-2
  • links: PTS
  • area: main
  • in suites: sid
  • size: 139,388 kB
  • sloc: ansic: 141,938; cpp: 11,957; python: 7,766; makefile: 4,043; yacc: 3,030; xml: 2,972; tcl: 2,495; sh: 1,388; objc: 1,159; java: 560; lex: 423; perl: 243; awk: 156; pascal: 139; php: 58; ruby: 49; cs: 31; sed: 1
file content (24 lines) | stat: -rw-r--r-- 516 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
use Config;

if ($ARGV[0] eq "PERL_LIBS") {
	$archlib = $Config{archlib};
	$libperl = $Config{libperl};
	$libperl =~ s/lib([^\.]+).*/$1/;
	print "-L$archlib/CORE -l$libperl";
}
if ($ARGV[0] eq "PERL_INCLUDES") {
	$archlib = $Config{archlib};
	print "-I$archlib/CORE";
}
if ($ARGV[0] eq "PERL_INSTALL_DIR") {

	my $d;

	foreach $d (qw(installvendorarch vendorarch installsitearch sitearch)) {
		if (exists($Config{$d}) and defined($Config{$d}) and
			($Config{$d} ne '') ) {
			print "$Config{$d}";
			last;
		}
	}
}