X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2Flocal-lib.git;a=blobdiff_plain;f=lib%2Flocal%2Flib.pm;h=f5e47787e4d31b5b32722c05a8b106263b3a2355;hp=d65df50c07d6fc5451deae0c5911f65f04679ffa;hb=b209481c24d95e8751eed4b50ec312fc894e1fa8;hpb=fc5f07c3c4e0726a494fc6c6199a627bf43b8dfb

diff --git a/lib/local/lib.pm b/lib/local/lib.pm
index d65df50..f5e4778 100644
--- a/lib/local/lib.pm
+++ b/lib/local/lib.pm
@@ -227,6 +227,9 @@ sub activate {
   $self->ensure_dir_structure_for($path)
     unless $self->no_create;
 
+  $path = ( Win32::GetShortPathName($path) || $path )
+    if $^O eq 'MSWin32';
+
   my @active_lls = $self->active_paths;
 
   if (grep { $_ eq $path } @active_lls) {
@@ -416,9 +419,6 @@ sub resolve_path {
     resolve_empty_path
   )}($path);
 
-  $path = Win32::GetShortPathName($path)
-    if $^O eq 'MSWin32';
-
   $path;
 }