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