projects
/
catagits/Web-Simple.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
bump version
[catagits/Web-Simple.git]
/
lib
/
XML
/
Tags.pm
diff --git
a/lib/XML/Tags.pm
b/lib/XML/Tags.pm
index
0c9ff8b
..
8b30b60
100644
(file)
--- a/
lib/XML/Tags.pm
+++ b/
lib/XML/Tags.pm
@@
-26,7
+26,11
@@
sub to_xml_string {
ref($_)
? (ref $_ eq 'SCALAR' ? $$_ : $_)
: do { local $_ = $_; # copy
- s/&/&/g; s/"/"/g; s/</</g; s/>/>/g; $_;
+ if (defined) {
+ s/&/&/g; s/"/"/g; s/</</g; s/>/>/g; $_;
+ } else {
+ ''
+ }
}
} @_
}