Bug#657716: clive: patch for 2012 January Youtube format change

[Gabor Kiss]

Package: clive
Version: 2.2.13-5+squeeze3
Severity: normal
Tags: patch

This week Youtube HTML text changed again causing parse error.
This patch solves the problem.

Gabor

-- System Information:
Debian Release: 6.0.3
  APT prefers proposed-updates
  APT policy: (500, 'proposed-updates'), (500, 'stable')
Architecture: amd64 (x86_64)

Kernel: Linux 2.6.32-5-amd64 (SMP w/1 CPU core)
Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968)
Shell: /bin/sh linked to /bin/bash

Versions of packages clive depends on:
ii  libclass-singleton-per 1.4-1             implementation of a "Singleton" cl
ii  libconfig-tiny-perl    2.12-1            Read/Write .ini style files with a
ii  libexpect-perl         1.20-2            Expect.pm - Perl Expect interface
ii  libgetopt-argvfile-per 1.11-1            Perl module for reading script opt
ii  libhtml-parser-perl    3.66-1            collection of modules that parse H
ii  liburi-perl            1.54-2            module to manipulate and access UR
ii  libwww-curl-perl       4.12-1            Perl bindings to libcurl
ii  perl                   5.10.1-17squeeze3 Larry Wall's Practical Extraction 

Versions of packages clive recommends:
pn  clive-utils              <none>          (no description available)
ii  libberkeleydb-perl       0.42-1~squeeze1 use Berkeley DB 4 databases from P
ii  libterm-readkey-perl     2.30-4          A perl module for simple terminal 

Versions of packages clive suggests:
ii  ffmpeg                      5:0.7.11-0.0 audio/video encoder, streaming ser

-- no debconf information

-- debsums errors found:
debsums: changed file /usr/share/perl5/clive/Host/Youtube.pm (from clive package)
-------------- next part --------------
--- /tmp/Youtube.pm	2012-01-28 11:01:46.185246561 +0100
+++ Youtube.pm	2012-01-28 11:01:58.585246885 +0100
@@ -33,7 +33,7 @@
 
     my %re = (
         id => qr|"video_id": "(.*?)"|,
-        url_encoded_fmt_stream_map => qr|url_encoded_fmt_stream_map=(.*?)&|,
+        url_encoded_fmt_stream_map => qr/url_encoded_fmt_stream_map=(.*?)(&|\\u0026amp;)/,
     );
 
     my $tmp;