From 3567b844ca1fd7bec62801f8758545f7bd5cbaae Mon Sep 17 00:00:00 2001
From: Kārlis Gaņģis <Knagis@users.noreply.github.com>
Date: Wed, 10 Sep 2014 00:11:35 +0300
Subject: Moved removal of `\r` into `tidy()`

---
 runtests.pl | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'runtests.pl')

diff --git a/runtests.pl b/runtests.pl
index d847140..f3e91ca 100644
--- a/runtests.pl
+++ b/runtests.pl
@@ -38,7 +38,9 @@ sub tidy
     } elsif (/<\/pre/) {
       $inpre = 0;
     }
-    if ($inpre) {
+    # remove \r to allow mixing linux/windows newlines
+	  s/\r//;
+	  if ($inpre) {
       print $outfh $_;
     } else {
       # remove leading spaces
@@ -79,11 +81,7 @@ sub dotest
   $html   = &tidy($html);
   $actual = &tidy($actual);
   $actual =~ s/\&#39;/'/;
-  
-  # remove \r to allow mixing of linux/windows newlines
-  $actual =~ s/\r//g;
-  $html =~ s/\r//g;
-  
+
   if ($actual eq $html) {
     print colored("✓", "green");
     return 1;
-- 
cgit v1.2.3