$NetBSD: patch-aa,v 1.1.1.1 2003/06/01 15:59:18 jmmv Exp $

--- linuxsms.orig	2003-06-01 17:57:09.000000000 +0200
+++ linuxsms
@@ -129,7 +129,9 @@ sub set_ansi() {
 sub main_test() {
     # test if exist home of script, else try to create
     if (! opendir(DIR, $HOME)) {
-        mkdir ($HOME, 0700) or die $c_red.$c_bold.$c_blink."error\!, can\'t create ".$HOME.$c_default."\n";
+        $main::tmphome=$HOME;
+        $main::tmphome =~ s|/$||g;
+        mkdir ($main::tmphome, 0700) or die $c_red.$c_bold.$c_blink."error\!, can\'t create ".$HOME.$c_default."\n";
         print $c_yellow.$c_bold."Creating ".$HOME.$c_default."\n";
     }
     closedir (DIR);
