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

[sartak at bestpractical.com]

Author: sartak
Date: Thu May  8 20:32:48 2008
New Revision: 12176

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

Log:
 r55472 at onn:  sartak | 2008-05-08 20:32:26 -0400
 Warn if the record was not created (by looking at uuid)


Modified: Prophet/trunk/lib/Prophet/CLI.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/CLI.pm	(original)
+++ Prophet/trunk/lib/Prophet/CLI.pm	Thu May  8 20:32:48 2008
@@ -214,6 +214,10 @@
     my $record = $self->_get_record;
 
     $record->create( props => $self->args );
+    if (!$record->uuid) {
+        warn "Failed to create " . $record->record_type . "\n";
+        return;
+    }
 
     print "Created " . $record->record_type . " " . $record->uuid . "\n";