[Bps-public-commit] r14961 - in Prophet/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Sat Aug  9 17:17:32 2008
New Revision: 14961

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/ChangeSet.pm

Log:
 r69037 at onn:  sartak | 2008-08-09 17:17:26 -0400
 Don't repeat original_source_uuid in history


Modified: Prophet/trunk/lib/Prophet/ChangeSet.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/ChangeSet.pm	(original)
+++ Prophet/trunk/lib/Prophet/ChangeSet.pm	Sat Aug  9 17:17:32 2008
@@ -170,14 +170,12 @@
 
     my $out = '';
 
-    $out .= "Changeset "
-         .  $self->original_sequence_no . '@' . $self->original_source_uuid
-         .  "\n";
-
-    no warnings 'uninitialized'; # old changesets don't have creator
-    $out .= "by "
-         .  $self->creator . '@' . $self->original_source_uuid
-         .  " at " . $self->created . "\n";
+    $out .= sprintf "Changeset %d@%s\n",
+                $self->original_sequence_no,
+                $self->original_source_uuid;
+    $out .= sprintf "by %s at %s\n",
+                ($self->creator || '(unknown)'),
+                $self->created;
 
     for my $change ($self->changes) {
         my @prop_changes = $change->prop_changes;