X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fwin32%2Fsystem.t;h=b1906ce73abb62d8dee977677eac8653619b162a;hb=2d862febb32638bf1f7663134644cf7e37f284ad;hp=5384d7c2792560bb8f07b2a8eec284593f62dd63;hpb=d22c057c1333a6b1f36ad68dc480f705854e96d9;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/win32/system.t b/t/win32/system.t
index 5384d7c..b1906ce 100644
--- a/t/win32/system.t
+++ b/t/win32/system.t
@@ -40,7 +40,7 @@ main(int ac, char **av)
 {
     int i;
 #ifdef __BORLANDC__
-    char *h,*s = GetCommandLine();
+    char *s = GetCommandLine();
     int j=0;
     av[0] = s;
     if (s[0]=='"') {
@@ -96,7 +96,7 @@ chdir($testdir);
 END {
     chdir($cwd) && rmtree("$cwd/$testdir") if -d "$cwd/$testdir";
 }
-if (open(my $EIN, "$cwd/op/${exename}_exe.uu")) {
+if (open(my $EIN, "$cwd/win32/${exename}_exe.uu")) {
     print "# Unpacking $exename.exe\n";
     my $e;
     {
@@ -142,8 +142,8 @@ unless (-x "$testdir/$exename.exe") {
     exit(0);
 }
 
-open my $T, "$^X -I../lib -w op/system_tests |"
-    or die "Can't spawn op/system_tests: $!";
+open my $T, "$^X -I../lib -w win32/system_tests |"
+    or die "Can't spawn win32/system_tests: $!";
 my $expect;
 my $comment = "";
 my $test = 0;