lite-pm.diff

--- Lite.pm-	Tue Mar 27 19:51:15 2007
+++ Lite.pm	Tue Mar 27 17:39:37 2007
@@ -1369,7 +1369,7 @@
   }
   my $tagattrs = join($tagjoiner, '', map { sprintf '%s="%s"', $_, SOAP::Utils::encode_attribute($attrs->{$_}) } 
                                grep { $_ && defined $attrs->{$_} && ($_ ne 'xsi:type' || $attrs->{$_} ne '')
-                                    } keys %$attrs);
+                                    } sort keys %$attrs);
 
   if ($value gt '') {
     return sprintf("$prolog$indent<%s%s>%s%s</%s>$epilog",$tag,$tagattrs,$value,($value =~ /^\s*</ ? $indent : ""),$tag);