X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/7e3e740e7f5c66f58c327b1e34fa45dd57ae7e0b..9f3101dfe2af7b176b0d191dd75d3d3d14ee2c34:/modules/Command.pm

diff --git a/modules/Command.pm b/modules/Command.pm
index d910bda..5105c3b 100644
--- a/modules/Command.pm
+++ b/modules/Command.pm
@@ -581,6 +581,7 @@ sub exec_copy($$)
  my $new_physical   = $data->{'new_physical'};
 
  return error($config->{'errors'}->{'link_copy'},$dir) if(-l $physical);
+ return error($config->{'errors'}->{'no_copy'},$dir)   unless(-r $physical);
 
  if($new_physical)
  {