[Bps-public-commit] r14766 - Prophet/branches/creator/lib/Prophet/Replica

[sartak at bestpractical.com]

Author: sartak
Date: Mon Aug  4 16:38:51 2008
New Revision: 14766

Modified:
   Prophet/branches/creator/lib/Prophet/Replica/SVN.pm

Log:
Set the creator in the SVN replica too, why not

Modified: Prophet/branches/creator/lib/Prophet/Replica/SVN.pm
==============================================================================
--- Prophet/branches/creator/lib/Prophet/Replica/SVN.pm	(original)
+++ Prophet/branches/creator/lib/Prophet/Replica/SVN.pm	Mon Aug  4 16:38:51 2008
@@ -145,16 +145,15 @@
     my $self      = shift;
     my $entry     = shift;
     my $revprops  = shift;
-    my $changeset = Prophet::ChangeSet->new(
-        {   sequence_no          => $entry->{'revision'},
-            source_uuid          => $self->uuid,
-            original_source_uuid => $revprops->{'prophet:original-source'} || $self->uuid,
-            original_sequence_no => $revprops->{'prophet:original-sequence-no'} || $entry->{'revision'},
-            is_nullification     => ( ( $revprops->{'prophet:special-type'} || '' ) eq 'nullification' ) ? 1 : undef,
-            is_resolution        => ( ( $revprops->{'prophet:special-type'} || '' ) eq 'resolution' ) ? 1 : undef,
-
-        }
-    );
+    my $changeset = Prophet::ChangeSet->new({
+        creator              => $self->changeset_creator,
+        sequence_no          => $entry->{'revision'},
+        source_uuid          => $self->uuid,
+        original_source_uuid => $revprops->{'prophet:original-source'} || $self->uuid,
+        original_sequence_no => $revprops->{'prophet:original-sequence-no'} || $entry->{'revision'},
+        is_nullification     => ( ( $revprops->{'prophet:special-type'} || '' ) eq 'nullification' ) ? 1 : undef,
+        is_resolution        => ( ( $revprops->{'prophet:special-type'} || '' ) eq 'resolution' ) ? 1 : undef,
+    });
 
     # add each record's changes to the changeset
     for my $path ( keys %{ $entry->{'paths'} } ) {