Don't call length(undef)

strictures doesn't want us to.

diff --git a/Changes b/Changes
index 1d39c92..a0025ec 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+  - Fix concatenating undef to HTML::String values.
+
 1.000003 - 2013-09-12
   - Fix concatenating strings that evaluate to false in a boolean context.
 

diff --git a/lib/HTML/String/Value.pm b/lib/HTML/String/Value.pm
index e3803b8..e1f6c95 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 length $str;
+    return $self unless defined $str && length $str;
 
     my @parts = @{$self->{parts}};