From: Florian Ragwitz <rafl@debian.org>
Date: Thu, 12 Sep 2013 13:43:50 +0000 (-0400)
Subject: Stop skipping false strings when concatenating
X-Git-Tag: v1.000003~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d02d93435be71f3fbc2210831ddabe44ff2afd3d;p=scpubgit%2FHTML-String.git

Stop skipping false strings when concatenating
---

diff --git a/lib/HTML/String/Value.pm b/lib/HTML/String/Value.pm
index 1eedc5e..e3803b8 100644
--- a/lib/HTML/String/Value.pm
+++ b/lib/HTML/String/Value.pm
@@ -75,7 +75,7 @@ sub _hsv_unescaped_string {
 sub _hsv_dot {
     my ($self, $str, $prefix) = @_;
 
-    return $self unless $str;
+    return $self unless length $str;
 
     my @parts = @{$self->{parts}};