Change 16119: [PATCH] was: t/win32/system.t Borland too helpful

[Jarkko Hietaniemi]

Change 16119 by jhi@alpha on 2002/04/23 23:09:02

        Subject: [PATCH] was: t/win32/system.t Borland too helpful
        From: "Vadim Konovalov" <[EMAIL PROTECTED]>
        Date: Wed, 24 Apr 2002 01:51:43 +0400
        Message-ID: <006e01c1eb11$156d2390$695cc3d9@vad>

Affected files ...

.... //depot/perl/t/win32/system.t#3 edit

Differences ...

==== //depot/perl/t/win32/system.t#3 (text) ====
Index: perl/t/win32/system.t
--- perl/t/win32/system.t.~1~   Tue Apr 23 17:15:06 2002
+++ perl/t/win32/system.t       Tue Apr 23 17:15:06 2002
@@ -32,10 +32,28 @@
     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");
End of Patch.