From: Graham Knop <haarg@haarg.org>
Date: Sat, 2 Nov 2013 18:45:33 +0000 (-0400)
Subject: add --no-create option
X-Git-Tag: v2.000_000~40
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=80816e53fd05ed5445260640f717ad9ce295f4e6;p=p5sagit%2Flocal-lib.git

add --no-create option
---

diff --git a/lib/local/lib.pm b/lib/local/lib.pm
index 9abbadf..edd50fa 100644
--- a/lib/local/lib.pm
+++ b/lib/local/lib.pm
@@ -45,6 +45,9 @@ DEATH
       my $shell = defined $1 ? $1 : shift @args;
       $opts{shelltype} = $shell;
     }
+    elsif ( $arg eq '--no-create' ) {
+      $opts{no_create} = 1;
+    }
     elsif ( $arg =~ /^--/ ) {
       die "Unknown import argument: $arg";
     }
@@ -88,6 +91,7 @@ sub bins { $_[0]->{bins}   ||= [ \'PATH' ] }
 sub roots { $_[0]->{roots} ||= [ \'PERL_LOCAL_LIB_ROOT' ] }
 sub extra { $_[0]->{extra} ||= {} }
 sub shelltype { $_[0]->{shelltype} ||= $_[0]->guess_shelltype }
+sub no_create { $_[0]->{no_create} }
 
 my $_archname = $Config{archname};
 my $_version  = $Config{version};
@@ -220,7 +224,8 @@ sub activate {
   my ($self, $path) = @_;
   $self = $self->new unless ref $self;
   $path = $self->resolve_path($path);
-  $self->ensure_dir_structure_for($path);
+  $self->ensure_dir_structure_for($path)
+    unless $self->no_create;
 
   my @active_lls = $self->active_paths;
 
@@ -802,6 +807,11 @@ Specify the shell type to use for output.  By default, the shell will be
 detected based on the environment.  Should be one of: C<bourne>, C<csh>,
 C<cmd>, or C<powershell>.
 
+=head2 --no-create
+
+Prevents C<local::lib> from creating directories when activating dirs.  This is
+likely to cause issues on Win32 systems.
+
 =head1 METHODS
 
 =head2 ensure_dir_structure_for