This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove Win9x hangover from win32/config_sh.PL
authorSteve Hay <steve.m.hay@googlemail.com>
Wed, 6 Jun 2012 18:17:16 +0000 (19:17 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Wed, 6 Jun 2012 18:17:16 +0000 (19:17 +0100)
We no longer support Win9x so there is no need to undef d_flock and d_link
in that case.

win32/config_sh.PL

index ebea864..fb23ee7 100644 (file)
@@ -107,12 +107,6 @@ $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};
 
 $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
-unless (defined $ENV{SYSTEMROOT}) { # SystemRoot has been introduced by WinNT
-    $opt{d_flock} = 'undef';
-    $opt{d_link} = 'undef';
-}
-
 # change the lseeksize and lseektype from their canned default values (which
 # are set-up for a non-uselargefiles build) if we are building with
 # uselargefiles.
 # change the lseeksize and lseektype from their canned default values (which
 # are set-up for a non-uselargefiles build) if we are building with
 # uselargefiles.