projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4de7e3a
)
flock() and link() are not available on Windows 9x
author
Gurusamy Sarathy
<gsar@cpan.org>
Sun, 5 Aug 2001 15:00:26 +0000
(15:00 +0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Sun, 5 Aug 2001 15:00:26 +0000
(15:00 +0000)
p4raw-id: //depot/perl@11581
win32/config_sh.PL
patch
|
blob
|
history
diff --git
a/win32/config_sh.PL
b/win32/config_sh.PL
index
35bb6e2
..
151f1cd
100644
(file)
--- 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;
}
-