[Bps-public-commit] r17390 - Prophet/trunk/lib/Prophet/CLI/Command

[jesse at bestpractical.com]

Author: jesse
Date: Sat Dec 27 19:50:15 2008
New Revision: 17390

Modified:
   Prophet/trunk/lib/Prophet/CLI/Command/Pull.pm

Log:
* record uuid on pull

Modified: Prophet/trunk/lib/Prophet/CLI/Command/Pull.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/CLI/Command/Pull.pm	(original)
+++ Prophet/trunk/lib/Prophet/CLI/Command/Pull.pm	Sat Dec 27 19:50:15 2008
@@ -30,7 +30,7 @@
         #if ( $self->has_arg('all') || $self->has_arg('local') );
         $self->set_arg( from => $from );
         $self->SUPER::run();
-        if ($from eq $explicit_from) {
+        if ($self->source->uuid and ($from eq $explicit_from)) {
             $self->record_pull_from_source($explicit_from, $self->source->uuid);
         }
         print "\n";
@@ -47,9 +47,7 @@
             my $meta = $_;
             my ($url,$uuid);
             ($url, $uuid ) = split(qr/ \| /,$meta,2);
-         ($previous_sources->{$meta} => $url
-         
-         )
+         ($previous_sources->{$meta} => $url )
      } keys %$previous_sources;
     if ( !exists $sources_by_url{$source}) {
         $previous_sources->{$source} = $source ." | ".$from_uuid;