X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Flocal%2Flib.pm;h=87d1869037e6122e4ec1f23428d903fbf935547b;hb=eebbfedd1d617aef1c813141f3c0c40aeb9665eb;hp=8f9b8d774c81d88149a19b84b957cfb242929f1b;hpb=5a63c13ec3e934eb5998ebff00e0651d85e08801;p=p5sagit%2Flocal-lib.git diff --git a/lib/local/lib.pm b/lib/local/lib.pm index 8f9b8d7..87d1869 100644 --- a/lib/local/lib.pm +++ b/lib/local/lib.pm @@ -11,7 +11,7 @@ use File::Path (); use Carp (); use Config; -our $VERSION = '1.008001'; # 1.8.1 +our $VERSION = '1.008004'; # 1.8.4 our @KNOWN_FLAGS = qw(--self-contained --deactivate --deactivate-all); @@ -207,6 +207,8 @@ sub setup_local_lib_for { my $interpolate = LITERAL_ENV; my @active_lls = $class->active_paths; + $path = $class->ensure_dir_structure_for($path); + if (! $deactivating) { if (@active_lls && $active_lls[-1] eq $path) { exit 0 if $0 eq '-'; @@ -221,8 +223,6 @@ sub setup_local_lib_for { } } - $path = $class->ensure_dir_structure_for($path); - if ($0 eq '-') { $class->print_environment_vars_for($path, $deactivating, $interpolate); exit 0;