diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-22 18:10:50 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-22 18:10:50 +0000 |
| commit | 161b471ac314d8d6343f9f351e5fb9ef816168a8 (patch) | |
| tree | c3a324553e0f560f723db6f25069f4eeca5f65eb /win32/perlglob.c | |
| parent | 2caa6ce99d8e3323a4caebe8d1c7473fc0b66544 (diff) | |
| download | perl-161b471ac314d8d6343f9f351e5fb9ef816168a8.tar.gz | |
ansiperl builds with Borland C++ again
p4raw-id: //depot/ansiperl@280
Diffstat (limited to 'win32/perlglob.c')
| -rw-r--r-- | win32/perlglob.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/win32/perlglob.c b/win32/perlglob.c index b2fdca2f71..be9d55052c 100644 --- a/win32/perlglob.c +++ b/win32/perlglob.c @@ -22,7 +22,8 @@ main(int argc, char *argv[]) /* check out the file system characteristics */ if (GetFullPathName(".", MAX_PATH, root, &dummy)) { - if (dummy = strchr(root, '\\')) + dummy = strchr(root,'\\'); + if (dummy) *++dummy = '\0'; if (GetVolumeInformation(root, volname, MAX_PATH, &serial, &maxname, &flags, 0, 0)) { @@ -40,3 +41,4 @@ main(int argc, char *argv[]) } return 0; } + |