update to p5-WWW-YouTube-Download, from maintainer Mikolaj Kucharski

This commit is contained in:
sthen 2013-04-08 19:24:19 +00:00
parent 06ef8e9744
commit 3b82d640d5
5 changed files with 24 additions and 28 deletions

View File

@ -1,9 +1,9 @@
# $OpenBSD: Makefile,v 1.8 2013/03/11 11:44:47 espie Exp $
# $OpenBSD: Makefile,v 1.9 2013/04/08 19:24:19 sthen Exp $
COMMENT = simple YouTube interface for downloading videos
MODULES = cpan
DISTNAME = WWW-YouTube-Download-0.41
DISTNAME = WWW-YouTube-Download-0.47
CATEGORIES = www
MAINTAINER = Mikolaj Kucharski <mikolaj@kucharski.name>
@ -12,7 +12,7 @@ MAINTAINER = Mikolaj Kucharski <mikolaj@kucharski.name>
PERMIT_PACKAGE_CDROM = Yes
CPAN_AUTHOR = XAICRON
CONFIGURE_STYLE = modinst
CONFIGURE_STYLE = modbuild
MODCPAN_EXAMPLES = Yes
MODCPAN_EXAMPLES_DIST = eg

View File

@ -1,2 +1,2 @@
SHA256 (WWW-YouTube-Download-0.41.tar.gz) = cheRCs/ccYhSvjzrrX+CByCyCJ8K7Nyz1TbST7YpeFY=
SIZE (WWW-YouTube-Download-0.41.tar.gz) = 35480
SHA256 (WWW-YouTube-Download-0.47.tar.gz) = ggyBBFUnCqV3QJ96XqtISjlZUf22PBupQm1BQMwJcZs=
SIZE (WWW-YouTube-Download-0.47.tar.gz) = 23485

View File

@ -1,22 +0,0 @@
$OpenBSD: patch-Makefile_PL,v 1.4 2012/04/07 20:54:07 sthen Exp $
Module::Install::AuthorTests is missing in ports tree,
but not really essential.
Same for Module::Install::Repository.
--- Makefile.PL.orig Tue Jan 17 16:23:57 2012
+++ Makefile.PL Sat Apr 7 21:53:04 2012
@@ -11,10 +11,9 @@ requires 'Term::ANSIColor'; # for youtube-download and
requires 'XML::TreePP'; # for youtube-playlists
tests 't/*.t t/*/*.t';
-author_tests 'xt';
install_script 'bin/youtube-download', 'bin/youtube-playlists';
test_requires 'Test::More', '0.96';
-auto_set_repository;
+#auto_set_repository;
WriteAll;

View File

@ -0,0 +1,17 @@
$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;

View File

@ -1,4 +1,4 @@
@comment $OpenBSD: PLIST,v 1.2 2012/01/24 00:44:47 nigel Exp $
@comment $OpenBSD: PLIST,v 1.3 2013/04/08 19:24:19 sthen Exp $
bin/youtube-download
bin/youtube-playlists
${P5SITE}/WWW/YouTube/
@ -8,4 +8,5 @@ ${P5SITE}/WWW/YouTube/Download.pm
@man man/man3p/WWW::YouTube::Download.3p
share/examples/p5-WWW-YouTube-Download/
share/examples/p5-WWW-YouTube-Download/cb.pl
share/examples/p5-WWW-YouTube-Download/menu.pl
share/examples/p5-WWW-YouTube-Download/parallel.pl