Fix error with more recent perl

[modbot-mtm.git] / webstump / scripts / webstump.pl

diff --git a/webstump/scripts/webstump.pl b/webstump/scripts/webstump.pl
index 3da004bc3842cf07dc112bb3e249b6e6b5a5a8ec..dfe7dc38e0b08fd139718d2824202e0687f0cee9 100755 (executable)
--- a/webstump/scripts/webstump.pl
+++ b/webstump/scripts/webstump.pl
@@ -9,6 +9,8 @@ if( !($0 =~ /\/scripts\/webstump\.pl$/) ) {
   die "This script can only be called with full path name!!!";
 }
 
+umask 007;
+
 $webstump_home = $0;
 $webstump_home =~ s/\/scripts\/webstump\.pl$//;
 
@@ -35,7 +37,7 @@ $html_mode = "yes";
 
 $command = "";
 
-if( defined %request ) {
+if(  %request ) {
   &disinfect_request;
   $command = $request{'action'} if( defined $request{'action'} );
 }