diff --git a/lib/Text/Playlist/M3U.pm b/lib/Text/Playlist/M3U.pm index 1c1533c..9dcdae3 100644 --- a/lib/Text/Playlist/M3U.pm +++ b/lib/Text/Playlist/M3U.pm @@ -32,7 +32,7 @@ sub parse { $self->{attrs} = $self->_parse_attrs($1); } # standart tags - if ($line =~ m/^\s*#EXTINF:(-?\d+(?:\.\d+)?)(\s+\S+?=\S+)*,(.*)/oi) { + if ($line =~ m/^\s*#EXTINF:(-?\d+(?:\.\d+)?)(\s+\S+?=\S+)*,\s*(.*)/oi) { $item //= { duration => $1, attrs => $self->_parse_attrs($2), diff --git a/t/m3u.t b/t/m3u.t index d4c576d..fdb1198 100644 --- a/t/m3u.t +++ b/t/m3u.t @@ -15,7 +15,7 @@ my $text = <load($path); is_deeply(\@items, $out, "Loading test playlist"); unlink $path; +$text =~ s/,\s+Second/,Second/o; is($text, $pls->dump(@items)); exit 0;