git.shiar.nl
/
perl
/
html-form-simple.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
sub quote {
my $self = shift;
+ return ${$_[0]} if ref $_[0] eq 'SCALAR';
return XML::Quote::xml_quote_min($_[0]);
}
return XML::Quote::xml_quote_min($_[0]);
}