[perl-xml-cvs] CVS: xml-filter-sort/lib/XML/Filter Sort.pm,1.1.1.1,1.2

[Grant M. <gr...@us...>]

Update of /cvsroot/perl-xml/xml-filter-sort/lib/XML/Filter
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14729/lib/XML/Filter

Modified Files:
	Sort.pm 
Log Message:
- fix bug with text content of '0'

Index: Sort.pm
===================================================================
RCS file: /cvsroot/perl-xml/xml-filter-sort/lib/XML/Filter/Sort.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Sort.pm	14 Jun 2002 20:40:02 -0000	1.1.1.1
+++ Sort.pm	20 Apr 2005 02:32:49 -0000	1.2
@@ -1,5 +1,3 @@
-# $Id$
-
 package XML::Filter::Sort;
 
 use strict;
@@ -14,7 +12,7 @@
 
 use vars qw($VERSION @ISA);
 
-$VERSION = '0.91';
+$VERSION = '1.00';
 
 @ISA = qw(XML::SAX::Base);
 
@@ -455,7 +453,7 @@
 sub send_characters {
   my $self    = shift;
 
-  return unless($self->{char_buffer});
+  return unless(exists $self->{char_buffer});
   if($self->{buffer}) {
     $self->{buffer}->characters({Data => $self->{char_buffer}});
   }