From d17fd7f524894e58ce3113a1b2ddbfcfb00932f1 Mon Sep 17 00:00:00 2001
From: pcanterino <>
Date: Mon, 29 Nov 2004 15:32:43 +0000
Subject: [PATCH] File uploads did not work. Fixed in Dev-Editor 2.2a.

---
 devedit.pl         | 4 ++--
 modules/Command.pm | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/devedit.pl b/devedit.pl
index 2bf27bf..44ced92 100644
--- a/devedit.pl
+++ b/devedit.pl
@@ -1,7 +1,7 @@
 #!C:/Programme/Perl/bin/perl.exe -w
 
 #
-# Dev-Editor 2.2
+# Dev-Editor 2.2a
 #
 # Dev-Editor's main program
 #
@@ -23,7 +23,7 @@ use Command;
 use Output;
 use Tool;
 
-$VERSION = '2.2';
+$VERSION = '2.2a';
 
 # Path to configuration file
 # Change if necessary!
diff --git a/modules/Command.pm b/modules/Command.pm
index 1423442..da70b34 100644
--- a/modules/Command.pm
+++ b/modules/Command.pm
@@ -484,7 +484,7 @@ sub exec_upload($$)
  my $cgi            = $data->{'cgi'};
 
  return error($config->{'errors'}->{'no_directory'},upper_path($virtual),{FILE => $virtual}) unless(-d $physical);
- return error($config->{'errors'}->{'dir_no_create'},$virtual,{DIR => $virtual});
+ return error($config->{'errors'}->{'dir_no_create'},$virtual,{DIR => $virtual})             unless(-w $physical);
 
  if(my $uploaded_file = $cgi->param('uploaded_file'))
  {
-- 
2.43.0