r71669 - in /trunk/libwww-youtube-download-perl: Changes MANIFEST META.yml debian/changelog lib/WWW/YouTube/Download.pm t/private/video_id.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Mar 19 01:16:47 UTC 2011
Author: jawnsy-guest
Date: Sat Mar 19 01:16:41 2011
New Revision: 71669
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=71669
Log:
still missing copyright
Modified:
trunk/libwww-youtube-download-perl/Changes
trunk/libwww-youtube-download-perl/MANIFEST
trunk/libwww-youtube-download-perl/META.yml
trunk/libwww-youtube-download-perl/debian/changelog
trunk/libwww-youtube-download-perl/lib/WWW/YouTube/Download.pm
trunk/libwww-youtube-download-perl/t/private/video_id.t
Modified: trunk/libwww-youtube-download-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/Changes?rev=71669&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/Changes (original)
+++ trunk/libwww-youtube-download-perl/Changes Sat Mar 19 01:16:41 2011
@@ -1,4 +1,7 @@
Revision history for Perl extension WWW::YouTube::Download
+
+0.25 Sat Mar 19 00:39:41 2011
+ - added few more match URLs (mikolaj++)
0.24 Fri Mar 4 01:45:20 2011
- fixed could not fetch json data problem (akiym++)
Modified: trunk/libwww-youtube-download-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/MANIFEST?rev=71669&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/MANIFEST (original)
+++ trunk/libwww-youtube-download-perl/MANIFEST Sat Mar 19 01:16:41 2011
@@ -15,7 +15,7 @@
inc/Test/More.pm
lib/WWW/YouTube/Download.pm
Makefile.PL
-MANIFEST
+MANIFEST This list of files
META.yml
README
t/00_compile.t
Modified: trunk/libwww-youtube-download-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/META.yml?rev=71669&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/META.yml (original)
+++ trunk/libwww-youtube-download-perl/META.yml Sat Mar 19 01:16:41 2011
@@ -26,5 +26,5 @@
perl: 5.8.1
resources:
license: http://dev.perl.org/licenses/
- repository: git://github.com/xaicron/p5-www-youtube-download
-version: 0.24
+ repository: git://github.com/xaicron/p5-www-youtube-download.git
+version: 0.25
Modified: trunk/libwww-youtube-download-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/debian/changelog?rev=71669&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/debian/changelog (original)
+++ trunk/libwww-youtube-download-perl/debian/changelog Sat Mar 19 01:16:41 2011
@@ -1,4 +1,4 @@
-libwww-youtube-download-perl (0.24-1) UNRELEASED; urgency=low
+libwww-youtube-download-perl (0.25-1) UNRELEASED; urgency=low
NOTE: we need to ask upstream for a copyright statement
@@ -9,7 +9,7 @@
* Add myself to Uploaders and Copyright
* Refresh copyright information
- -- Jonathan Yu <jawnsy at cpan.org> Sun, 06 Mar 2011 09:52:35 -0500
+ -- Jonathan Yu <jawnsy at cpan.org> Fri, 18 Mar 2011 21:35:49 -0400
libwww-youtube-download-perl (0.22-1) unstable; urgency=low
Modified: trunk/libwww-youtube-download-perl/lib/WWW/YouTube/Download.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/lib/WWW/YouTube/Download.pm?rev=71669&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/lib/WWW/YouTube/Download.pm (original)
+++ trunk/libwww-youtube-download-perl/lib/WWW/YouTube/Download.pm Sat Mar 19 01:16:41 2011
@@ -4,7 +4,7 @@
use warnings;
use 5.008001;
-our $VERSION = '0.24';
+our $VERSION = '0.25';
use Carp ();
use URI ();
@@ -216,10 +216,10 @@
sub _video_id {
my $stuff = shift;
- if ($stuff =~ m{/watch\?.*?v=([^&]+)}) {
+ if ($stuff =~ m{/.*?[?&;]v=([^&#?=/;]+)}) {
return $1;
}
- elsif ($stuff =~ m{/(?:v|embed)/([^&]+)}) {
+ elsif ($stuff =~ m{/(?:e|v|embed)/([^&#?=/;]+)}) {
return $1;
}
elsif ($stuff =~ m{#p/(?:u|search)/\d+/([^&?/]+)}) {
Modified: trunk/libwww-youtube-download-perl/t/private/video_id.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/t/private/video_id.t?rev=71669&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/t/private/video_id.t (original)
+++ trunk/libwww-youtube-download-perl/t/private/video_id.t Sat Mar 19 01:16:41 2011
@@ -53,5 +53,25 @@
'ZgDKIyxaK8A',
);
+test_video_id(
+ 'http://www.youtube.com/e/UpaxndP5G2Y',
+ 'UpaxndP5G2Y',
+);
+
+test_video_id(
+ 'www.youtube.com/?v=AfooxdRYeJU',
+ 'AfooxdRYeJU',
+);
+
+test_video_id(
+ 'http://www.youtube.com/embed/0zM3nApSvMg?rel=0',
+ '0zM3nApSvMg',
+);
+
+test_video_id(
+ 'http://www.youtube.com/v/INsSU8Jnx-4?fs=1&hl=en',
+ 'INsSU8Jnx-4',
+);
+
done_testing;
More information about the Pkg-perl-cvs-commits
mailing list