File: config_perl.pl

package info (click to toggle)
graphviz 2.42.2-5%2Bdeb11u1
  • links: PTS
  • area: main
  • in suites: bullseye
  • size: 95,776 kB
  • sloc: ansic: 1,051,543; cpp: 9,107; tcl: 4,897; makefile: 4,857; sh: 4,506; yacc: 4,190; xml: 2,970; cs: 1,921; objc: 1,157; lex: 625; java: 560; perl: 445; python: 255; awk: 241; javascript: 146; ruby: 64; php: 59; sed: 1
file content (24 lines) | stat: -rw-r--r-- 516 bytes parent folder | download | duplicates (8) 
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;
		}
	}
}