Change 11581 by gsar@moonru on 2001/08/05 15:00:26
flock() and link() are not available on Windows 9x
Affected files ...
... //depot/perl/win32/config_sh.PL#26 edit
Differences ...
==== //depot/perl/win32/config_sh.PL#26 (text) ====
Index: perl/win32/config_sh.PL
--- perl/win32/config_sh.PL.~1~ Sun Aug 5 09:15:05 2001
+++ perl/win32/config_sh.PL Sun Aug 5 09:15:05 2001
@@ -85,6 +85,12 @@
$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 @@
}
print;
}
-
End of Patch.
