fix $^N-related coredump

[p5sagit/p5-mst-13.2.git] / t / win32 / system.t

diff --git a/t/win32/system.t b/t/win32/system.t
index 5384d7c..b1906ce 100644 (file)
--- 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;