Mercurial > pub > Impl
diff Lib/IMPL/Serialization/XmlFormatter.pm @ 90:dc1da0389db7
Small improvements in the abstract object class
Added support for a class data, documentation
Additional tests for the new functionality
author | wizard |
---|---|
date | Mon, 26 Apr 2010 03:10:03 +0400 |
parents | 16ada169ca75 |
children | 4267a2ac3d46 |
line wrap: on
line diff
--- a/Lib/IMPL/Serialization/XmlFormatter.pm Wed Apr 21 17:39:45 2010 +0400 +++ b/Lib/IMPL/Serialization/XmlFormatter.pm Mon Apr 26 03:10:03 2010 +0400 @@ -161,9 +161,9 @@ sub Text { my ($this) = shift; - $_ = shift; - return 1 if $this->{'Non-Expat-Options'}->{'SkipWhitespace'} and /^\n*\s*\n*$/; - $this->{'Non-Expat-Options'}->{'Handler'}->OnObjectData($_); + my $text = shift; + return 1 if $this->{'Non-Expat-Options'}->{'SkipWhitespace'} and $text =~ /^\n*\s*\n*$/; + $this->{'Non-Expat-Options'}->{'Handler'}->OnObjectData($text); return 1; }