3 use vars qw(%Config $Config_SH_expanded);
5 my $how_many_common = 22;
7 # commonly used names to precache (and hence lookup fastest)
10 while ($how_many_common--) {
13 /^(\S+):\s*(\d+)$/ or die "Malformed line '$_'";
17 # names of things which may need to have slashes changed to double-colons
18 my %Extensions = map {($_,$_)}
19 qw(dynamic_ext static_ext extensions known_extensions);
21 # allowed opts as well as specifies default and initial values
23 'cross' => '', # --cross=PLATFORM - crosscompiling for PLATFORM
24 'glossary' => 1, # --no-glossary - no glossary file inclusion,
26 'heavy' => '', # pathname of the Config_heavy.pl file
30 # user specified options
33 (map {/^--([\-_\w]+)=(.*)$/} @ARGV),
34 # --opt --no-opt --noopt
35 (map {/^no-?(.*)$/i?($1=>0):($_=>1)} map {/^--([\-_\w]+)$/} @ARGV),
38 my %opts = (%Allowed_Opts, %given_opts);
40 for my $opt (grep {!exists $Allowed_Opts{$_}} keys %given_opts) {
41 die "option '$opt' is not recognized";
43 @ARGV = grep {!/^--/} @ARGV;
51 my ($Config_PM, $Config_heavy);
52 my $Glossary = $ARGV[1] || 'Porting/Glossary';
55 # creating cross-platform config file
57 mkdir "xlib/$Opts{cross}";
58 $Config_PM = $ARGV[0] || "xlib/$Opts{cross}/Config.pm";
61 $Config_PM = $ARGV[0] || 'lib/Config.pm';
64 $Config_heavy = $Opts{heavy};
67 ($Config_heavy = $Config_PM) =~ s!\.pm$!_heavy.pl!;
68 die "Can't automatically determine name for Config_heavy.pl from '$Config_PM'"
69 if $Config_heavy eq $Config_PM;
72 open CONFIG, ">$Config_PM" or die "Can't open $Config_PM: $!\n";
73 open CONFIG_HEAVY, ">$Config_heavy" or die "Can't open $Config_heavy: $!\n";
75 print CONFIG_HEAVY <<'ENDOFBEG';
76 # This file was created by configpm when Perl was built. Any changes
77 # made to this file will be lost the next time perl is built.
81 # use warnings; Pulls in Carp
82 # use vars pulls in Carp
85 my $myver = sprintf "%vd", $^V;
87 printf CONFIG <<'ENDOFBEG', ($myver) x 3;
88 # This file was created by configpm when Perl was built. Any changes
89 # made to this file will be lost the next time perl is built.
93 # use warnings; Pulls in Carp
94 # use vars pulls in Carp
95 @Config::EXPORT = qw(%%Config);
96 @Config::EXPORT_OK = qw(myconfig config_sh config_vars config_re);
98 # Need to stub all the functions to make code such as print Config::config_sh
106 my %%Export_Cache = map {($_ => 1)} (@Config::EXPORT, @Config::EXPORT_OK);
110 # Define our own import method to avoid pulling in the full Exporter:
113 @_ = @Config::EXPORT unless @_;
115 my @funcs = grep $_ ne '%%Config', @_;
116 my $export_Config = @funcs < @_ ? 1 : 0;
119 my $callpkg = caller(0);
120 foreach my $func (@funcs) {
121 die sprintf qq{"%%s" is not exported by the %%s module\n},
122 $func, __PACKAGE__ unless $Export_Cache{$func};
123 *{$callpkg.'::'.$func} = \&{$func};
126 *{"$callpkg\::Config"} = \%%Config if $export_Config;
130 die "Perl lib version (%s) doesn't match executable version ($])"
134 or die "Perl lib version (%s) doesn't match executable version (" .
135 sprintf("v%%vd",$^V) . ")";
149 open(CONFIG_SH, 'config.sh') || die "Can't open config.sh: $!";
150 while (<CONFIG_SH>) {
151 next if m:^#!/bin/sh:;
153 # Catch PERL_CONFIG_SH=true and PERL_VERSION=n line from Configure.
154 s/^(\w+)=(true|\d+)\s*$/$1='$2'\n/ or m/^(\w+)='(.*)'$/;
155 my($k, $v) = ($1, $2);
157 # grandfather PATCHLEVEL and SUBVERSION and CONFIG
159 if ($k eq 'PERL_VERSION') {
160 push @v_others, "PATCHLEVEL='$v'\n";
162 elsif ($k eq 'PERL_SUBVERSION') {
163 push @v_others, "SUBVERSION='$v'\n";
165 elsif ($k eq 'PERL_CONFIG_SH') {
166 push @v_others, "CONFIG='$v'\n";
170 # We can delimit things in config.sh with either ' or ".
171 unless ($in_v or m/^(\w+)=(['"])(.*\n)/){
172 push(@non_v, "#$_"); # not a name='value' line
180 ($name,$val) = ($1,$3);
182 $in_v = $val !~ /$quote\n/;
185 s,/,::,g if $Extensions{$name};
187 $val =~ s/$quote\n?\z//;
189 my $line = "$name=$quote$val$quote\n";
190 push(@v_others, $line);
191 $seen_quotes{$quote}++;
196 # This is somewhat grim, but I want the code for parsing config.sh here and
197 # now so that I can expand $Config{ivsize} and $Config{ivtype}
199 my $fetch_string = <<'EOT';
201 # Search for it in the big string
203 my($self, $key) = @_;
207 if ($seen_quotes{'"'}) {
208 # We need the full ' and " code
209 $fetch_string .= <<'EOT';
210 my $quote_type = "'";
211 my $marker = "$key=";
213 # Check for the common case, ' delimited
214 my $start = index($Config_SH_expanded, "\n$marker$quote_type");
215 # If that failed, check for " delimited
218 $start = index($Config_SH_expanded, "\n$marker$quote_type");
222 $fetch_string .= <<'EOT';
223 # We only have ' delimted.
224 my $start = index($Config_SH_expanded, "\n$key=\'");
227 $fetch_string .= <<'EOT';
228 # Start can never be -1 now, as we've rigged the long string we're
229 # searching with an initial dummy newline.
230 return undef if $start == -1;
232 $start += length($key) + 3;
235 if (!$seen_quotes{'"'}) {
236 # Don't need the full ' and " code, or the eval expansion.
237 $fetch_string .= <<'EOT';
238 my $value = substr($Config_SH_expanded, $start,
239 index($Config_SH_expanded, "'\n", $start)
243 $fetch_string .= <<'EOT';
244 my $value = substr($Config_SH_expanded, $start,
245 index($Config_SH_expanded, "$quote_type\n", $start)
248 # If we had a double-quote, we'd better eval it so escape
249 # sequences and such can be interpolated. Since the incoming
250 # value is supposed to follow shell rules and not perl rules,
251 # we escape any perl variable markers
252 if ($quote_type eq '"') {
253 $value =~ s/\$/\\\$/g;
254 $value =~ s/\@/\\\@/g;
255 eval "\$value = \"$value\"";
259 $fetch_string .= <<'EOT';
260 # So we can say "if $Config{'foo'}".
261 $value = undef if $value eq 'undef';
262 $self->{$key} = $value; # cache it
269 # Calculation for the keys for byteorder
270 # This is somewhat grim, but I need to run fetch_string here.
271 our $Config_SH_expanded = join "\n", '', @v_others;
273 my $t = fetch_string ({}, 'ivtype');
274 my $s = fetch_string ({}, 'ivsize');
276 # byteorder does exist on its own but we overlay a virtual
277 # dynamically recomputed value.
279 # However, ivtype and ivsize will not vary for sane fat binaries
281 my $f = $t eq 'long' ? 'L!' : $s == 8 ? 'Q': 'I';
284 if ($s == 4 || $s == 8) {
285 my $list = join ',', reverse(2..$s);
287 $byteorder_code = <<"EOT";
290 foreach my \$c ($list) { \$i |= ord(\$c); \$i <<= 8 }
292 our \$byteorder = join('', unpack('$format', pack('$f', \$i)));
295 $byteorder_code = "our \$byteorder = '?'x$s;\n";
300 if (fetch_string({},'userelocatableinc')) {
301 foreach my $what (qw(prefixexp
350 installvendorhtml1dir
351 installvendorhtml3dir
357 push @need_relocation, $what if fetch_string({}, $what) =~ m!^\.\.\./!;
362 @need_relocation{@need_relocation} = @need_relocation;
364 # This can have .../ anywhere:
365 if (fetch_string({}, 'otherlibdirs') =~ m!\.\.\./!) {
366 $need_relocation{otherlibdirs} = 'otherlibdirs';
369 my $relocation_code = <<'EOT';
373 return $libdir unless $libdir =~ s!^\.\.\./!!;
375 if ($prefix =~ s!/[^/]*$!!) {
376 while ($libdir =~ m!^\.\./!) {
377 # Loop while $libdir starts "../" and $prefix still has a trailing
379 last unless $prefix =~ s!/([^/]+)$!!;
380 # but bail out if the directory we picked off the end of $prefix is .
382 if ($1 eq '.' or $1 eq '..') {
383 # Undo! This should be rare, hence code it this way rather than a
384 # check each time before the s!!! above.
385 $prefix = "$prefix/$1";
388 # Remove that leading ../ and loop again
389 substr ($libdir, 0, 3, '');
391 $libdir = "$prefix/$libdir";
397 if (%need_relocation) {
398 my $relocations_in_common;
399 # otherlibdirs only features in the hash
400 foreach (keys %need_relocation) {
401 $relocations_in_common++ if $Common{$_};
403 if ($relocations_in_common) {
404 print CONFIG $relocation_code;
406 print CONFIG_HEAVY $relocation_code;
410 print CONFIG_HEAVY @non_v, "\n";
412 # copy config summary format from the myconfig.SH script
413 print CONFIG_HEAVY "our \$summary = <<'!END!';\n";
414 open(MYCONFIG,"<myconfig.SH") || die "open myconfig.SH failed: $!";
415 1 while defined($_ = <MYCONFIG>) && !/^Summary of/;
416 do { print CONFIG_HEAVY $_ } until !defined($_ = <MYCONFIG>) || /^\s*$/;
419 print CONFIG_HEAVY "\n!END!\n", <<'EOT';
420 my $summary_expanded;
423 return $summary_expanded if $summary_expanded;
424 ($summary_expanded = $summary) =~ s{\$(\w+)}
425 { my $c = $Config::Config{$1}; defined($c) ? $c : 'undef' }ge;
433 print CONFIG_HEAVY join('', sort @v_others), "!END!\n";
435 # Only need the dynamic byteorder code in Config.pm if 'byteorder' is one of
437 if ($Common{byteorder}) {
438 print CONFIG $byteorder_code;
440 print CONFIG_HEAVY $byteorder_code;
443 if (@need_relocation) {
444 print CONFIG_HEAVY 'foreach my $what (qw(', join (' ', @need_relocation),
446 s<^($what=)(['"])(.*?)\2>
447 <$1 . $2 . relocate_inc($3) . $2 . "\n" .
448 'raw_' . $1 . $2 . $3 . $2>me;
451 # Currently it only makes sense to do the ... relocation on Unix, so there's
452 # no need to emulate the "which separator for this platform" logic in perl.c -
453 # ':' will always be applicable
454 if ($need_relocation{otherlibdirs}) {
455 print CONFIG_HEAVY << 'EOT';
456 s{^(otherlibdirs=)(['"])(.*?)\2}
457 {$1 . $2 . join ':', map {relocate_inc($_)} split ':', $3 . $2}me;
462 print CONFIG_HEAVY <<'EOT';
463 s/(byteorder=)(['"]).*?\2/$1$2$Config::byteorder$2/m;
465 my $config_sh_len = length $_;
467 our $Config_SH_expanded = "\n$_" . << 'EOVIRTUAL';
470 foreach my $prefix (qw(ccflags ldflags)) {
471 my $value = fetch_string ({}, $prefix);
472 my $withlargefiles = fetch_string ({}, $prefix . "_uselargefiles");
473 if (defined $withlargefiles) {
474 $value =~ s/\Q$withlargefiles\E\b//;
475 print CONFIG_HEAVY "${prefix}_nolargefiles='$value'\n";
479 foreach my $prefix (qw(libs libswanted)) {
480 my $value = fetch_string ({}, $prefix);
481 my $withlf = fetch_string ({}, 'libswanted_uselargefiles');
482 next unless defined $withlf;
484 = split(' ', fetch_string ({}, 'libswanted_uselargefiles'));
487 @lflibswanted{@lflibswanted} = ();
488 if ($prefix eq 'libs') {
489 my @libs = grep { /^-l(.+)/ &&
490 not exists $lflibswanted{$1} }
491 split(' ', fetch_string ({}, 'libs'));
492 $value = join(' ', @libs);
494 my @libswanted = grep { not exists $lflibswanted{$_} }
495 split(' ', fetch_string ({}, 'libswanted'));
496 $value = join(' ', @libswanted);
499 print CONFIG_HEAVY "${prefix}_nolargefiles='$value'\n";
502 print CONFIG_HEAVY "EOVIRTUAL\n";
504 print CONFIG_HEAVY $fetch_string;
506 print CONFIG <<'ENDOFEND';
509 my($self, $key) = @_;
511 # check for cached value (which may be undef so we use exists not defined)
512 return $self->{$key} if exists $self->{$key};
514 return $self->fetch_string($key);
518 print CONFIG_HEAVY <<'ENDOFEND';
524 substr($Config_SH_expanded, 1, index($Config_SH_expanded, '=') - 1 );
529 if ($seen_quotes{'"'}) {
530 print CONFIG_HEAVY <<'ENDOFEND';
531 # Find out how the current key's quoted so we can skip to its end.
532 my $quote = substr($Config_SH_expanded,
533 index($Config_SH_expanded, "=", $prevpos)+1, 1);
534 my $pos = index($Config_SH_expanded, qq($quote\n), $prevpos) + 2;
537 # Just ' quotes, so it's much easier.
538 print CONFIG_HEAVY <<'ENDOFEND';
539 my $pos = index($Config_SH_expanded, qq('\n), $prevpos) + 2;
542 print CONFIG_HEAVY <<'ENDOFEND';
543 my $len = index($Config_SH_expanded, "=", $pos) - $pos;
545 $len > 0 ? substr($Config_SH_expanded, $pos, $len) : undef;
549 return 1 if exists($_[0]->{$_[1]});
551 return(index($Config_SH_expanded, "\n$_[1]='") != -1
553 if ($seen_quotes{'"'}) {
554 print CONFIG_HEAVY <<'ENDOFEND';
555 or index($Config_SH_expanded, "\n$_[1]=\"") != -1
558 print CONFIG_HEAVY <<'ENDOFEND';
562 sub STORE { die "\%Config::Config is read-only\n" }
568 substr $Config_SH_expanded, 1, $config_sh_len;
573 return map { chomp; $_ } grep eval{ /^(?:$re)=/ }, split /^/,
578 # implements -V:cfgvar option (see perlrun -V:)
580 # find optional leading, trailing colons; and query-spec
581 my ($notag,$qry,$lncont) = m/^(:)?(.*?)(:)?$/; # flags fore and aft,
582 # map colon-flags to print decorations
583 my $prfx = $notag ? '': "$qry="; # tag-prefix for print
584 my $lnend = $lncont ? ' ' : ";\n"; # line ending for print
586 # all config-vars are by definition \w only, any \W means regex
588 my @matches = config_re($qry);
589 print map "$_$lnend", @matches ? @matches : "$qry: not found" if !$notag;
590 print map { s/\w+=//; "$_$lnend" } @matches ? @matches : "$qry: not found" if $notag;
592 my $v = (exists $Config::Config{$qry}) ? $Config::Config{$qry}
594 $v = 'undef' unless defined $v;
595 print "${prfx}'${v}'$lnend";
600 # Called by the real AUTOLOAD
603 goto \&$Config::AUTOLOAD;
610 print CONFIG <<'ENDOFSET';
613 my ($value, $v) = $Config_SH_expanded =~ m/^used_aout='(.*)'\s*$/m;
614 for (split ' ', $value) {
615 ($v) = $Config_SH_expanded =~ m/^aout_$_='(.*)'\s*$/m;
616 $preconfig{$_} = $v eq 'undef' ? undef : $v;
619 $preconfig{d_fork} = undef unless $OS2::can_fork; # Some funny cases can't
620 sub TIEHASH { bless {%preconfig} }
622 # Extract the name of the DLL from the makefile to avoid duplication
623 my ($f) = grep -r, qw(GNUMakefile Makefile);
625 if (open my $fh, '<', $f) {
627 $dll = $1, last if /^PERL_DLL_BASE\s*=\s*(\S*)\s*$/;
630 print CONFIG <<ENDOFSET if $dll;
631 \$preconfig{dll_name} = '$dll';
634 print CONFIG <<'ENDOFSET';
641 foreach my $key (keys %Common) {
642 my $value = fetch_string ({}, $key);
643 # Is it safe on the LHS of => ?
644 my $qkey = $key =~ /^[A-Za-z_][A-Za-z0-9_]*$/ ? $key : "'$key'";
645 if (defined $value) {
646 # Quote things for a '' string
647 $value =~ s!\\!\\\\!g;
650 if ($key eq 'otherlibdirs') {
651 $value = "join (':', map {relocate_inc(\$_)} split (':', $value))";
652 } elsif ($need_relocation{$key}) {
653 $value = "relocate_inc($value)";
658 $Common{$key} = "$qkey => $value";
661 if ($Common{byteorder}) {
662 $Common{byteorder} = 'byteorder => $byteorder';
664 my $fast_config = join '', map { " $_,\n" } sort values %Common;
666 # Sanity check needed to stop an infite loop if Config_heavy.pl fails to define
667 # &launcher for some reason (eg it got truncated)
668 print CONFIG sprintf <<'ENDOFTIE', $fast_config;
673 require 'Config_heavy.pl';
674 goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
675 die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
678 # tie returns the object, so the value returned to require will be true.
679 tie %%Config, 'Config', {
684 open(CONFIG_POD, ">lib/Config.pod") or die "Can't open lib/Config.pod: $!";
685 print CONFIG_POD <<'ENDOFTAIL';
688 Config - access Perl configuration information
693 if ($Config{usethreads}) {
694 print "has thread support\n"
697 use Config qw(myconfig config_sh config_vars config_re);
705 config_vars(qw(osname archname));
710 The Config module contains all the information that was available to
711 the C<Configure> program at Perl build time (over 900 values).
713 Shell variables from the F<config.sh> file (written by Configure) are
714 stored in the readonly-variable C<%Config>, indexed by their names.
716 Values stored in config.sh as 'undef' are returned as undefined
717 values. The perl C<exists> function can be used to check if a
718 named variable exists.
724 Returns a textual summary of the major perl configuration values.
725 See also C<-V> in L<perlrun/Switches>.
729 Returns the entire perl configuration information in the form of the
730 original config.sh shell variable assignment script.
732 =item config_re($regex)
734 Like config_sh() but returns, as a list, only the config entries who's
735 names match the $regex.
737 =item config_vars(@names)
739 Prints to STDOUT the values of the named configuration variable. Each is
740 printed on a separate line in the form:
744 Names which are unknown are output as C<name='UNKNOWN';>.
745 See also C<-V:name> in L<perlrun/Switches>.
751 Here's a more sophisticated example of using %Config:
758 unless($Config{sig_name} && $Config{sig_num}) {
761 my @names = split ' ', $Config{sig_name};
762 @sig_num{@names} = split ' ', $Config{sig_num};
764 $sig_name[$sig_num{$_}] ||= $_;
768 print "signal #17 = $sig_name[17]\n";
769 if ($sig_num{ALRM}) {
770 print "SIGALRM is $sig_num{ALRM}\n";
775 Because this information is not stored within the perl executable
776 itself it is possible (but unlikely) that the information does not
777 relate to the actual perl binary which is being used to access it.
779 The Config module is installed into the architecture and version
780 specific library directory ($Config{installarchlib}) and it checks the
781 perl version number when loaded.
783 The values stored in config.sh may be either single-quoted or
784 double-quoted. Double-quoted strings are handy for those cases where you
785 need to include escape sequences in the strings. To avoid runtime variable
786 interpolation, any C<$> and C<@> characters are replaced by C<\$> and
787 C<\@>, respectively. This isn't foolproof, of course, so don't embed C<\$>
788 or C<\@> in double-quoted strings unless you're willing to deal with the
789 consequences. (The slashes will end up escaped and the C<$> or C<@> will
790 trigger variable interpolation)
794 Most C<Config> variables are determined by the C<Configure> script
795 on platforms supported by it (which is most UNIX platforms). Some
796 platforms have custom-made C<Config> variables, and may thus not have
797 some of the variables described below, or may have extraneous variables
798 specific to that particular port. See the port specific documentation
803 if ($Opts{glossary}) {
804 open(GLOS, "<$Glossary") or die "Can't open $Glossary: $!";
811 if (s/\A(\w*)\s+\(([\w.]+)\):\s*\n(\t?)/=item C<$1>\n\nFrom F<$2>:\n\n/m) {
812 my $c = substr $1, 0, 1;
813 unless ($seen{$c}++) {
814 print CONFIG_POD <<EOF if $text;
818 print CONFIG_POD <<EOF;
827 elsif (!$text || !/\A\t/) {
828 warn "Expected a Configure variable header",
829 ($text ? " or another paragraph of description" : () );
831 s/n't/n\00t/g; # leave can't, won't etc untouched
832 s/^\t\s+(.*)/\n$1/gm; # Indented lines ===> new paragraph
833 s/^(?<!\n\n)\t(.*)/$1/gm; # Not indented lines ===> text
834 s{([\'\"])(?=[^\'\"\s]*[./][^\'\"\s]*\1)([^\'\"\s]+)\1}(F<$2>)g; # '.o'
835 s{([\'\"])([^\'\"\s]+)\1}(C<$2>)g; # "date" command
836 s{\'([A-Za-z_\- *=/]+)\'}(C<$1>)g; # 'ln -s'
838 (?<! [\w./<\'\"] ) # Only standalone file names
839 (?! e \. g \. ) # Not e.g.
840 (?! \. \. \. ) # Not ...
842 (?! read/ ) # Not read/write
843 (?! etc\. ) # Not etc.
846 \$ ? # Allow leading $
847 [\w./]* [./] [\w./]* # Require . or / inside
849 (?<! \. (?= [\s)] ) ) # Do not include trailing dot
850 (?! [\w/] ) # Include all of it
852 (F<$1>)xg; # /usr/local
853 s/((?<=\s)~\w*)/F<$1>/g; # ~name
854 s/(?<![.<\'\"])\b([A-Z_]{2,})\b(?![\'\"])/C<$1>/g; # UNISTD
855 s/(?<![.<\'\"])\b(?!the\b)(\w+)\s+macro\b/C<$1> macro/g; # FILE_cnt macro
856 s/n[\0]t/n't/g; # undo can't, won't damage
859 if ($Opts{glossary}) {
860 <GLOS>; # Skip the "DO NOT EDIT"
861 <GLOS>; # Skip the preamble
868 print CONFIG_POD <<'ENDOFTAIL';
874 This module contains a good example of how to use tie to implement a
875 cache and an example of how to make a tied variable readonly to those
887 # Now create Cross.pm if needed
889 open CROSS, ">lib/Cross.pm" or die "Can not open >lib/Cross.pm: $!";
891 # typical invocation:
892 # perl -MCross Makefile.PL
893 # perl -MCross=wince -V:cc
897 my ($package,$platform) = @_;
898 unless (defined $platform) {
899 # if $platform is not specified, then use last one when
900 # 'configpm; was invoked with --cross option
901 $platform = '***replace-marker***';
903 @INC = map {/\blib\b/?(do{local $_=$_;s/\blib\b/xlib\/$platform/;$_},$_):($_)} @INC;
904 $::Cross::platform = $platform;
909 $cross =~ s/\*\*\*replace-marker\*\*\*/$Opts{cross}/g;
912 unshift(@INC,"xlib/$Opts{cross}");
915 # Now do some simple tests on the Config.pm file we have created
917 unshift(@INC,'xlib/symbian') if $Opts{cross};
919 require $Config_heavy;
922 die "$0: $Config_PM not valid"
923 unless $Config{'PERL_CONFIG_SH'} eq 'true';
925 die "$0: error processing $Config_PM"
926 if defined($Config{'an impossible name'})
927 or $Config{'PERL_CONFIG_SH'} ne 'true' # test cache
930 die "$0: error processing $Config_PM"
931 if eval '$Config{"cc"} = 1'
932 or eval 'delete $Config{"cc"}'
937 # Popularity of various entries in %Config, based on a large build and test
938 # run of code in the Fotango build system:
956 inc_version_list: 783
980 installsiteman1dir: 489
981 installsiteman3dir: 489
982 installvendorman1dir: 489
983 installvendorman3dir: 489
992 installprefixexp: 336
995 installvendorarch: 336
996 installvendorbin: 336
997 installvendorlib: 336