From: Vadim Konovalov <vkonovalov@lucent.com>
Date: Wed, 24 Apr 2002 01:51:43 +0000 (+0400)
Subject: was: t/win32/system.t Borland too helpful
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d22c057c1333a6b1f36ad68dc480f705854e96d9;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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");