perl-xml-commits

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

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

Modified Files:
	Buffer.pm 
Log Message:
- fix bug where sort key was '0'

Index: Buffer.pm
===================================================================
RCS file: /cvsroot/perl-xml/xml-filter-sort/lib/XML/Filter/Sort/Buffer.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Buffer.pm	14 Jun 2002 20:40:11 -0000	1.1.1.1
+++ Buffer.pm	20 Apr 2005 20:04:34 -0000	1.2
@@ -187,7 +187,8 @@
 
   my $text = '';
 
-  while(my $node = shift) {
+  while(@_) {
+    my $node = shift;
     if(ref($node)) {
       if($node->[NODE_TYPE] eq 'e') {
 	if(@{$node->[NODE_CONTENT]}) {
@@ -238,7 +239,8 @@
 
   @_ = @{$self->{tree}} unless(@_);
 
-  while(my $node = shift) {
+  while(@_) {
+    my $node = shift;
     if(ref($node)) {
       if($node->[NODE_TYPE] eq 'e') {
 	$filter->start_element($node->[NODE_DATA]);