X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FHTML%2FString%2FValue.pm;h=e1f6c9577aee3ef685b2b9c7778a613473c9ad03;hb=e8420dab517c57d30d9a3fa22de9966dc1c99c1b;hp=e3803b8ea6e8fd7585b8c9be29d649675b2d29f1;hpb=8f45d4b83ba99d9a01223b21f254c626c7b27489;p=scpubgit%2FHTML-String.git

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