# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1454322992 -3600
# Node ID 296eb0085df823e6e48415e2eca4d23f8ceeb854
# Parent  15f109d06ec0b964cc498e5db158d5a6193dda59
warning stillgelegt

diff -r 15f109d06ec0 -r 296eb0085df8 upload.pl
--- a/upload.pl	Fri Nov 20 17:57:22 2015 +0100
+++ b/upload.pl	Mon Feb 01 11:36:32 2016 +0100
@@ -108,7 +108,8 @@
       or mkdir $DIR => 0750
       or die "Can't mkdir $DIR: $!\n";
 
-    if (param("delete") =~ /([-a-z\d]+-\d+-.)/i) {
+    my $delete = param("delete");
+    if (defined $delete and $delete =~ /([-a-z\d]+-\d+-.)/i) {
         deletedir $1;
         print redirect(-uri => url(-path_info => 1));
         exit 0;