Patch integrated upstream. New patch to support one more url type.
Will send this upstream.
Index: Makefile
===================================================================
RCS file: /cvs/ports/www/p5-WWW-YouTube-Download/Makefile,v
retrieving revision 1.9
diff -u -r1.9 Makefile
--- Makefile 8 Apr 2013 19:24:19 -0000 1.9
+++ Makefile 27 Apr 2013 12:16:44 -0000
@@ -3,7 +3,7 @@
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 <miko...@kucharski.name>
Index: distinfo
===================================================================
RCS file: /cvs/ports/www/p5-WWW-YouTube-Download/distinfo,v
retrieving revision 1.7
diff -u -r1.7 distinfo
--- distinfo 8 Apr 2013 19:24:19 -0000 1.7
+++ distinfo 27 Apr 2013 12:16:44 -0000
@@ -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
Index: patches/patch-bin_youtube-playlists
===================================================================
RCS file: patches/patch-bin_youtube-playlists
diff -N patches/patch-bin_youtube-playlists
--- patches/patch-bin_youtube-playlists 8 Apr 2013 19:24:19 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -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;
Index: patches/patch-lib_WWW_YouTube_Download_pm
===================================================================
RCS file: patches/patch-lib_WWW_YouTube_Download_pm
diff -N patches/patch-lib_WWW_YouTube_Download_pm
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ patches/patch-lib_WWW_YouTube_Download_pm 27 Apr 2013 12:16:44 -0000
@@ -0,0 +1,15 @@
+$OpenBSD$
+
+- 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)/([^&#?=/;]+)}) {
--
best regards
q#
