Changeset 170

Timestamp:

09/15/07 13:23:37 (6 years ago)

Author:

holidays-l

Message:

Fixed get_video_uri

Files:

• lang/perl/WebService-YouTube/trunk/lib/WebService/YouTube/Util.pm (modified) (3 diffs)

lang/perl/WebService-YouTube/trunk/lib/WebService/YouTube/Util.pm

@@ -10 +10 @@
 use LWP::UserAgent;
 use URI::Escape qw(uri_escape uri_escape_utf8);
-use Encode;
+use Encode ();
 
 sub rss_uri {
@@ -81 +81 @@
         return "http://youtube.com/get_video.php?$1";
     }
+    if ( $content =~ m{\bt:(['"])(.+?)\1}msx ) {
+        return "http://youtube.com/get_video.php?video_id=$video_id&t=$2";
+    }
     if ( $content =~ m{class="errorBox"[^>]*>\s*([^<]+?)\s*<}msx ) {
         carp "$video_id: $1";
@@ -230 +233 @@
 =head1 LICENSE AND COPYRIGHT
 
-Copyright 2006, Hironori Yoshida <yoshida@cpan.org>. All rights reserved.
-
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself. See L<perlartistic>.
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself. See L<perlartistic>.
 
 =cut