diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2001-08-05 15:00:26 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2001-08-05 15:00:26 +0000 |
| commit | 108967c2780c6a80477cd84ad2874a41e5d02472 (patch) | |
| tree | f86c355c8c87287285f132d4ff73a28b6c78c785 /win32/config_sh.PL | |
| parent | 4de7e3a28691dec1434bfa3ef7e6568c966fecd5 (diff) | |
| download | perl-108967c2780c6a80477cd84ad2874a41e5d02472.tar.gz | |
flock() and link() are not available on Windows 9x
p4raw-id: //depot/perl@11581
Diffstat (limited to 'win32/config_sh.PL')
| -rw-r--r-- | win32/config_sh.PL | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/win32/config_sh.PL b/win32/config_sh.PL index 35bb6e26e3..151f1cd477 100644 --- a/win32/config_sh.PL +++ b/win32/config_sh.PL @@ -85,6 +85,12 @@ $opt{'usemymalloc'} = 'y' if $opt{'d_mymalloc'} eq 'define'; $opt{libpth} = mungepath($opt{libpth}) if exists $opt{libpth}; $opt{incpath} = mungepath($opt{incpath}) if exists $opt{incpath}; +# some functions are not available on Win9x +if (defined(&Win32::IsWin95) && Win32::IsWin95()) { + $opt{d_flock} = 'undef'; + $opt{d_link} = 'undef'; +} + while (<>) { s/~([\w_]+)~/$opt{$1}/g; if (/^([\w_]+)=(.*)$/) { @@ -100,4 +106,3 @@ while (<>) { } print; } - |