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(archlibexp
309 push @need_relocation, $what if fetch_string({}, $what) =~ m!^\.\.\./!;
314 @need_relocation{@need_relocation} = @need_relocation;
316 # This can have .../ anywhere:
317 if (fetch_string({}, 'otherlibdirs') =~ m!\.\.\./!) {
318 $need_relocation{otherlibdirs} = 'otherlibdirs';
321 my $relocation_code = <<'EOT';
325 return $libdir unless $libdir =~ s!^\.\.\./!!;
327 if ($prefix =~ s!/[^/]*$!!) {
328 while ($libdir =~ m!^\.\./!) {
329 # Loop while $libdir starts "../" and $prefix still has a trailing
331 last unless $prefix =~ s!/([^/]+)$!!;
332 # but bail out if the directory we picked off the end of $prefix is .
334 if ($1 eq '.' or $1 eq '..') {
335 # Undo! This should be rare, hence code it this way rather than a
336 # check each time before the s!!! above.
337 $prefix = "$prefix/$1";
340 # Remove that leading ../ and loop again
341 substr ($libdir, 0, 3, '');
343 $libdir = "$prefix/$libdir";
349 if (%need_relocation) {
350 my $relocations_in_common;
351 # otherlibdirs only features in the hash
352 foreach (keys %need_relocation) {
353 $relocations_in_common++ if $Common{$_};
355 if ($relocations_in_common) {
356 print CONFIG $relocation_code;
358 print CONFIG_HEAVY $relocation_code;
362 print CONFIG_HEAVY @non_v, "\n";
364 # copy config summary format from the myconfig.SH script
365 print CONFIG_HEAVY "our \$summary : unique = <<'!END!';\n";
366 open(MYCONFIG,"<myconfig.SH") || die "open myconfig.SH failed: $!";
367 1 while defined($_ = <MYCONFIG>) && !/^Summary of/;
368 do { print CONFIG_HEAVY $_ } until !defined($_ = <MYCONFIG>) || /^\s*$/;
371 # NB. as $summary is unique, we need to copy it in a lexical variable
372 # before expanding it, because may have been made readonly if a perl
373 # interpreter has been cloned.
375 print CONFIG_HEAVY "\n!END!\n", <<'EOT';
376 my $summary_expanded;
379 return $summary_expanded if $summary_expanded;
380 ($summary_expanded = $summary) =~ s{\$(\w+)}
381 { my $c = $Config::Config{$1}; defined($c) ? $c : 'undef' }ge;
389 print CONFIG_HEAVY join('', sort @v_others), "!END!\n";
391 # Only need the dynamic byteorder code in Config.pm if 'byteorder' is one of
393 if ($Common{byteorder}) {
394 print CONFIG $byteorder_code;
396 print CONFIG_HEAVY $byteorder_code;
399 if (@need_relocation) {
400 print CONFIG_HEAVY 'foreach my $what (qw(', join (' ', @need_relocation),
402 s/^($what=)(['"])(.*?)\2/$1 . $2 . relocate_inc($3) . $2/me;
405 # Currently it only makes sense to do the ... relocation on Unix, so there's
406 # no need to emulate the "which separator for this platform" logic in perl.c -
407 # ':' will always be applicable
408 if ($need_relocation{otherlibdirs}) {
409 print CONFIG_HEAVY << 'EOT';
410 s{^(otherlibdirs=)(['"])(.*?)\2}
411 {$1 . $2 . join ':', map {relocate_inc($_)} split ':', $3 . $2}me;
416 print CONFIG_HEAVY <<'EOT';
417 s/(byteorder=)(['"]).*?\2/$1$2$Config::byteorder$2/m;
419 my $config_sh_len = length $_;
421 our $Config_SH_expanded : unique = "\n$_" . << 'EOVIRTUAL';
424 foreach my $prefix (qw(ccflags ldflags)) {
425 my $value = fetch_string ({}, $prefix);
426 my $withlargefiles = fetch_string ({}, $prefix . "_uselargefiles");
427 if (defined $withlargefiles) {
428 $value =~ s/\Q$withlargefiles\E\b//;
429 print CONFIG_HEAVY "${prefix}_nolargefiles='$value'\n";
433 foreach my $prefix (qw(libs libswanted)) {
434 my $value = fetch_string ({}, $prefix);
435 my $withlf = fetch_string ({}, 'libswanted_uselargefiles');
436 next unless defined $withlf;
438 = split(' ', fetch_string ({}, 'libswanted_uselargefiles'));
441 @lflibswanted{@lflibswanted} = ();
442 if ($prefix eq 'libs') {
443 my @libs = grep { /^-l(.+)/ &&
444 not exists $lflibswanted{$1} }
445 split(' ', fetch_string ({}, 'libs'));
446 $value = join(' ', @libs);
448 my @libswanted = grep { not exists $lflibswanted{$_} }
449 split(' ', fetch_string ({}, 'libswanted'));
450 $value = join(' ', @libswanted);
453 print CONFIG_HEAVY "${prefix}_nolargefiles='$value'\n";
456 print CONFIG_HEAVY "EOVIRTUAL\n";
458 print CONFIG_HEAVY $fetch_string;
460 print CONFIG <<'ENDOFEND';
463 my($self, $key) = @_;
465 # check for cached value (which may be undef so we use exists not defined)
466 return $self->{$key} if exists $self->{$key};
468 return $self->fetch_string($key);
472 print CONFIG_HEAVY <<'ENDOFEND';
478 substr($Config_SH_expanded, 1, index($Config_SH_expanded, '=') - 1 );
483 if ($seen_quotes{'"'}) {
484 print CONFIG_HEAVY <<'ENDOFEND';
485 # Find out how the current key's quoted so we can skip to its end.
486 my $quote = substr($Config_SH_expanded,
487 index($Config_SH_expanded, "=", $prevpos)+1, 1);
488 my $pos = index($Config_SH_expanded, qq($quote\n), $prevpos) + 2;
491 # Just ' quotes, so it's much easier.
492 print CONFIG_HEAVY <<'ENDOFEND';
493 my $pos = index($Config_SH_expanded, qq('\n), $prevpos) + 2;
496 print CONFIG_HEAVY <<'ENDOFEND';
497 my $len = index($Config_SH_expanded, "=", $pos) - $pos;
499 $len > 0 ? substr($Config_SH_expanded, $pos, $len) : undef;
503 return 1 if exists($_[0]->{$_[1]});
505 return(index($Config_SH_expanded, "\n$_[1]='") != -1
507 if ($seen_quotes{'"'}) {
508 print CONFIG_HEAVY <<'ENDOFEND';
509 or index($Config_SH_expanded, "\n$_[1]=\"") != -1
512 print CONFIG_HEAVY <<'ENDOFEND';
516 sub STORE { die "\%Config::Config is read-only\n" }
522 substr $Config_SH_expanded, 1, $config_sh_len;
527 return map { chomp; $_ } grep eval{ /^(?:$re)=/ }, split /^/,
532 # implements -V:cfgvar option (see perlrun -V:)
534 # find optional leading, trailing colons; and query-spec
535 my ($notag,$qry,$lncont) = m/^(:)?(.*?)(:)?$/; # flags fore and aft,
536 # map colon-flags to print decorations
537 my $prfx = $notag ? '': "$qry="; # tag-prefix for print
538 my $lnend = $lncont ? ' ' : ";\n"; # line ending for print
540 # all config-vars are by definition \w only, any \W means regex
542 my @matches = config_re($qry);
543 print map "$_$lnend", @matches ? @matches : "$qry: not found" if !$notag;
544 print map { s/\w+=//; "$_$lnend" } @matches ? @matches : "$qry: not found" if $notag;
546 my $v = (exists $Config::Config{$qry}) ? $Config::Config{$qry}
548 $v = 'undef' unless defined $v;
549 print "${prfx}'${v}'$lnend";
554 # Called by the real AUTOLOAD
557 goto \&$Config::AUTOLOAD;
564 print CONFIG <<'ENDOFSET';
567 my ($value, $v) = $Config_SH_expanded =~ m/^used_aout='(.*)'\s*$/m;
568 for (split ' ', $value) {
569 ($v) = $Config_SH_expanded =~ m/^aout_$_='(.*)'\s*$/m;
570 $preconfig{$_} = $v eq 'undef' ? undef : $v;
573 $preconfig{d_fork} = undef unless $OS2::can_fork; # Some funny cases can't
574 sub TIEHASH { bless {%preconfig} }
576 # Extract the name of the DLL from the makefile to avoid duplication
577 my ($f) = grep -r, qw(GNUMakefile Makefile);
579 if (open my $fh, '<', $f) {
581 $dll = $1, last if /^PERL_DLL_BASE\s*=\s*(\S*)\s*$/;
584 print CONFIG <<ENDOFSET if $dll;
585 \$preconfig{dll_name} = '$dll';
588 print CONFIG <<'ENDOFSET';
595 foreach my $key (keys %Common) {
596 my $value = fetch_string ({}, $key);
597 # Is it safe on the LHS of => ?
598 my $qkey = $key =~ /^[A-Za-z_][A-Za-z0-9_]*$/ ? $key : "'$key'";
599 if (defined $value) {
600 # Quote things for a '' string
601 $value =~ s!\\!\\\\!g;
604 if ($key eq 'otherlibdirs') {
605 $value = "join (':', map {relocate_inc(\$_)} split (':', $value))";
606 } elsif ($need_relocation{$key}) {
607 $value = "relocate_inc($value)";
612 $Common{$key} = "$qkey => $value";
615 if ($Common{byteorder}) {
616 $Common{byteorder} = 'byteorder => $byteorder';
618 my $fast_config = join '', map { " $_,\n" } sort values %Common;
620 # Sanity check needed to stop an infite loop if Config_heavy.pl fails to define
621 # &launcher for some reason (eg it got truncated)
622 print CONFIG sprintf <<'ENDOFTIE', $fast_config;
627 require 'Config_heavy.pl';
628 goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
629 die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
632 # tie returns the object, so the value returned to require will be true.
633 tie %%Config, 'Config', {
638 open(CONFIG_POD, ">lib/Config.pod") or die "Can't open lib/Config.pod: $!";
639 print CONFIG_POD <<'ENDOFTAIL';
642 Config - access Perl configuration information
647 if ($Config{usethreads}) {
648 print "has thread support\n"
651 use Config qw(myconfig config_sh config_vars config_re);
659 config_vars(qw(osname archname));
664 The Config module contains all the information that was available to
665 the C<Configure> program at Perl build time (over 900 values).
667 Shell variables from the F<config.sh> file (written by Configure) are
668 stored in the readonly-variable C<%Config>, indexed by their names.
670 Values stored in config.sh as 'undef' are returned as undefined
671 values. The perl C<exists> function can be used to check if a
672 named variable exists.
678 Returns a textual summary of the major perl configuration values.
679 See also C<-V> in L<perlrun/Switches>.
683 Returns the entire perl configuration information in the form of the
684 original config.sh shell variable assignment script.
686 =item config_re($regex)
688 Like config_sh() but returns, as a list, only the config entries who's
689 names match the $regex.
691 =item config_vars(@names)
693 Prints to STDOUT the values of the named configuration variable. Each is
694 printed on a separate line in the form:
698 Names which are unknown are output as C<name='UNKNOWN';>.
699 See also C<-V:name> in L<perlrun/Switches>.
705 Here's a more sophisticated example of using %Config:
712 unless($Config{sig_name} && $Config{sig_num}) {
715 my @names = split ' ', $Config{sig_name};
716 @sig_num{@names} = split ' ', $Config{sig_num};
718 $sig_name[$sig_num{$_}] ||= $_;
722 print "signal #17 = $sig_name[17]\n";
723 if ($sig_num{ALRM}) {
724 print "SIGALRM is $sig_num{ALRM}\n";
729 Because this information is not stored within the perl executable
730 itself it is possible (but unlikely) that the information does not
731 relate to the actual perl binary which is being used to access it.
733 The Config module is installed into the architecture and version
734 specific library directory ($Config{installarchlib}) and it checks the
735 perl version number when loaded.
737 The values stored in config.sh may be either single-quoted or
738 double-quoted. Double-quoted strings are handy for those cases where you
739 need to include escape sequences in the strings. To avoid runtime variable
740 interpolation, any C<$> and C<@> characters are replaced by C<\$> and
741 C<\@>, respectively. This isn't foolproof, of course, so don't embed C<\$>
742 or C<\@> in double-quoted strings unless you're willing to deal with the
743 consequences. (The slashes will end up escaped and the C<$> or C<@> will
744 trigger variable interpolation)
748 Most C<Config> variables are determined by the C<Configure> script
749 on platforms supported by it (which is most UNIX platforms). Some
750 platforms have custom-made C<Config> variables, and may thus not have
751 some of the variables described below, or may have extraneous variables
752 specific to that particular port. See the port specific documentation
757 if ($Opts{glossary}) {
758 open(GLOS, "<$Glossary") or die "Can't open $Glossary: $!";
765 if (s/\A(\w*)\s+\(([\w.]+)\):\s*\n(\t?)/=item C<$1>\n\nFrom F<$2>:\n\n/m) {
766 my $c = substr $1, 0, 1;
767 unless ($seen{$c}++) {
768 print CONFIG_POD <<EOF if $text;
772 print CONFIG_POD <<EOF;
781 elsif (!$text || !/\A\t/) {
782 warn "Expected a Configure variable header",
783 ($text ? " or another paragraph of description" : () );
785 s/n't/n\00t/g; # leave can't, won't etc untouched
786 s/^\t\s+(.*)/\n$1/gm; # Indented lines ===> new paragraph
787 s/^(?<!\n\n)\t(.*)/$1/gm; # Not indented lines ===> text
788 s{([\'\"])(?=[^\'\"\s]*[./][^\'\"\s]*\1)([^\'\"\s]+)\1}(F<$2>)g; # '.o'
789 s{([\'\"])([^\'\"\s]+)\1}(C<$2>)g; # "date" command
790 s{\'([A-Za-z_\- *=/]+)\'}(C<$1>)g; # 'ln -s'
792 (?<! [\w./<\'\"] ) # Only standalone file names
793 (?! e \. g \. ) # Not e.g.
794 (?! \. \. \. ) # Not ...
796 (?! read/ ) # Not read/write
797 (?! etc\. ) # Not etc.
800 \$ ? # Allow leading $
801 [\w./]* [./] [\w./]* # Require . or / inside
803 (?<! \. (?= [\s)] ) ) # Do not include trailing dot
804 (?! [\w/] ) # Include all of it
806 (F<$1>)xg; # /usr/local
807 s/((?<=\s)~\w*)/F<$1>/g; # ~name
808 s/(?<![.<\'\"])\b([A-Z_]{2,})\b(?![\'\"])/C<$1>/g; # UNISTD
809 s/(?<![.<\'\"])\b(?!the\b)(\w+)\s+macro\b/C<$1> macro/g; # FILE_cnt macro
810 s/n[\0]t/n't/g; # undo can't, won't damage
813 if ($Opts{glossary}) {
814 <GLOS>; # Skip the "DO NOT EDIT"
815 <GLOS>; # Skip the preamble
822 print CONFIG_POD <<'ENDOFTAIL';
828 This module contains a good example of how to use tie to implement a
829 cache and an example of how to make a tied variable readonly to those
841 # Now create Cross.pm if needed
843 open CROSS, ">lib/Cross.pm" or die "Can not open >lib/Cross.pm: $!";
845 # typical invocation:
846 # perl -MCross Makefile.PL
847 # perl -MCross=wince -V:cc
851 my ($package,$platform) = @_;
852 unless (defined $platform) {
853 # if $platform is not specified, then use last one when
854 # 'configpm; was invoked with --cross option
855 $platform = '***replace-marker***';
857 @INC = map {/\blib\b/?(do{local $_=$_;s/\blib\b/xlib\/$platform/;$_},$_):($_)} @INC;
858 $::Cross::platform = $platform;
863 $cross =~ s/\*\*\*replace-marker\*\*\*/$Opts{cross}/g;
868 # Now do some simple tests on the Config.pm file we have created
870 unshift(@INC,'xlib/symbian') if $Opts{cross};
872 require $Config_heavy;
875 die "$0: $Config_PM not valid"
876 unless $Config{'PERL_CONFIG_SH'} eq 'true';
878 die "$0: error processing $Config_PM"
879 if defined($Config{'an impossible name'})
880 or $Config{'PERL_CONFIG_SH'} ne 'true' # test cache
883 die "$0: error processing $Config_PM"
884 if eval '$Config{"cc"} = 1'
885 or eval 'delete $Config{"cc"}'
890 # Popularity of various entries in %Config, based on a large build and test
891 # run of code in the Fotango build system:
909 inc_version_list: 783
933 installsiteman1dir: 489
934 installsiteman3dir: 489
935 installvendorman1dir: 489
936 installvendorman3dir: 489
945 installprefixexp: 336
948 installvendorarch: 336
949 installvendorbin: 336
950 installvendorlib: 336