X-Git-Url: http://git.shiar.net/perl/html-form-simple.git/blobdiff_plain/2ba73dcfab70f6f5de8840658f98e1df53db3e53..061e1dbc2abe6c89b90348e22e5f3455a2b8328d:/lib/HTML/Form/Simple.pm

diff --git a/lib/HTML/Form/Simple.pm b/lib/HTML/Form/Simple.pm
index bd0e15e..7d02314 100644
--- 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]);
 }