From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 16 May 2002 12:58:05 +0000 (+0000)
Subject: DJGPP doesn't have \r\n delimited files (it has \r).
X-Git-Tag: upstream/5.16.3~26434
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4984151677c7ba5b0b9f815bc977c0d752cfc430;p=platform%2Fupstream%2Fperl.git

DJGPP doesn't have \r\n delimited files (it has \r).

p4raw-id: //depot/perl@16622
---

diff --git a/lib/Tie/File/t/21_win32.t b/lib/Tie/File/t/21_win32.t
index d06854441b..80d795a5d0 100644
--- a/lib/Tie/File/t/21_win32.t
+++ b/lib/Tie/File/t/21_win32.t
@@ -9,7 +9,7 @@
 
 my $file = "tf$$.txt";
 
-unless ($^O =~ /^(MSWin32|dos)$/) {
+unless ($^O =~ /^(MSWin32)$/) {
   print "1..0\n";
   exit;
 }