X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fshell.t;h=5e056997481049bc9057c1db4164583c7a6053bd;hb=97ac61eac09ac2de078b0e495f5ed86a19aaa992;hp=5c8e12a6c66f98821e3253092a5b09fbc748d51c;hpb=3b7ffd316be9e66ac9ebef1d8ee23ecf1f5e46d6;p=p5sagit%2Flocal-lib.git

diff --git a/t/shell.t b/t/shell.t
index 5c8e12a..5e05699 100644
--- a/t/shell.t
+++ b/t/shell.t
@@ -38,16 +38,17 @@ for my $shell (
   },
   {
     name => 'csh',
+    opt => '-f',
   },
   {
     name => 'cmd',
-    opt => '/c',
+    opt => '/D /C',
     ext => 'bat',
     perl => qq{@"$^X"},
   },
   {
     name => 'powershell',
-    opt => '-ExecutionPolicy Unrestricted',
+    opt => '-NoProfile -ExecutionPolicy Unrestricted',
     ext => 'ps1',
     perl => qq{& '$^X'},
   },
@@ -93,9 +94,10 @@ sub call_ll {
 
   local $ENV{SHELL} = $info->{shell};
 
-  my $file = File::Temp->new('ll-test-script-XXXXX',
-    TMPDIR => 1,
-    SUFFIX => '.'.$info->{ext},
+  my $file = File::Temp->new(
+    TEMPLATE => 'll-test-script-XXXXX',
+    TMPDIR   => 1,
+    SUFFIX   => '.'.$info->{ext},
   );
 
   $file->print(scalar `"$^X" $extra_lib -Mlocal::lib$option` . "\n");