r73298 - in /branches/upstream/libwww-youtube-download-perl/current: Changes MANIFEST META.yml inc/Test/More.pm lib/WWW/YouTube/Download.pm

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Sat Apr 23 18:31:23 UTC 2011


Author: gregoa
Date: Sat Apr 23 18:31:10 2011
New Revision: 73298

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=73298
Log:
[svn-upgrade] new version libwww-youtube-download-perl (0.26)

Modified:
    branches/upstream/libwww-youtube-download-perl/current/Changes
    branches/upstream/libwww-youtube-download-perl/current/MANIFEST
    branches/upstream/libwww-youtube-download-perl/current/META.yml
    branches/upstream/libwww-youtube-download-perl/current/inc/Test/More.pm
    branches/upstream/libwww-youtube-download-perl/current/lib/WWW/YouTube/Download.pm

Modified: branches/upstream/libwww-youtube-download-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-youtube-download-perl/current/Changes?rev=73298&op=diff
==============================================================================
--- branches/upstream/libwww-youtube-download-perl/current/Changes (original)
+++ branches/upstream/libwww-youtube-download-perl/current/Changes Sat Apr 23 18:31:10 2011
@@ -1,4 +1,7 @@
 Revision history for Perl extension WWW::YouTube::Download
+
+0.26    Wed Apr 20 01:34:55 2011
+        - fixed scrape problem (reported by Octavian++)
 
 0.25    Sat Mar 19 00:39:41 2011
         - added few more match URLs (mikolaj++)

Modified: branches/upstream/libwww-youtube-download-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-youtube-download-perl/current/MANIFEST?rev=73298&op=diff
==============================================================================
--- branches/upstream/libwww-youtube-download-perl/current/MANIFEST (original)
+++ branches/upstream/libwww-youtube-download-perl/current/MANIFEST Sat Apr 23 18:31:10 2011
@@ -15,7 +15,7 @@
 inc/Test/More.pm
 lib/WWW/YouTube/Download.pm
 Makefile.PL
-MANIFEST			This list of files
+MANIFEST
 META.yml
 README
 t/00_compile.t

Modified: branches/upstream/libwww-youtube-download-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-youtube-download-perl/current/META.yml?rev=73298&op=diff
==============================================================================
--- branches/upstream/libwww-youtube-download-perl/current/META.yml (original)
+++ branches/upstream/libwww-youtube-download-perl/current/META.yml Sat Apr 23 18:31:10 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.git
-version: 0.25
+  repository: git://github.com/xaicron/p5-www-youtube-download
+version: 0.26

Modified: branches/upstream/libwww-youtube-download-perl/current/inc/Test/More.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-youtube-download-perl/current/inc/Test/More.pm?rev=73298&op=diff
==============================================================================
--- branches/upstream/libwww-youtube-download-perl/current/inc/Test/More.pm (original)
+++ branches/upstream/libwww-youtube-download-perl/current/inc/Test/More.pm Sat Apr 23 18:31:10 2011
@@ -18,7 +18,7 @@
     return warn @_, " at $file line $line\n";
 }
 
-our $VERSION = '0.96';
+our $VERSION = '0.98';
 $VERSION = eval $VERSION;    ## no critic (BuiltinFunctions::ProhibitStringyEval)
 
 use Test::Builder::Module;
@@ -88,7 +88,7 @@
     return $tb->ok( $test, $name );
 }
 
-#line 367
+#line 372
 
 sub is ($$;$) {
     my $tb = Test::More->builder;
@@ -104,7 +104,7 @@
 
 *isn't = \&isnt;
 
-#line 411
+#line 416
 
 sub like ($$;$) {
     my $tb = Test::More->builder;
@@ -112,7 +112,7 @@
     return $tb->like(@_);
 }
 
-#line 426
+#line 431
 
 sub unlike ($$;$) {
     my $tb = Test::More->builder;
@@ -120,7 +120,7 @@
     return $tb->unlike(@_);
 }
 
-#line 471
+#line 476
 
 sub cmp_ok($$$;$) {
     my $tb = Test::More->builder;
@@ -128,7 +128,7 @@
     return $tb->cmp_ok(@_);
 }
 
-#line 506
+#line 511
 
 sub can_ok ($@) {
     my( $proto, @methods ) = @_;
@@ -162,7 +162,7 @@
     return $ok;
 }
 
-#line 572
+#line 577
 
 sub isa_ok ($$;$) {
     my( $object, $class, $obj_name ) = @_;
@@ -222,7 +222,7 @@
     return $ok;
 }
 
-#line 651
+#line 656
 
 sub new_ok {
     my $tb = Test::More->builder;
@@ -247,16 +247,16 @@
     return $obj;
 }
 
-#line 736
-
-sub subtest($&) {
+#line 741
+
+sub subtest {
     my ($name, $subtests) = @_;
 
     my $tb = Test::More->builder;
     return $tb->subtest(@_);
 }
 
-#line 760
+#line 765
 
 sub pass (;$) {
     my $tb = Test::More->builder;
@@ -270,7 +270,7 @@
     return $tb->ok( 0, @_ );
 }
 
-#line 823
+#line 833
 
 sub use_ok ($;@) {
     my( $module, @imports ) = @_;
@@ -332,7 +332,7 @@
     return( $eval_result, $eval_error );
 }
 
-#line 892
+#line 902
 
 sub require_ok ($) {
     my($module) = shift;
@@ -376,7 +376,7 @@
     return $module =~ /^[a-zA-Z]\w*$/ ? 1 : 0;
 }
 
-#line 969
+#line 979
 
 our( @Data_Stack, %Refs_Seen );
 my $DNE = bless [], 'Does::Not::Exist';
@@ -483,7 +483,7 @@
     return '';
 }
 
-#line 1129
+#line 1139
 
 sub diag {
     return Test::More->builder->diag(@_);
@@ -493,13 +493,13 @@
     return Test::More->builder->note(@_);
 }
 
-#line 1155
+#line 1165
 
 sub explain {
     return Test::More->builder->explain(@_);
 }
 
-#line 1221
+#line 1231
 
 ## no critic (Subroutines::RequireFinalReturn)
 sub skip {
@@ -527,7 +527,7 @@
     last SKIP;
 }
 
-#line 1305
+#line 1315
 
 sub todo_skip {
     my( $why, $how_many ) = @_;
@@ -548,7 +548,7 @@
     last TODO;
 }
 
-#line 1360
+#line 1370
 
 sub BAIL_OUT {
     my $reason = shift;
@@ -557,7 +557,7 @@
     $tb->BAIL_OUT($reason);
 }
 
-#line 1399
+#line 1409
 
 #'#
 sub eq_array {
@@ -697,7 +697,7 @@
     }
 }
 
-#line 1546
+#line 1556
 
 sub eq_hash {
     local @Data_Stack = ();
@@ -732,7 +732,7 @@
     return $ok;
 }
 
-#line 1605
+#line 1615
 
 sub eq_set {
     my( $a1, $a2 ) = @_;
@@ -757,6 +757,6 @@
     );
 }
 
-#line 1807
+#line 1817
 
 1;

Modified: branches/upstream/libwww-youtube-download-perl/current/lib/WWW/YouTube/Download.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-youtube-download-perl/current/lib/WWW/YouTube/Download.pm?rev=73298&op=diff
==============================================================================
--- branches/upstream/libwww-youtube-download-perl/current/lib/WWW/YouTube/Download.pm (original)
+++ branches/upstream/libwww-youtube-download-perl/current/lib/WWW/YouTube/Download.pm Sat Apr 23 18:31:10 2011
@@ -4,7 +4,7 @@
 use warnings;
 use 5.008001;
 
-our $VERSION = '0.25';
+our $VERSION = '0.26';
 
 use Carp ();
 use URI ();
@@ -167,7 +167,7 @@
 
     my $data;
     for (split "\n", $content) {
-        if ($_ && /var\s+swfConfig/ && /videoplayback/ && /signature/ && !/HTML/) {
+        if ($_ && /var\s+swfConfig\s+=/) {
             my ($json) = $_ =~ /^[^{]+(.*)[^}]+$/;
             $data = JSON->new->utf8(1)->decode($json);
             last;




More information about the Pkg-perl-cvs-commits mailing list