X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/1fbf10bec35aeb289a9cf3e1c65a826883bffdea..e51c98a37882eaa39c0e3f1b8727ba06ecd7e626:/devedit.pl?ds=sidebyside diff --git a/devedit.pl b/devedit.pl index f6d59c9..909550b 100644 --- a/devedit.pl +++ b/devedit.pl @@ -1,12 +1,12 @@ #!C:/Programme/Perl/bin/perl.exe -w # -# Dev-Editor 3.0 (CVS) +# Dev-Editor 3.0 # # Dev-Editor's main program # # Author: Patrick Canterino -# Last modified: 2005-06-09 +# Last modified: 2005-06-14 # use strict; @@ -22,7 +22,7 @@ use Command; use Output; use Tool; -$VERSION = '3.0 (CVS)'; +$VERSION = '3.0'; # Path to configuration file # Change if necessary! @@ -95,7 +95,7 @@ if($newfile ne '' && $newfile !~ /^\s+$/) $new_physical = File::Spec->canonpath($new_physical.'/'.$file); $new_virtual .= $file; - # Check if the file is denied by configuration + # Check if accessing this file is forbidden if(is_forbidden_file($config->{'forbidden'},$new_virtual)) {