The file saving process was aborted if the user wanted to write text data using

[devedit.git] / modules / Command.pm

diff --git a/modules/Command.pm b/modules/Command.pm
index cd3f6fbf8d43374f1f7951489624572226c88932..e6491e7c9bc0db3f020c9d6dc5e660c11ef87e2b 100644 (file)
--- a/modules/Command.pm
+++ b/modules/Command.pm
@@ -6,7 +6,7 @@ package Command;
 # Execute Dev-Editor's commands
 #
 # Author:        Patrick Canterino <patrick@patshaping.de>
 # Execute Dev-Editor's commands
 #
 # Author:        Patrick Canterino <patrick@patshaping.de>

-# Last modified: 2005-02-12
+# Last modified: 2005-02-14

 #
 
 use strict;
 #
 
 use strict;


@@ -391,7 +391,7 @@ sub exec_endedit($$)
  return error($config->{'errors'}->{'link_edit'},$dir)      if(-l $physical);
  return error($config->{'errors'}->{'dir_edit'},$dir)       if(-d $physical);
  return error($config->{'errors'}->{'no_edit'},$dir)        if(-e $physical && !(-r $physical && -w $physical));
  return error($config->{'errors'}->{'link_edit'},$dir)      if(-l $physical);
  return error($config->{'errors'}->{'dir_edit'},$dir)       if(-d $physical);
  return error($config->{'errors'}->{'no_edit'},$dir)        if(-e $physical && !(-r $physical && -w $physical));

- return error($config->{'errors'}->{'text_to_binary'},$dir) unless(-T $physical);
+ return error($config->{'errors'}->{'text_to_binary'},$dir) if(-e $physical && not -T $physical);

 
  if(file_save($physical,\$content))
  {
 
  if(file_save($physical,\$content))
  {