Change ~ to $ENV{HOME}

Perl does not seem do be doing ~ expansion

diff --git a/scripts/mailbot b/scripts/mailbot
index 16234daba05a703f4a3df2e486a62846b1238393..4c7712b6bb43ae9c08e75594b7a915d076f315bf 100755 (executable)
--- a/scripts/mailbot
+++ b/scripts/mailbot
@@ -114,9 +114,9 @@ if (!$patch) {
        $author = $reply_plain;
 }
 
-$tprefix = "~/tmp/mbot-$$";
-$home = "~/";
-mkdir("~/tmp", 0777);
+$home = "$ENV{HOME}/";
+$tprefix = "${home}tmp/mbot-$$";
+mkdir("${home}tmp", 0777);
 mkdir($tprefix, 0777) || error("Cannot create tmpdir");
 chdir($tprefix) || error("Cannot chdir to tmpdir");