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
330 push @need_relocation, $what if fetch_string({}, $what) =~ m!^\.\.\./!;
335 @need_relocation{@need_relocation} = @need_relocation;
337 # This can have .../ anywhere:
338 if (fetch_string({}, 'otherlibdirs') =~ m!\.\.\./!) {
339 $need_relocation{otherlibdirs} = 'otherlibdirs';
342 my $relocation_code = <<'EOT';
346 return $libdir unless $libdir =~ s!^\.\.\./!!;
348 if ($prefix =~ s!/[^/]*$!!) {
349 while ($libdir =~ m!^\.\./!) {
350 # Loop while $libdir starts "../" and $prefix still has a trailing
352 last unless $prefix =~ s!/([^/]+)$!!;
353 # but bail out if the directory we picked off the end of $prefix is .
355 if ($1 eq '.' or $1 eq '..') {
356 # Undo! This should be rare, hence code it this way rather than a
357 # check each time before the s!!! above.
358 $prefix = "$prefix/$1";
361 # Remove that leading ../ and loop again
362 substr ($libdir, 0, 3, '');
364 $libdir = "$prefix/$libdir";
370 if (%need_relocation) {
371 my $relocations_in_common;
372 # otherlibdirs only features in the hash
373 foreach (keys %need_relocation) {
374 $relocations_in_common++ if $Common{$_};
376 if ($relocations_in_common) {
377 print CONFIG $relocation_code;
379 print CONFIG_HEAVY $relocation_code;
383 print CONFIG_HEAVY @non_v, "\n";
385 # copy config summary format from the myconfig.SH script
386 print CONFIG_HEAVY "our \$summary = <<'!END!';\n";
387 open(MYCONFIG,"<myconfig.SH") || die "open myconfig.SH failed: $!";
388 1 while defined($_ = <MYCONFIG>) && !/^Summary of/;
389 do { print CONFIG_HEAVY $_ } until !defined($_ = <MYCONFIG>) || /^\s*$/;
392 print CONFIG_HEAVY "\n!END!\n", <<'EOT';
393 my $summary_expanded;
396 return $summary_expanded if $summary_expanded;
397 ($summary_expanded = $summary) =~ s{\$(\w+)}
398 { my $c = $Config::Config{$1}; defined($c) ? $c : 'undef' }ge;
406 print CONFIG_HEAVY join('', sort @v_others), "!END!\n";
408 # Only need the dynamic byteorder code in Config.pm if 'byteorder' is one of
410 if ($Common{byteorder}) {
411 print CONFIG $byteorder_code;
413 print CONFIG_HEAVY $byteorder_code;
416 if (@need_relocation) {
417 print CONFIG_HEAVY 'foreach my $what (qw(', join (' ', @need_relocation),
419 s/^($what=)(['"])(.*?)\2/$1 . $2 . relocate_inc($3) . $2/me;
422 # Currently it only makes sense to do the ... relocation on Unix, so there's
423 # no need to emulate the "which separator for this platform" logic in perl.c -
424 # ':' will always be applicable
425 if ($need_relocation{otherlibdirs}) {
426 print CONFIG_HEAVY << 'EOT';
427 s{^(otherlibdirs=)(['"])(.*?)\2}
428 {$1 . $2 . join ':', map {relocate_inc($_)} split ':', $3 . $2}me;
433 print CONFIG_HEAVY <<'EOT';
434 s/(byteorder=)(['"]).*?\2/$1$2$Config::byteorder$2/m;
436 my $config_sh_len = length $_;
438 our $Config_SH_expanded = "\n$_" . << 'EOVIRTUAL';
441 foreach my $prefix (qw(ccflags ldflags)) {
442 my $value = fetch_string ({}, $prefix);
443 my $withlargefiles = fetch_string ({}, $prefix . "_uselargefiles");
444 if (defined $withlargefiles) {
445 $value =~ s/\Q$withlargefiles\E\b//;
446 print CONFIG_HEAVY "${prefix}_nolargefiles='$value'\n";
450 foreach my $prefix (qw(libs libswanted)) {
451 my $value = fetch_string ({}, $prefix);
452 my $withlf = fetch_string ({}, 'libswanted_uselargefiles');
453 next unless defined $withlf;
455 = split(' ', fetch_string ({}, 'libswanted_uselargefiles'));
458 @lflibswanted{@lflibswanted} = ();
459 if ($prefix eq 'libs') {
460 my @libs = grep { /^-l(.+)/ &&
461 not exists $lflibswanted{$1} }
462 split(' ', fetch_string ({}, 'libs'));
463 $value = join(' ', @libs);
465 my @libswanted = grep { not exists $lflibswanted{$_} }
466 split(' ', fetch_string ({}, 'libswanted'));
467 $value = join(' ', @libswanted);
470 print CONFIG_HEAVY "${prefix}_nolargefiles='$value'\n";
473 print CONFIG_HEAVY "EOVIRTUAL\n";
475 print CONFIG_HEAVY $fetch_string;
477 print CONFIG <<'ENDOFEND';
480 my($self, $key) = @_;
482 # check for cached value (which may be undef so we use exists not defined)
483 return $self->{$key} if exists $self->{$key};
485 return $self->fetch_string($key);
489 print CONFIG_HEAVY <<'ENDOFEND';
495 substr($Config_SH_expanded, 1, index($Config_SH_expanded, '=') - 1 );
500 if ($seen_quotes{'"'}) {
501 print CONFIG_HEAVY <<'ENDOFEND';
502 # Find out how the current key's quoted so we can skip to its end.
503 my $quote = substr($Config_SH_expanded,
504 index($Config_SH_expanded, "=", $prevpos)+1, 1);
505 my $pos = index($Config_SH_expanded, qq($quote\n), $prevpos) + 2;
508 # Just ' quotes, so it's much easier.
509 print CONFIG_HEAVY <<'ENDOFEND';
510 my $pos = index($Config_SH_expanded, qq('\n), $prevpos) + 2;
513 print CONFIG_HEAVY <<'ENDOFEND';
514 my $len = index($Config_SH_expanded, "=", $pos) - $pos;
516 $len > 0 ? substr($Config_SH_expanded, $pos, $len) : undef;
520 return 1 if exists($_[0]->{$_[1]});
522 return(index($Config_SH_expanded, "\n$_[1]='") != -1
524 if ($seen_quotes{'"'}) {
525 print CONFIG_HEAVY <<'ENDOFEND';
526 or index($Config_SH_expanded, "\n$_[1]=\"") != -1
529 print CONFIG_HEAVY <<'ENDOFEND';
533 sub STORE { die "\%Config::Config is read-only\n" }
539 substr $Config_SH_expanded, 1, $config_sh_len;
544 return map { chomp; $_ } grep eval{ /^(?:$re)=/ }, split /^/,
549 # implements -V:cfgvar option (see perlrun -V:)
551 # find optional leading, trailing colons; and query-spec
552 my ($notag,$qry,$lncont) = m/^(:)?(.*?)(:)?$/; # flags fore and aft,
553 # map colon-flags to print decorations
554 my $prfx = $notag ? '': "$qry="; # tag-prefix for print
555 my $lnend = $lncont ? ' ' : ";\n"; # line ending for print
557 # all config-vars are by definition \w only, any \W means regex
559 my @matches = config_re($qry);
560 print map "$_$lnend", @matches ? @matches : "$qry: not found" if !$notag;
561 print map { s/\w+=//; "$_$lnend" } @matches ? @matches : "$qry: not found" if $notag;
563 my $v = (exists $Config::Config{$qry}) ? $Config::Config{$qry}
565 $v = 'undef' unless defined $v;
566 print "${prfx}'${v}'$lnend";
571 # Called by the real AUTOLOAD
574 goto \&$Config::AUTOLOAD;
581 print CONFIG <<'ENDOFSET';
584 my ($value, $v) = $Config_SH_expanded =~ m/^used_aout='(.*)'\s*$/m;
585 for (split ' ', $value) {
586 ($v) = $Config_SH_expanded =~ m/^aout_$_='(.*)'\s*$/m;
587 $preconfig{$_} = $v eq 'undef' ? undef : $v;
590 $preconfig{d_fork} = undef unless $OS2::can_fork; # Some funny cases can't
591 sub TIEHASH { bless {%preconfig} }
593 # Extract the name of the DLL from the makefile to avoid duplication
594 my ($f) = grep -r, qw(GNUMakefile Makefile);
596 if (open my $fh, '<', $f) {
598 $dll = $1, last if /^PERL_DLL_BASE\s*=\s*(\S*)\s*$/;
601 print CONFIG <<ENDOFSET if $dll;
602 \$preconfig{dll_name} = '$dll';
605 print CONFIG <<'ENDOFSET';
612 foreach my $key (keys %Common) {
613 my $value = fetch_string ({}, $key);
614 # Is it safe on the LHS of => ?
615 my $qkey = $key =~ /^[A-Za-z_][A-Za-z0-9_]*$/ ? $key : "'$key'";
616 if (defined $value) {
617 # Quote things for a '' string
618 $value =~ s!\\!\\\\!g;
621 if ($key eq 'otherlibdirs') {
622 $value = "join (':', map {relocate_inc(\$_)} split (':', $value))";
623 } elsif ($need_relocation{$key}) {
624 $value = "relocate_inc($value)";
629 $Common{$key} = "$qkey => $value";
632 if ($Common{byteorder}) {
633 $Common{byteorder} = 'byteorder => $byteorder';
635 my $fast_config = join '', map { " $_,\n" } sort values %Common;
637 # Sanity check needed to stop an infite loop if Config_heavy.pl fails to define
638 # &launcher for some reason (eg it got truncated)
639 print CONFIG sprintf <<'ENDOFTIE', $fast_config;
644 require 'Config_heavy.pl';
645 goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
646 die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
649 # tie returns the object, so the value returned to require will be true.
650 tie %%Config, 'Config', {
655 open(CONFIG_POD, ">lib/Config.pod") or die "Can't open lib/Config.pod: $!";
656 print CONFIG_POD <<'ENDOFTAIL';
659 Config - access Perl configuration information
664 if ($Config{usethreads}) {
665 print "has thread support\n"
668 use Config qw(myconfig config_sh config_vars config_re);
676 config_vars(qw(osname archname));
681 The Config module contains all the information that was available to
682 the C<Configure> program at Perl build time (over 900 values).
684 Shell variables from the F<config.sh> file (written by Configure) are
685 stored in the readonly-variable C<%Config>, indexed by their names.
687 Values stored in config.sh as 'undef' are returned as undefined
688 values. The perl C<exists> function can be used to check if a
689 named variable exists.
695 Returns a textual summary of the major perl configuration values.
696 See also C<-V> in L<perlrun/Switches>.
700 Returns the entire perl configuration information in the form of the
701 original config.sh shell variable assignment script.
703 =item config_re($regex)
705 Like config_sh() but returns, as a list, only the config entries who's
706 names match the $regex.
708 =item config_vars(@names)
710 Prints to STDOUT the values of the named configuration variable. Each is
711 printed on a separate line in the form:
715 Names which are unknown are output as C<name='UNKNOWN';>.
716 See also C<-V:name> in L<perlrun/Switches>.
722 Here's a more sophisticated example of using %Config:
729 unless($Config{sig_name} && $Config{sig_num}) {
732 my @names = split ' ', $Config{sig_name};
733 @sig_num{@names} = split ' ', $Config{sig_num};
735 $sig_name[$sig_num{$_}] ||= $_;
739 print "signal #17 = $sig_name[17]\n";
740 if ($sig_num{ALRM}) {
741 print "SIGALRM is $sig_num{ALRM}\n";
746 Because this information is not stored within the perl executable
747 itself it is possible (but unlikely) that the information does not
748 relate to the actual perl binary which is being used to access it.
750 The Config module is installed into the architecture and version
751 specific library directory ($Config{installarchlib}) and it checks the
752 perl version number when loaded.
754 The values stored in config.sh may be either single-quoted or
755 double-quoted. Double-quoted strings are handy for those cases where you
756 need to include escape sequences in the strings. To avoid runtime variable
757 interpolation, any C<$> and C<@> characters are replaced by C<\$> and
758 C<\@>, respectively. This isn't foolproof, of course, so don't embed C<\$>
759 or C<\@> in double-quoted strings unless you're willing to deal with the
760 consequences. (The slashes will end up escaped and the C<$> or C<@> will
761 trigger variable interpolation)
765 Most C<Config> variables are determined by the C<Configure> script
766 on platforms supported by it (which is most UNIX platforms). Some
767 platforms have custom-made C<Config> variables, and may thus not have
768 some of the variables described below, or may have extraneous variables
769 specific to that particular port. See the port specific documentation
774 if ($Opts{glossary}) {
775 open(GLOS, "<$Glossary") or die "Can't open $Glossary: $!";
782 if (s/\A(\w*)\s+\(([\w.]+)\):\s*\n(\t?)/=item C<$1>\n\nFrom F<$2>:\n\n/m) {
783 my $c = substr $1, 0, 1;
784 unless ($seen{$c}++) {
785 print CONFIG_POD <<EOF if $text;
789 print CONFIG_POD <<EOF;
798 elsif (!$text || !/\A\t/) {
799 warn "Expected a Configure variable header",
800 ($text ? " or another paragraph of description" : () );
802 s/n't/n\00t/g; # leave can't, won't etc untouched
803 s/^\t\s+(.*)/\n$1/gm; # Indented lines ===> new paragraph
804 s/^(?<!\n\n)\t(.*)/$1/gm; # Not indented lines ===> text
805 s{([\'\"])(?=[^\'\"\s]*[./][^\'\"\s]*\1)([^\'\"\s]+)\1}(F<$2>)g; # '.o'
806 s{([\'\"])([^\'\"\s]+)\1}(C<$2>)g; # "date" command
807 s{\'([A-Za-z_\- *=/]+)\'}(C<$1>)g; # 'ln -s'
809 (?<! [\w./<\'\"] ) # Only standalone file names
810 (?! e \. g \. ) # Not e.g.
811 (?! \. \. \. ) # Not ...
813 (?! read/ ) # Not read/write
814 (?! etc\. ) # Not etc.
817 \$ ? # Allow leading $
818 [\w./]* [./] [\w./]* # Require . or / inside
820 (?<! \. (?= [\s)] ) ) # Do not include trailing dot
821 (?! [\w/] ) # Include all of it
823 (F<$1>)xg; # /usr/local
824 s/((?<=\s)~\w*)/F<$1>/g; # ~name
825 s/(?<![.<\'\"])\b([A-Z_]{2,})\b(?![\'\"])/C<$1>/g; # UNISTD
826 s/(?<![.<\'\"])\b(?!the\b)(\w+)\s+macro\b/C<$1> macro/g; # FILE_cnt macro
827 s/n[\0]t/n't/g; # undo can't, won't damage
830 if ($Opts{glossary}) {
831 <GLOS>; # Skip the "DO NOT EDIT"
832 <GLOS>; # Skip the preamble
839 print CONFIG_POD <<'ENDOFTAIL';
845 This module contains a good example of how to use tie to implement a
846 cache and an example of how to make a tied variable readonly to those
858 # Now create Cross.pm if needed
860 open CROSS, ">lib/Cross.pm" or die "Can not open >lib/Cross.pm: $!";
862 # typical invocation:
863 # perl -MCross Makefile.PL
864 # perl -MCross=wince -V:cc
868 my ($package,$platform) = @_;
869 unless (defined $platform) {
870 # if $platform is not specified, then use last one when
871 # 'configpm; was invoked with --cross option
872 $platform = '***replace-marker***';
874 @INC = map {/\blib\b/?(do{local $_=$_;s/\blib\b/xlib\/$platform/;$_},$_):($_)} @INC;
875 $::Cross::platform = $platform;
880 $cross =~ s/\*\*\*replace-marker\*\*\*/$Opts{cross}/g;
883 unshift(@INC,"xlib/$Opts{cross}");
886 # Now do some simple tests on the Config.pm file we have created
888 unshift(@INC,'xlib/symbian') if $Opts{cross};
890 require $Config_heavy;
893 die "$0: $Config_PM not valid"
894 unless $Config{'PERL_CONFIG_SH'} eq 'true';
896 die "$0: error processing $Config_PM"
897 if defined($Config{'an impossible name'})
898 or $Config{'PERL_CONFIG_SH'} ne 'true' # test cache
901 die "$0: error processing $Config_PM"
902 if eval '$Config{"cc"} = 1'
903 or eval 'delete $Config{"cc"}'
908 # Popularity of various entries in %Config, based on a large build and test
909 # run of code in the Fotango build system:
927 inc_version_list: 783
951 installsiteman1dir: 489
952 installsiteman3dir: 489
953 installvendorman1dir: 489
954 installvendorman3dir: 489
963 installprefixexp: 336
966 installvendorarch: 336
967 installvendorbin: 336
968 installvendorlib: 336