diff options
author | Kan Fushihara <kan.fushihara@gmail.com> | 2013-08-30 11:54:37 +0900 |
---|---|---|
committer | Kan Fushihara <kan.fushihara@gmail.com> | 2013-08-30 11:54:37 +0900 |
commit | 72c0704aa70a255dac8d6ef9d81ecc3d5cbc6926 (patch) | |
tree | c1649dccafa9c4e19b87238636815a86275d3b3e | |
parent | c3f9e7a6507a479af34650f4a033df598a054898 (diff) | |
download | carton-72c0704aa70a255dac8d6ef9d81ecc3d5cbc6926.tar.gz |
support CRLF in cpanfile.snapshot
-rw-r--r-- | lib/Carton/Snapshot/Parser.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Carton/Snapshot/Parser.pm b/lib/Carton/Snapshot/Parser.pm index 23c3d52..b3a0b7a 100644 --- a/lib/Carton/Snapshot/Parser.pm +++ b/lib/Carton/Snapshot/Parser.pm @@ -90,7 +90,7 @@ my $machine = { sub parse { my($self, $data, $snapshot) = @_; - my @lines = split /\n/, $data; + my @lines = split /\r?\n/, $data; my $state = $machine->{init}; my $stash = {}; |