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;
 }