From aaa4aaa8dd783b71227a8cd4454e258c31236df0 Mon Sep 17 00:00:00 2001
From: sthen <sthen@openbsd.org>
Date: Sat, 27 Apr 2013 14:29:08 +0000
Subject: [PATCH] update to p5-WWW-YouTube-Download 0.50, from maintainer
 Mikolaj Kucharski

---
 www/p5-WWW-YouTube-Download/Makefile            |  4 ++--
 www/p5-WWW-YouTube-Download/distinfo            |  4 ++--
 .../patches/patch-bin_youtube-playlists         | 17 -----------------
 .../patches/patch-lib_WWW_YouTube_Download_pm   | 15 +++++++++++++++
 4 files changed, 19 insertions(+), 21 deletions(-)
 delete mode 100644 www/p5-WWW-YouTube-Download/patches/patch-bin_youtube-playlists
 create mode 100644 www/p5-WWW-YouTube-Download/patches/patch-lib_WWW_YouTube_Download_pm

diff --git a/www/p5-WWW-YouTube-Download/Makefile b/www/p5-WWW-YouTube-Download/Makefile
index 1b2dd4579db..253024dfa5d 100644
--- a/www/p5-WWW-YouTube-Download/Makefile
+++ b/www/p5-WWW-YouTube-Download/Makefile
@@ -1,9 +1,9 @@
-# $OpenBSD: Makefile,v 1.9 2013/04/08 19:24:19 sthen Exp $
+# $OpenBSD: Makefile,v 1.10 2013/04/27 14:29:08 sthen Exp $
 
 COMMENT =	simple YouTube interface for downloading videos
 
 MODULES =	cpan
-DISTNAME =	WWW-YouTube-Download-0.47
+DISTNAME =	WWW-YouTube-Download-0.50
 CATEGORIES =	www
 
 MAINTAINER =	Mikolaj Kucharski <mikolaj@kucharski.name>
diff --git a/www/p5-WWW-YouTube-Download/distinfo b/www/p5-WWW-YouTube-Download/distinfo
index 47432b3abd1..1a6990b7006 100644
--- a/www/p5-WWW-YouTube-Download/distinfo
+++ b/www/p5-WWW-YouTube-Download/distinfo
@@ -1,2 +1,2 @@
-SHA256 (WWW-YouTube-Download-0.47.tar.gz) = ggyBBFUnCqV3QJ96XqtISjlZUf22PBupQm1BQMwJcZs=
-SIZE (WWW-YouTube-Download-0.47.tar.gz) = 23485
+SHA256 (WWW-YouTube-Download-0.50.tar.gz) = n1w2E5c7wSdkGv7eroQcctZCPpXTzS8F9g0wqqYu9yE=
+SIZE (WWW-YouTube-Download-0.50.tar.gz) = 19826
diff --git a/www/p5-WWW-YouTube-Download/patches/patch-bin_youtube-playlists b/www/p5-WWW-YouTube-Download/patches/patch-bin_youtube-playlists
deleted file mode 100644
index a2bc80aed2f..00000000000
--- a/www/p5-WWW-YouTube-Download/patches/patch-bin_youtube-playlists
+++ /dev/null
@@ -1,17 +0,0 @@
-$OpenBSD: patch-bin_youtube-playlists,v 1.1 2013/04/08 19:24:19 sthen Exp $
-
-- fix for playlists with only one item (reported in RT 81068, but not really fixed)
-
---- bin/youtube-playlists.orig	Mon Apr  1 18:07:46 2013
-+++ bin/youtube-playlists	Mon Apr  8 02:06:29 2013
-@@ -57,7 +57,9 @@ sub find_video_urls {
-     my $urls = [];
-     chatty('Parsing XML ... ');
-     my $tree = $tpp->parse($xml);
--    for my $entry (@{ $tree->{feed}{entry} || [] }) {
-+    my $entries = ref($tree->{feed}{entry}) eq 'ARRAY' ?
-+	$tree->{feed}{entry} : [ $tree->{feed}{entry} ];
-+    for my $entry (@$entries) {
-         my $uri = URI->new($entry->{'media:group'}{'media:player'}{-url});
-         $uri->query_param_delete('feature');
-         push @$urls, $uri->as_string;
diff --git a/www/p5-WWW-YouTube-Download/patches/patch-lib_WWW_YouTube_Download_pm b/www/p5-WWW-YouTube-Download/patches/patch-lib_WWW_YouTube_Download_pm
new file mode 100644
index 00000000000..e67939e5487
--- /dev/null
+++ b/www/p5-WWW-YouTube-Download/patches/patch-lib_WWW_YouTube_Download_pm
@@ -0,0 +1,15 @@
+$OpenBSD: patch-lib_WWW_YouTube_Download_pm,v 1.5 2013/04/27 14:29:09 sthen Exp $
+
+- support one more url type
+
+--- lib/WWW/YouTube/Download.pm.orig	Fri Apr 19 18:50:43 2013
++++ lib/WWW/YouTube/Download.pm	Sat Apr 27 12:33:16 2013
+@@ -271,7 +271,7 @@ sub _suffix {
+ 
+ sub _video_id {
+     my $stuff = shift;
+-    if ($stuff =~ m{/.*?[?&;!]v=([^&#?=/;]+)}) {
++    if ($stuff =~ m{/.*?[?&;!](?:v|video_id)=([^&#?=/;]+)}) {
+         return $1;
+     }
+     elsif ($stuff =~ m{/(?:e|v|embed)/([^&#?=/;]+)}) {