use File::Spec ();
use Config;
-our $VERSION = '2.000003'; # 2.0.3
+our $VERSION = '2.000004'; # 2.0.4
$VERSION = eval $VERSION;
sub import {
my $value = $class->_interpolate($args, '$env:%s', '"', '`%s');
if (!$value) {
- return qq{Remove-Item Env:\\$name;\n};
+ return qq{Remove-Item -ErrorAction 0 Env:\\$name;\n};
}
my $maybe_path_sep = qq{\$(if("\$env:$name"-eq""){""}else{"$_path_sep"})};
for ($shellbin) {
return
- /csh/ ? 'csh'
- : /command\.com/i ? 'cmd'
- : /cmd\.exe/i ? 'cmd'
- : /4nt\.exe/i ? 'cmd'
- : /powershell\.exe/i ? 'powershell'
- : 'bourne';
+ /csh$/ ? 'csh'
+ : /command(?:\.com)?$/i ? 'cmd'
+ : /cmd(?:\.exe)?$/i ? 'cmd'
+ : /4nt(?:\.exe)?$/i ? 'cmd'
+ : /powershell(?:\.exe)?$/i ? 'powershell'
+ : 'bourne';
}
}