diff options
| author | Douglas Lankshear <doug@lankshear.net> | 1998-07-21 04:08:00 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-22 07:36:38 +0000 |
| commit | 7a5f8e8207845ff5a07842e34a6849920492a274 (patch) | |
| tree | 832a1462a5d4325984a2ce8031730b0b88a12f6e /win32 | |
| parent | b7aad4feeb4ebd759b54e75dd2786128ab647f94 (diff) | |
| download | perl-7a5f8e8207845ff5a07842e34a6849920492a274.tar.gz | |
win32 tweaks: disable XSLOCKS in perl.c, correct typo, search
the registry for anything that begins with "PERL", not "PERL5"
Message-Id: <000601bdb4d2$7ee74720$a32fa8c0@tau.Active>
p4raw-id: //depot/perl@1629
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/perlhost.h | 2 | ||||
| -rw-r--r-- | win32/win32.c | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index 729dd57670..e2d8ca70cd 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -661,7 +661,7 @@ public: }; virtual int GetBufsiz(PerlIO* pf, int &err) { -#ifdef FILE_bufsize +#ifdef FILE_bufsiz FILE *f = (FILE*)pf; return FILE_bufsiz(f); #else diff --git a/win32/win32.c b/win32/win32.c index dd9fa696b9..970fc3f365 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -942,13 +942,13 @@ win32_getenv(const char *name) } else { - /* allow any environment variables that begin with 'PERL5' + /* allow any environment variables that begin with 'PERL' to be stored in the registry */ if(curitem != NULL) *curitem = '\0'; - if (strncmp(name, "PERL5", 5) == 0) { + if (strncmp(name, "PERL", 4) == 0) { if (curitem != NULL) { Safefree(curitem); curitem = NULL; |