r40075 - in /branches/upstream/libdata-format-html-perl/current: MANIFEST META.yml lib/Data/Format/._HTML.pm lib/Data/Format/HTML.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Fri Jul 17 17:26:18 2009
New Revision: 40075

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=40075
Log:
[svn-upgrade] Integrating new upstream version, libdata-format-html-perl (0.5)

Added:
    branches/upstream/libdata-format-html-perl/current/lib/Data/Format/._HTML.pm   (with props)
Removed:
    branches/upstream/libdata-format-html-perl/current/META.yml
Modified:
    branches/upstream/libdata-format-html-perl/current/MANIFEST
    branches/upstream/libdata-format-html-perl/current/lib/Data/Format/HTML.pm

Modified: branches/upstream/libdata-format-html-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-format-html-perl/current/MANIFEST?rev=40075&op=diff
==============================================================================
--- branches/upstream/libdata-format-html-perl/current/MANIFEST (original)
+++ branches/upstream/libdata-format-html-perl/current/MANIFEST Fri Jul 17 17:26:18 2009
@@ -3,4 +3,3 @@
 Makefile.PL
 MANIFEST
 README
-META.yml                                 Module meta-data (added by MakeMaker)

Added: branches/upstream/libdata-format-html-perl/current/lib/Data/Format/._HTML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-format-html-perl/current/lib/Data/Format/._HTML.pm?rev=40075&op=file
==============================================================================
Binary file - no diff available.

Propchange: branches/upstream/libdata-format-html-perl/current/lib/Data/Format/._HTML.pm
------------------------------------------------------------------------------
    svn:mime-type = application/octet-stream

Modified: branches/upstream/libdata-format-html-perl/current/lib/Data/Format/HTML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-format-html-perl/current/lib/Data/Format/HTML.pm?rev=40075&op=diff
==============================================================================
--- branches/upstream/libdata-format-html-perl/current/lib/Data/Format/HTML.pm (original)
+++ branches/upstream/libdata-format-html-perl/current/lib/Data/Format/HTML.pm Fri Jul 17 17:26:18 2009
@@ -5,7 +5,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.3';
+our $VERSION = '0.5';
 
 =head1 NAME
 
@@ -220,6 +220,8 @@
 	while(my($k, $v) = each %{$hash}) {
 		$k = $self->_format($k) if ref $k;
 		$v = $self->_format($v) if ref $v;
+		$v = '' unless defined $v;
+		
 		$o .= "<tr><th>$k</th><td>$v</td></tr>\n";
 	}