Bug#627425: libtime-modules-perl: After upgrade to perl 5.12 get error "Use of uninitialized value $ampm in uc"

[Gary Mitchell]

Package: libtime-modules-perl
Version: 2006.0814-2
Severity: normal
Tags: patch

After upgrading to Perl 5.12 when I run one of my perl scripts I get this
error:

Use of uninitialized value $ampm in uc at /usr/share/perl5/Time/ParseDate.pm
line 733, <LOG> line 2842

I am using libtime-modules-perl version 2006.0814-2.  If I use the upstream
version 2011.0517 this error does not occur.

This does not affect functionality but, since my script makes 1000's of calls
to Parsedate.pm, does produce a lot of annoying errors.



-- System Information:
Debian Release: wheezy/sid
  APT prefers unstable
  APT policy: (990, 'unstable')
Architecture: i386 (i686)

Kernel: Linux 2.6.38-2-686-bigmem (SMP w/2 CPU cores)
Locale: LANG=en_GB, LC_CTYPE=en_GB (charmap=ISO-8859-1) (ignored: LC_ALL set to en_GB)
Shell: /bin/sh linked to /bin/bash

Versions of packages libtime-modules-perl depends on:
ii  perl                          5.12.3-7   Larry Wall's Practical Extraction 

libtime-modules-perl recommends no packages.

libtime-modules-perl suggests no packages.

-- no debconf information
-------------- next part --------------
--- ParseDate.pm	2008-02-08 01:33:44.000000000 +0000
+++ ParseDate.pm.AMENDED	2011-05-20 14:26:04.246696646 +0100
@@ -727,7 +727,7 @@
 			$$sr += $frac;
 		}
 		print "S = $$sr\n" if $debug;
-		$ampm = $4 || $9 || $11;
+		$ampm = $4 || $9 || $11 || '';
 		$$tzr = $12;
 		$$hr += 12 if $ampm and "\U$ampm" eq "PM" && $$hr != 12;
 		$$hr = 0 if $$hr == 12 && "\U$ampm" eq "AM";