fix EOL processing

pmqs · Apr 19, 2022 · fb7cdf3 · fb7cdf3
1 parent 85eac60
commit fb7cdf3
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/t/002-main.t b/t/002-main.t
@@ -141,16 +141,16 @@ sub readFile
 {
     my $f = shift ;
 
-    my @strings ;
+    open (F, "<$f")
+        or die "Cannot open $f: $!\n" ;
 
-    {
-        open (F, "<$f")
-            or die "Cannot open $f: $!\n" ;
-        binmode F;
-        @strings = <F> ;
-        close F ;
-    }
+    binmode F;
+    local $/;
+    my $data = <F> ;
+
+    # normalise EOL
+    $data =~ s/\r\n/\n/g;
+    close F ;
 
-    return @strings if wantarray ;
-    return join "", @strings ;
+    return $data;
 }