X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FObject%2FRemote%2FModuleSender.pm;h=681ef966ba6c707727e160c44dabdb20ac18f10a;hb=710f1c32ba19676990ecda960c9eff96c4002328;hp=ae1f72ca6d3864fb5ae12a6d53242767aaa3cc2d;hpb=4a9fa1a5a329754549f998536e0e68f19d42d7ab;p=scpubgit%2FObject-Remote.git

diff --git a/lib/Object/Remote/ModuleSender.pm b/lib/Object/Remote/ModuleSender.pm
index ae1f72c..681ef96 100644
--- a/lib/Object/Remote/ModuleSender.pm
+++ b/lib/Object/Remote/ModuleSender.pm
@@ -20,14 +20,15 @@ sub source_for {
   log_debug { "locating source for module '$module'" };
   if (my $find = Object::Remote::FromData->can('find_module')) {
     if (my $source = $find->($module)) {
-      return Dlog_trace { "Object::Remote::FromData->find_module('$module') returned '$_'" } $source;
+      Dlog_trace { "source of '$module' was found by Object::Remote::FromData" };
+      return $source;
     }
   }
   log_trace { "Searching for module in library directories" };
   my ($found) = first {  -f $_ }
                   map File::Spec->catfile($_, $module),
                     @{$self->dir_list};
-  die "Couldn't find ${module} in remote \@INC. dir_list contains:\n"
+  die "Can't locate ${module} in \@INC. (on remote host) dir_list contains:\n"
       .join("\n", @{$self->dir_list})
     unless $found;
   log_debug { "found '$module' at '$found'" };