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=38ad56f7ee4597ea9a297b01aae8f7a20e4b077b;hp=216426be0e9014cb38f4b3a76333430bdbc6535e;hb=6611a9dcfa568b663477a6411d9d9536906c8d87;hpb=8161520ffccf070de965b9d6baa3a20ef5a0d40e

diff --git a/lib/local/lib.pm b/lib/local/lib.pm
index 216426b..38ad56f 100644
--- a/lib/local/lib.pm
+++ b/lib/local/lib.pm
@@ -102,7 +102,6 @@ sub libs { $_[0]->{libs}   ||= [ \'PERL5LIB' ] }
 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};
@@ -364,7 +363,7 @@ sub environment_vars_string {
     }
     $out .= $self->$build_method($name, $value);
   }
-  my $wrap_method = 'wrap_' . $self->shelltype . '_output';
+  my $wrap_method = "wrap_${shelltype}_output";
   if ($self->can($wrap_method)) {
     return $self->$wrap_method($out);
   }