split lines on CR LF
authorDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 12 May 2010 19:49:26 +0000 (21:49 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 12 May 2010 19:49:26 +0000 (21:49 +0200)
lib/MojoFacets/Data.pm

index 2cd2d5a..8b6d768 100644 (file)
@@ -51,7 +51,7 @@ sub load {
        if ( $path =~ m/\.js/ ) {
                $data = from_json $data;
        } elsif ( $path =~ m/\.txt/ ) {
-               my @lines = split(/\n/, $data);
+               my @lines = split(/\r?\n/, $data);
                $data = { items => [] };
 
                my @header = split(/\|/, shift @lines);