in reply to installing perl 5.12.3
The output looks like#!/usr/bin/perl -- use strict; use warnings; use Config; Main( @ARGV ); exit( 0 ); sub Main { my $sep = $Config{path_sep}; my $pat = 'export PATH=%s$PATH'; $pat = 'set PATH=%s%%PATH%%' if $sep eq ';' ; printf "$pat\n", join $sep, ( uniq( grep length, grep defined, map { $Config{$_} } qw' installsitebin installvendorbin installbin ' ), ), ''; } sub uniq (@) { my %seen = (); grep { not $seen{$_}++ } @_; } __END__
orexport PATH=/usr/bin:$PATH
set PATH=c:\perl\5.12.2\bin\MSWin32-x86-multi-thread;c:\perl\site\5.12 +.2\bin;c:\perl\5.12.2\bin;%PATH%
$ perl -V:installsitebin -V:installvendorbin -V:installbin -V:insta +llsitescript -V:installvendorscript -V:installscript installsitebin='c:\perl\5.12.2\bin\MSWin32-x86-multi-thread'; installvendorbin=''; installbin='c:\perl\5.12.2\bin\MSWin32-x86-multi-thread'; installsitescript='c:\perl\site\5.12.2\bin'; installvendorscript=''; installscript='c:\perl\5.12.2\bin'; $ perl -V:installsitebin -V:installvendorbin -V:installbin -V:insta +llsitescript -V:installvendorscript -V:installscript installsitebin='/usr/bin'; installvendorbin='/usr/bin'; installbin='/usr/bin'; installsitescript='UNKNOWN'; installvendorscript='UNKNOWN'; installscript='/usr/bin';
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: installing perl 5.12.3
by rob171171 (Acolyte) on Apr 21, 2011 at 09:51 UTC | |
by Anonymous Monk on Apr 21, 2011 at 09:55 UTC | |
Re^2: installing perl 5.12.3
by Anonymous Monk on Apr 21, 2011 at 09:53 UTC | |
by rob171171 (Acolyte) on Apr 21, 2011 at 10:07 UTC | |
by rob171171 (Acolyte) on Apr 21, 2011 at 10:39 UTC | |
by rob171171 (Acolyte) on Apr 21, 2011 at 10:29 UTC | |
by rob171171 (Acolyte) on Apr 21, 2011 at 10:17 UTC | |
by Anonymous Monk on Apr 21, 2011 at 16:35 UTC |