From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 1 Apr 2002 09:20:24 +0000 (+0000)
Subject: Be more explicit testing for \015 not \r
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=23f6d120c5cb627da2de901261af9eec365eca16;p=p5sagit%2Fp5-mst-13.2.git

Be more explicit testing for \015 not \r

p4raw-id: //depot/perlio@15653
---

diff --git a/t/io/crlf.t b/t/io/crlf.t
index 858df17..20d278f 100644
--- a/t/io/crlf.t
+++ b/t/io/crlf.t
@@ -20,9 +20,10 @@ if ($Config{useperlio}) {
  ok(print FOO 'a'.((('a' x 14).qq{\n}) x 2000) || close(FOO));
  ok(open(FOO,"<:crlf",$file));
  my $seen = 0;
+ my $cr = "\r";
  while (<FOO>)
   {
-   $seen++ if (/\r/);
+   $seen += tr/[\015]//;
   }
  is($seen,0);
  binmode(FOO);
@@ -30,7 +31,7 @@ if ($Config{useperlio}) {
  $seen = 0;
  while (<FOO>)
   {
-   $seen++ if (/\r/);
+   $seen += tr/[\015]//;
   }
  is($seen,2000);
  ok(close(FOO));