develooper Front page | perl.perl5.porters | Postings from May 2003

[PATCH] t/io/layers.t, Cygwin != DOSISH

From:
Gerrit P. Haase
Date:
May 31, 2003 04:53
Subject:
[PATCH] t/io/layers.t, Cygwin != DOSISH
Message ID:
11859733881.20030531135749@familiehaase.de
Hallo perl5-porters,

Cygwin is not DOSISH...

$ diff -ur t/io/layers.t~ t/io/layers.t
--- t/io/layers.t~      2003-05-30 19:03:04.000000000 +0200
+++ t/io/layers.t       2003-05-30 19:02:32.000000000 +0200
@@ -29,7 +29,7 @@
 
 use Config;
 
-my $DOSISH    = $^O =~ /^(?:MSWin32|cygwin|os2|dos|NetWare|mint)$/ ? 1 : 0;
+my $DOSISH    = $^O =~ /^(?:MSWin32|os2|dos|NetWare|mint)$/ ? 1 : 0;
    $DOSISH    = 1 if !$DOSISH and $^O =~ /^uwin/;
 my $NONSTDIO  = exists $ENV{PERLIO} && $ENV{PERLIO} ne 'stdio'     ? 1 : 0;
 my $FASTSTDIO = $Config{d_faststdio} && $Config{usefaststdio}      ? 1 : 0;

  
#Gerrit
-- 
=^..^=




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About