From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 11 Dec 2009 12:16:39 +0000 (+0100)
Subject: create var dir if needed
X-Git-Url: http://git.rot13.org/?p=HTTP-Proxy-Archive.git;a=commitdiff_plain;h=cdbfd6962d76352ddc39c8b530611d68cc452e7b

create var dir if needed
---

diff --git a/proxy.pl b/proxy.pl
index 3994010..f6fc12b 100755
--- a/proxy.pl
+++ b/proxy.pl
@@ -14,6 +14,7 @@ use Data::Dump qw(dump);
 sub var_save {
 	my ( $dir, $name, $value ) = @_;
 	$value ||= "\n";
+	mkdir 'var' unless -e 'var';
 	mkdir "var/$dir" unless -e "var/$dir";
 	open(my $fh, '>>', "var/$dir/$name") || die $!;
 	print $fh $value;