X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/cd639d72ba42aa0aa966729d41be24eb050aa0fc..c1339294a28926ba7593adbd3d48ef9f1bcf6dfa:/devedit.pl?ds=sidebyside diff --git a/devedit.pl b/devedit.pl index b63d3a1..237cf34 100644 --- a/devedit.pl +++ b/devedit.pl @@ -1,12 +1,12 @@ #!C:/Programme/Perl/bin/perl.exe -w # -# Dev-Editor 2.3 +# Dev-Editor 2.3.1 # # Dev-Editor's main program # # Author: Patrick Canterino -# Last modified: 2005-02-10 +# Last modified: 2005-02-13 # use strict; @@ -23,7 +23,7 @@ use Command; use Output; use Tool; -$VERSION = '2.3'; +$VERSION = '2.3.1'; # Path to configuration file # Change if necessary! @@ -69,7 +69,7 @@ if($newfile ne '' && $newfile !~ /^\s+$/) # ... check if the directory exists ... - unless(-d clean_path($config->{'fileroot'}.'/'.$dir)) + unless(-d clean_path($config->{'fileroot'}.'/'.$dir) && not -l clean_path($config->{'fileroot'}.'/'.$dir)) { abort($config->{'errors'}->{'dir_not_exist'},'/'); } @@ -97,7 +97,7 @@ if($newfile ne '' && $newfile !~ /^\s+$/) # This check has to be performed first or abs_path() will be confused -if(-e clean_path($config->{'fileroot'}.'/'.$file)) +if(-e clean_path($config->{'fileroot'}.'/'.$file) || -l clean_path($config->{'fileroot'}.'/'.$file)) { if(my ($physical,$virtual) = check_path($config->{'fileroot'},$file)) {