was: t/win32/system.t Borland too helpful

Message-ID: <006e01c1eb11$156d2390$695cc3d9@vad>

p4raw-id: //depot/perl@16119

diff --git a/t/win32/system.t b/t/win32/system.t
index bd65412..5384d7c 100644 (file)
--- a/t/win32/system.t
+++ b/t/win32/system.t
@@ -32,10 +32,28 @@ open(my $F, ">$testdir/$exename.c")
     or die "Can't create $testdir/$exename.c: $!";
 print $F <<'EOT';
 #include <stdio.h>
+#ifdef __BORLANDC__
+#include <windows.h>
+#endif
 int
 main(int ac, char **av)
 {
     int i;
+#ifdef __BORLANDC__
+    char *h,*s = GetCommandLine();
+    int j=0;
+    av[0] = s;
+    if (s[0]=='"') {
+       for(;s[++j]!='"';)
+         ;
+       av[0]++;
+    }
+    else {
+       for(;s[++j]!=' ';)
+         ;
+    }
+    s[j]=0;
+#endif
     for (i = 0; i < ac; i++)
        printf("[%s]", av[i]);
     printf("\n");