Package: movabletype-opensource
Version: 5.1.4+dfsg-5
Severity: grave
Tags: upstream patch
Justification: renders package unusable
Dear Maintainer,
Upgrading to Perl 5.18.1-3 in Testing broke MovableType's Dashboard view.
Four of the Perl files in /usr/share/perl5/MT/Template/Tags contain a syntax
error that
earlier versions of Perl evidently liked just fine. This issue cases an error
message
to be displayed instead of many of the administrative pages, including the
"Create New Entry"
page.
The attached patch fixes the problem for me. I am no Perl expert, so I don't
claim this fix
is optimal, and I've done only minimal testing so I can't state that there are
no other problems.
-- System Information:
Debian Release: jessie/sid
APT prefers oldstable-updates
APT policy: (500, 'oldstable-updates'), (500, 'testing'), (500, 'stable'),
(450, 'unstable')
Architecture: i386 (i686)
Kernel: Linux 3.10-2-686-pae (SMP w/2 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Versions of packages movabletype-opensource depends on:
ii dbconfig-common 1.8.47+nmu1
ii debconf [debconf-2.0] 1.5.51
ii libalgorithm-diff-perl 1.19.02-3
ii libclass-accessor-perl 0.34-1
ii libclass-data-inheritable-perl 0.08-2
ii libclass-trigger-perl 0.14-1
ii libcrypt-ssleay-perl 0.58-1+b1
ii libdata-objectdriver-perl 0.09-1
ii libdbd-mysql-perl 4.023-1+b1
ii libdbd-pg-perl 2.19.3-1+b1
ii libdbd-sqlite3-perl 1.40-1+b1
ii libdbi-perl 1.628-1+b1
ii libgd-gd2-perl 1:2.46-3.1+b1
ii libhtml-parser-perl 3.71-1+b1
ii libimage-size-perl 3.232-1
ii libipc-run-perl 0.92-1
ii libjs-jquery 1.7.2+dfsg-3
ii libjson-perl 2.59-1
ii liblucene-queryparser-perl 1.04-2
ii libmime-encwords-perl 1.014-1
ii libnet-openid-consumer-perl 1.13-1
ii libtheschwartz-perl 1.07-1
ii liburi-fetch-perl 0.09-1
ii liburi-perl 1.60-1
ii libwww-perl 6.05-1
ii libxml-atom-perl 0.41-1
ii libxml-sax-perl 0.99+dfsg-2
ii libxml-xpath-perl 1.13-7
ii libyaml-tiny-perl 1.51-2
ii mysql-client 5.5.31+dfsg-1
ii mysql-client-5.5 [mysql-client] 5.5.31+dfsg-1
ii perl-modules [libversion-perl] 5.18.1-4
ii perlmagick 8:6.7.7.10-6
ii postfix [mail-transport-agent] 2.10.1-2
ii sqlite 2.8.17-8
ii ucf 3.0027+nmu1
Versions of packages movabletype-opensource recommends:
ii libarchive-zip-perl 1.30-7
ii libsoap-lite-perl 0.716-1
ii perl-modules [libarchive-tar-perl] 5.18.1-4
movabletype-opensource suggests no packages.
-- debconf information excluded
--- Asset.pm~ 2013-06-01 05:56:38.000000000 -0400
+++ Asset.pm 2013-09-13 22:15:10.697975204 -0400
@@ -263,8 +263,8 @@
my $namespace = $args->{namespace};
my $need_join = 0;
- for my $f
- qw( min_score max_score min_rate max_rate min_count max_count scored_by )
+ my @fs = qw( min_score max_score min_rate max_rate min_count max_count scored_by );
+ for my $f (@fs)
{
if ( $args->{$f} ) {
$need_join = 1;
--- Author.pm~ 2013-06-01 05:56:38.000000000 -0400
+++ Author.pm 2013-09-13 22:17:01.649218537 -0400
@@ -340,8 +340,8 @@
$need_join = 1;
}
else {
- for my $f
- qw( min_score max_score min_rate max_rate min_count max_count scored_by )
+ my @fs = qw( min_score max_score min_rate max_rate min_count max_count scored_by );
+ for my $f (@fs)
{
if ( $args->{$f} ) {
$need_join = 1;
--- Entry.pm~ 2013-06-01 05:56:38.000000000 -0400
+++ Entry.pm 2013-09-13 22:11:57.431293068 -0400
@@ -654,9 +654,9 @@
my $namespace = $args->{namespace};
my $need_join = 0;
- for my $f
- qw( min_score max_score min_rate max_rate min_count max_count scored_by )
- {
+
+ my @fs = qw (min_score max_score min_rate max_rate min_count max_count scored_by);
+ for my $f (@fs) {
if ( $args->{$f} ) {
$need_join = 1;
last;
--- Comment.pm~ 2013-06-01 05:56:38.000000000 -0400
+++ Comment.pm 2013-09-13 22:13:21.566719393 -0400
@@ -200,8 +200,8 @@
$need_join = 1;
}
else {
- for my $f
- qw( min_score max_score min_rate max_rate min_count max_count scored_by )
+ my @fs = qw( min_score max_score min_rate max_rate min_count max_count scored_by );
+ for my $f (@fs)
{
if ( $args->{$f} ) {
$need_join = 1;
