$NetBSD: patch-ab,v 1.3 2007/12/29 21:29:55 joerg Exp $

--- ../../vicq.orig	Mon Apr 15 18:55:17 2002
+++ ../../vicq
@@ -2010,7 +2010,7 @@
 		$config{log_path} = expand_file($config{log_path});
 		$config{log_path}.='/' unless $config{log_path}=~/\/$/;
 	}else{
-		$config{log_path}="$ENV{HOME}/.vicq/history/";
+		$config{log_path}="$ENV{HOME}/.vicq/history";
 		  }
 	unless( -e $config{log_path} || $config{log_path} eq $ENV{HOME})
 	{
@@ -2494,7 +2494,7 @@
 	$uin =~ s/\033\[.m//g;
 
 	my $fname=($config{log_type}=~/a/)?'vicq.log':"$uin.log";
-	open LOG,">> $config{log_path}$fname" or warn "Can't open file $config{log_path}$fname";
+	open LOG,">> $config{log_path}/$fname" or warn "Can't open file $config{log_path}$fname";
 	print LOG "--[$format $now_string\n";
 	print LOG $message;
 	print LOG "\n" if $config{log_type}=~/n/;
@@ -2834,7 +2834,7 @@
 	my $pager = $ENV{'PAGER'} || 'less -R';
 	my $home = $ENV{HOME};
 	my $fname=($config{log_type}=~/a/)?'vicq.log':"$uin.log";
-	if(!(open LOG,"< $config{log_path}$fname"))
+	if(!(open LOG,"< $config{log_path}/$fname"))
 	{
 		print "No history file for $uin\n";
 		return;
