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