From 8994dd1aca0ed9587cb687d3134efc8549745f86 Mon Sep 17 00:00:00 2001
From: Greg Price <price@mit.edu>
Date: Sun, 1 Feb 2009 01:25:35 -0500
Subject: [PATCH] import-trac: strip out ^M from newlines

---
 import-trac | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/import-trac b/import-trac
index 3ecfe35..aadee09 100755
--- a/import-trac
+++ b/import-trac
@@ -16,8 +16,10 @@ foreach $row (@$rows) {
   next if $row->{author} eq 'trac';
   print "Processing revision $row->{version} of $row->{name} by $row->{author}...";
 
+  ($text = $row->{text}) =~ s/\r\n/\n/g;
+
   $pid = open2(OUT, IN, qw(git hash-object -w --stdin));
-  print IN $row->{text};
+  print IN $text;
   close(IN);
   chomp($blob = <OUT>);
   waitpid $pid, 0;
-- 
2.45.0