diff options
| author | Vadim Konovalov <vkonovalov@lucent.com> | 2002-04-24 05:51:43 +0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-23 23:09:02 +0000 |
| commit | d22c057c1333a6b1f36ad68dc480f705854e96d9 (patch) | |
| tree | 8fb324106d4065ceb30137207f08a6c08d6e0484 /t/win32 | |
| parent | 887ef7ed525c34ffc3e744dad908d47e4dcb4c10 (diff) | |
| download | perl-d22c057c1333a6b1f36ad68dc480f705854e96d9.tar.gz | |
was: t/win32/system.t Borland too helpful
Message-ID: <006e01c1eb11$156d2390$695cc3d9@vad>
p4raw-id: //depot/perl@16119
Diffstat (limited to 't/win32')
| -rw-r--r-- | t/win32/system.t | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/t/win32/system.t b/t/win32/system.t index bd65412564..5384d7c279 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"); |