From: Michal Vaner <vorner@ucw.cz>
Date: Tue, 7 Oct 2008 09:12:01 +0000 (+0200)
Subject: Change ~ to $ENV{HOME}
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=caf6881876f18a96472413d5c98367b592f19d02;p=pciids.git

Change ~ to $ENV{HOME}

Perl does not seem do be doing ~ expansion
---

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");