change \r\n to \n if they occur

[migration-tools.git] / unicorn / unicorn_patrons_to_tsv.pl

diff --git a/unicorn/unicorn_patrons_to_tsv.pl b/unicorn/unicorn_patrons_to_tsv.pl
index 7c3ca59..18c5a9e 100755 (executable)
--- a/unicorn/unicorn_patrons_to_tsv.pl
+++ b/unicorn/unicorn_patrons_to_tsv.pl
@@ -13,7 +13,7 @@ my %unique_fields;
 
 # Load each record
 while (<>) {
-
+    s/\r\n/\n/g;
 # print STDERR "Loaded this line: " . $_;
 
        # Is this the start of a new record?