Bug#595486: clive: Vimeo no longer works

[Jonas Smedegaard]

Package: clive
Version: 2.2.13-2
Severity: important
Tags: patch

Support for Vimeo download has stopped working.

The following change makes it work properly again:

root at auryn:/usr/share/perl5/clive/Host# diff -ruN Vimeo.pm.orig Vimeo.pm
--- Vimeo.pm.orig2010-04-06 22:03:46.000000000 +0200
+++ Vimeo.pm2010-09-04 14:12:03.799908305 +0200
@@ -32,7 +32,7 @@
 
     $$props->video_host("vimeo");
 
-    my %re = ( id => qr|clip_id=(.*?)"|, );
+    my %re = ( id => qr|clip_id=(.*?)[&"]|, );
 
     my $tmp;
     if ( clive::Util::matchRegExps( \%re, \$tmp, $content ) == 0 ) {


 - Jonas

-- System Information:
Debian Release: squeeze/sid
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: amd64 (x86_64)

Kernel: Linux 2.6.35-trunk-amd64 (SMP w/2 CPU cores)
Locale: LANG=da_DK.UTF-8, LC_CTYPE=da_DK.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash

Versions of packages clive depends on:
ii  libclass-singleton-perl       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.21-1     Expect.pm - Perl Expect interface
ii  libgetopt-argvfile-perl       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-1     module to manipulate and access UR
ii  libwww-curl-perl              4.12-1     Perl bindings to libcurl
ii  perl                          5.10.1-14  Larry Wall's Practical Extraction 

Versions of packages clive recommends:
ii  clive-utils                   2.1.6-1    additional utilities for clive
ii  libberkeleydb-perl            0.42-1     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                        4:0.6-2    multimedia player, server and enco

-- no debconf information

-- debsums errors found:
debsums: changed file /usr/share/perl5/clive/Host/Vimeo.pm (from clive package)