From caf6881876f18a96472413d5c98367b592f19d02 Mon Sep 17 00:00:00 2001
From: Michal Vaner <vorner@ucw.cz>
Date: Tue, 7 Oct 2008 11:12:01 +0200
Subject: [PATCH] Change ~ to $ENV{HOME}

Perl does not seem do be doing ~ expansion
---
 scripts/mailbot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scripts/mailbot b/scripts/mailbot
index 16234da..4c7712b 100755
--- 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");
 
-- 
2.39.2