cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
sthen 2013-04-27 14:29:08 +00:00
parent e6416a4313
commit aaa4aaa8dd
4 changed files with 19 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
www/p5-WWW-YouTube-Download/Makefile
View File

@ -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>

4
www/p5-WWW-YouTube-Download/distinfo
View File

@ -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

17
www/p5-WWW-YouTube-Download/patches/patch-bin_youtube-playlists
View File

@ -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;

15
www/p5-WWW-YouTube-Download/patches/patch-lib_WWW_YouTube_Download_pm Normal file
View File

@ -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)/([^&#?=/;]+)}) {