# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1454336348 -3600
# Node ID 70dd03ca2394da005b757ed54b0b492ccff3766d
# Parent  296eb0085df823e6e48415e2eca4d23f8ceeb854
noch eine warnung stillgelegt

diff -r 296eb0085df8 -r 70dd03ca2394 upload.pl
--- a/upload.pl	Mon Feb 01 11:36:32 2016 +0100
+++ b/upload.pl	Mon Feb 01 15:19:08 2016 +0100
@@ -20,6 +20,9 @@
 #   Alias	/d	    /home/ud/XXX/d/
 # gesetzt werden.
 
+# silence 'WARNING: HOME is not set, using root: /' from BaseDir.pm which is used by File::MimeInfo
+BEGIN { $ENV{HOME} //= '.'; }
+
 use 5.014;
 use strict;
 use warnings;