From 33041dbb87b0e7a4048ae3a395ee4a77146fd5f5 Mon Sep 17 00:00:00 2001
From: "H.Merijn Brand" <merijn@nb09.procura.nl>
Date: Thu, 9 Oct 2008 15:27:08 +0200
Subject: [PATCH] MSwin doesn't use plain \n

---
 ChangeLog      | 1 +
 t/30_DDump-s.t | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 9a83b98..6e287cc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2008-10-08 0.21 - H.Merijn Brand   <h.m.brand@xs4all.nl>
 
 	* Typo in pod (Joshua Juran)
+	* MSwin doesn't use plain \n
 
 2008-10-08 0.20 - H.Merijn Brand   <h.m.brand@xs4all.nl>
 
diff --git a/t/30_DDump-s.t b/t/30_DDump-s.t
index 2be6355..1d6bafa 100644
--- a/t/30_DDump-s.t
+++ b/t/30_DDump-s.t
@@ -36,6 +36,8 @@ foreach my $test (@tests) {
     SKIP: {
 	$in =~ m/20ac/ and $] < 5.008 and skip "No UTF8 in ancient perl", 1;
 
+	s/[\r\n]+/\n/g for $in, $out;	# MSwin--
+
 	eval "\$var = $in;";
 	my $dump = DDump ($var);
 	$dump =~ s/\b0x[0-9a-f]+\b/0x****/g;
-- 
2.11.4.GIT