diff options
| author | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
| commit | 3e3baf6d63945cb64e829d6e5c70a7d00f3d3d03 (patch) | |
| tree | 0143be655536dc428f4fa3cc7d01f6bcffe14c01 /win32/perlglob.c | |
| parent | 08aa1457cd52a368c210ab76a3da91cfadabea1a (diff) | |
| parent | 3458556dd685b1767b760a72bd2e9007b5c4575e (diff) | |
| download | perl-3e3baf6d63945cb64e829d6e5c70a7d00f3d3d03.tar.gz | |
[differences between cumulative patch application and perl5.004_01]perl-5.004_01
[editor's note: The changes between this and 5.004 were processed from
the m1t2 release, which was a bad idea as it was the _01 release which
had the final corrected attributions. The differences between the
various m*t* releases do that; I considered it most valuable just to
look at the _NN releases. Many patches have been separated out and/or
applied from the p5p archives nonetheless.]
Diffstat (limited to 'win32/perlglob.c')
| -rw-r--r-- | win32/perlglob.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/win32/perlglob.c b/win32/perlglob.c index 87e8e90cd4..b2fdca2f71 100644 --- a/win32/perlglob.c +++ b/win32/perlglob.c @@ -21,7 +21,6 @@ main(int argc, char *argv[]) BOOL downcase = TRUE; /* check out the file system characteristics */ - if (GetFullPathName(".", MAX_PATH, root, &dummy)) { if (dummy = strchr(root, '\\')) *++dummy = '\0'; @@ -31,7 +30,7 @@ main(int argc, char *argv[]) } } - _setmode(_fileno(stdout), _O_BINARY); + setmode(fileno(stdout), O_BINARY); for (i = 1; i < argc; i++) { len = strlen(argv[i]); if (downcase) |