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