[Bps-public-commit] r11590 - in SVN-PropDB: .

jesse at bestpractical.com jesse at bestpractical.com
Sun Apr 6 07:37:17 EDT 2008


Author: jesse
Date: Sun Apr  6 07:37:12 2008
New Revision: 11590

Modified:
   SVN-PropDB/   (props changed)
   SVN-PropDB/lib/Prophet/Replica.pm

Log:
 r29385 at 68-247-97-201:  jesse | 2008-04-06 01:36:15 -1000
 * Switch to YAML


Modified: SVN-PropDB/lib/Prophet/Replica.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Replica.pm	(original)
+++ SVN-PropDB/lib/Prophet/Replica.pm	Sun Apr  6 07:37:12 2008
@@ -416,7 +416,7 @@
 
 use Path::Class;
 use Digest::SHA1 qw(sha1 sha1_hex);
-use XML::Simple;
+use YAML::Syck;
 
 =head2 export_to
 
@@ -503,7 +503,7 @@
         $collection->matching( sub {1} );
         foreach my $record (@$collection) {
             my $record_as_hash = $record->get_props;
-            my $content = XMLout( $record_as_hash, NoAttr => 1, RootName => 'record' );
+            my $content = YAML::Syck::Dump( $record_as_hash);
             my $fingerprint = sha1_hex($content);
             my $content_filename
                 = file( $args{'cas_dir'}, substr( $fingerprint, 0, 1 ), substr( $fingerprint, 1, 1 ),
@@ -545,7 +545,7 @@
         delete $hash_changeset->{'sequence_no'};
         delete $hash_changeset->{'source_uuid'};
 
-        my $content = XMLout( $hash_changeset, NoAttr => 1, RootName => 'changeset' );
+        my $content = YAML::Syck::Dump( $hash_changeset);
         my $fingerprint = sha1_hex($content);
         my $content_filename
             = file( $args{'cas_dir'}, substr( $fingerprint, 0, 1 ), substr( $fingerprint, 1, 1 ), $fingerprint );



More information about the Bps-public-commit mailing list