X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/548d69a4ee38cc59612e787f479ac198d5c37741..cbd1dfad21c6f2868a40a1869fb32f3f2740c07a:/devedit.pl?ds=inline diff --git a/devedit.pl b/devedit.pl index 4ddc9e1..22dc403 100644 --- a/devedit.pl +++ b/devedit.pl @@ -1,7 +1,7 @@ #!C:/Programme/Perl/bin/perl.exe -w # -# Dev-Editor 2.2a +# Dev-Editor 2.3 # # Dev-Editor's main program # @@ -23,7 +23,7 @@ use Command; use Output; use Tool; -$VERSION = '2.2a'; +$VERSION = '2.3'; # Path to configuration file # Change if necessary! @@ -60,7 +60,7 @@ my $new_virtual = ''; if($newfile ne '' && $newfile !~ /^\s+$/) { $curdir = upper_path($file) if($curdir eq ''); - my $path = $curdir.$newfile; + my $path = $curdir.'/'.$newfile; # Extract file and directory name... @@ -110,8 +110,8 @@ if(-e clean_path($config->{'fileroot'}.'/'.$file)) $uselist->lock or abort($config->{'errors'}->{'lock_failed'},undef,{USELIST => $uselist->{'listfile'}, LOCK_FILE => $uselist->{'lockfile'}}); $uselist->load; - # Create a hash with data submitted by user - # (some other necessary information will also be included) + # Create a hash containing data submitted by the user + # (some other necessary information are also included) my %data = (physical => $physical, virtual => $virtual,