[Bps-public-commit] r14399 - in Data-Plist: .

[alexmv at bestpractical.com]

Author: alexmv
Date: Tue Jul 22 19:11:12 2008
New Revision: 14399

Modified:
   Data-Plist/   (props changed)
   Data-Plist/lib/Data/Plist/XMLWriter.pm

Log:
 r34511 at kohr-ah:  chmrr | 2008-07-22 19:10:13 -0400
  * Consistent ordering on keys for XML output


Modified: Data-Plist/lib/Data/Plist/XMLWriter.pm
==============================================================================
--- Data-Plist/lib/Data/Plist/XMLWriter.pm	(original)
+++ Data-Plist/lib/Data/Plist/XMLWriter.pm	Tue Jul 22 19:11:12 2008
@@ -49,7 +49,7 @@
             MIME::Base64::encode_base64( $data->[1] ) );
     } elsif ( $data->[0] eq "dict" ) {
         $self->{x}->startTag("dict");
-        for my $k ( keys %{ $data->[1] } ) {
+        for my $k ( sort keys %{ $data->[1] } ) {
             $self->{x}->dataElement( "key", $k );
             $self->xml_write( $data->[1]{$k} );
         }