Package: mythtv-status
Version: 0.9.3-1
Severity: normal
Tags: patch
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA512
When using Date::Manip version 6 (in which the interface has changed),
mythtv-status throws the following errors:
> Use of uninitialized value in numeric gt (>) at /usr/bin/mythtv-status
> line 867.
> Use of uninitialized value in numeric gt (>) at /usr/bin/mythtv-status
> line 867.
> Use of uninitialized value in numeric gt (>) at /usr/bin/mythtv-status
> line 867.
> Use of uninitialized value in numeric gt (>) at /usr/bin/mythtv-status
> line 867.
> Use of uninitialized value $str in substitution (s///) at
> /usr/bin/mythtv-status line 387.
> Use of uninitialized value $str in substitution (s///) at
> /usr/bin/mythtv-status line 388.
> Use of uninitialized value $str in substitution (s///) at
> /usr/bin/mythtv-status line 389.
> Use of uninitialized value $seconds in numeric le (<=) at
> /usr/bin/mythtv-status line 391.
> Use of uninitialized value $str in concatenation (.) or string at
> /usr/bin/mythtv-status line 393.
Applying the attached patch switches the backend to compatibility mode
and clears the errors. It should not be considered a true fix as D::M
notes that version-5-mode won't be around forever.
- -- System Information:
Debian Release: squeeze/sid
APT prefers unstable
APT policy: (990, 'unstable'), (1, 'experimental')
Architecture: amd64 (x86_64)
Kernel: Linux 2.6.34 (SMP w/2 CPU cores; PREEMPT)
Locale: LANG=en_GB.UTF-8, LC_CTYPE=en_GB.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash
Versions of packages mythtv-status depends on:
ii debconf [debconf-2.0] 1.5.36 Debian configuration management sy
ii libconfig-auto-perl 0.20-2 Magical config file parser
ii libdate-manip-perl 6.14-1 module for manipulating dates
ii libmime-tools-perl 5.428-1 Perl5 modules for MIME-compliant m
ii libwww-perl 5.837-1 simple and consistent interface to
ii libxml-libxml-perl 1.70.ds-1 Perl interface to the libxml2 libr
ii perl 5.10.1-16 Larry Wall's Practical Extraction
Versions of packages mythtv-status recommends:
ii libmythtv-perl 0.24-0.2 A personal video recorder applicat
ii libnet-upnp-perl 1.4.2-1 Perl extensions for UPnP
Versions of packages mythtv-status suggests:
ii molly-guard 0.4.4-2 protects machines from accidental
- -- debconf information excluded
- -- debsums errors found:
debsums: changed file /usr/bin/mythtv-status (from mythtv-status package)
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)
iQIcBAEBCgAGBQJM46aOAAoJEKB7YbRsd8TG4QQQAKY5QIe0CwydQlekDOiu7Pxq
j8JqzdkIvHOnH9MYmXgP5EeRQdeaw7UDgAv8aFCYp/YvWzwpQtdLjjmaP3oDQqoz
kPsMtBUds+sz4+30sJrrsHR5yAj4IzZe+roUVtKvUNl9CqDUyqwU+Ipfw67ZYAM2
z3LHXBRXV42MHi1/gd1hw4xeauvB+XS4Qb2dBNc0NGbcEkISuf3lU1zwpA9A8FDf
9Jv2wSLP60YjGwXy5835fE2zyuRZtOZCEOiy2OxfOeBeZ3JAwBNNCOTvXftjqGpq
wMDCiNCp/OOEu6j6aIe4dHawwn6VwFzOBo2k5+J/pAZUbsg1fhjh5odq7LzZX1r4
s62oJHq/w7v7Epzd6GxUZzV3czP8JCcNs7MgsPARGPBRO4QpFW3H597s+HJsfu+A
bEy6YagHIYtNropxGjzP7N7F1+XfBLzoXi/lRPYN7A98QG/cUCb2E+6juvcmguB7
15xxqI5iiDhFhrUG3Xq/Si0hLx+GQCcH8WUfc5dUwBRGC2SiPY5pOq15O03F3Ss+
uhik73M432t4SU/gFAp3H/sn9v07M5a9JBMLVv2/a1vrA49cSoLkYtk4RH3hKjta
55WmBo1Zl6R3xCSSGQzfxa6q67/yhItwM1NAPb2ihdKCZKKFouUBPcWADIXKqyCK
siPUKdU1HFS1s19K0nNd
=kXof
-----END PGP SIGNATURE-----
--- /usr/bin/mythtv-status.orig 2010-11-17 09:52:08.043031500 +0000
+++ /usr/bin/mythtv-status.new 2010-11-17 09:36:51.347027492 +0000
@@ -10,6 +10,9 @@
use LWP::UserAgent;
use XML::LibXML;
+#BEGIN {
+# $Date::Manip::Backend = 'DM5';
+#}
use Date::Manip;
use Getopt::Long;
use Text::Wrap;
@@ -864,7 +867,7 @@
for my $key (@{ $block->{'human_readable_sizes'}}) {
for my $unit (@size_thresholds) {
if (defined $unit->{'threshold'}) {
- if ($vars->{$key} > $unit->{'threshold'}) {
+ if (defined($vars->{$key}) and $vars->{$key} > $unit->{'threshold'})
{
$vars->{$key} = sprintf("%.1f", $vars->{$key} /
$unit->{'conversion'});
$vars->{"${key}_unit"} = $unit->{'unit'};
