From bed3dea90fff6e38435286a5c4d04b4173e04ec9 Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@runbox.com>
Date: Tue, 12 May 2015 15:46:37 +1000
Subject: [PATCH] * skip leading spaces before title in m3u playlist

---
 lib/Text/Playlist/M3U.pm | 2 +-
 t/m3u.t                  | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

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 = <<M3U;
 #EXTM3U aspect-ratio=4:3
 #EXTINF:-1,First channel
 http://127.0.0.1:1027/udp/224.3.22.7:1234
-#EXTINF:-1 cn-id=34727751,Second channel +8
+#EXTINF:-1 cn-id=34727751, Second channel +8
 http://127.0.0.1:1027/udp/224.3.23.9:1234
 M3U
 
@@ -40,6 +40,7 @@ my @items = $pls->load($path);
 is_deeply(\@items, $out, "Loading test playlist");
 unlink $path;
 
+$text =~ s/,\s+Second/,Second/o;
 is($text, $pls->dump(@items));
 
 exit 0;