X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/1e1c9d8ed1f783a573036702f25e008fadd524b9..8e187e4f2ec51c2306c5d69755db1cc04e5e2cee:/modules/Command.pm

diff --git a/modules/Command.pm b/modules/Command.pm
index 0b39533..96dbf52 100644
--- 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>
-# Last modified: 2004-12-28
+# Last modified: 2005-01-01
 #
 
 use strict;
@@ -500,6 +500,8 @@ sub exec_upload($$)
   my $ascii     = $cgi->param('ascii');
   my $handle    = $cgi->upload('uploaded_file');
 
+  return error($config->{'errors'}->{'invalid_upload'},$virtual) unless($handle);
+
   # Read transferred file and write it to disk
 
   read($handle, my $data, -s $handle);