do not quote scalar refs to pass literal html

[perl/html-form-simple.git] / lib / HTML / Form / Simple.pm

diff --git a/lib/HTML/Form/Simple.pm b/lib/HTML/Form/Simple.pm
index bd0e15e277f7ebb33914332fccc1b59345ed4102..7d023146eef48d65c69bb858dff5fe50b5c317bf 100644 (file)
--- a/lib/HTML/Form/Simple.pm
+++ b/lib/HTML/Form/Simple.pm
@@ -24,6 +24,7 @@ sub _attr {
 
 sub quote {
        my $self = shift;
+       return ${$_[0]} if ref $_[0] eq 'SCALAR';
        return XML::Quote::xml_quote_min($_[0]);
 }