improves portability of the script

1 files changed, 2 insertions, 1 deletions

diff --git a/minimun b/minimun
index ff00960..3070174 100755
--- a/minimun
+++ b/minimun
@@ -5,6 +5,8 @@ use warnings;
 use IPC::Run qw(run);
 use Time::HiRes qw( time );
 
+chdir('/home/minimun/minimun');
+
 my ($buffer, @pairs, $pair, $name, $val, %FORM);
 
 if ($ENV{'REQUEST_METHOD'} eq "GET") {
@@ -36,7 +38,6 @@ else{
   die;
 }
 
-
 $in .= "\\bye\n";
 
 my $timestamp = time;