Stop skipping false strings when concatenating

diff --git a/lib/HTML/String/Value.pm b/lib/HTML/String/Value.pm
index 1eedc5e..e3803b8 100644 (file)
--- 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}};