# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1221053774 -14400
# Node ID a58a62e9d695363d114e833faa23ecba622656b4
# Parent  9eb5096956518deaa4708d95e4d02c64e46b78d1
Tests: don't cleanup temp directories if LEAVE set in the env.

diff --git a/_common.pm b/_common.pm
--- a/_common.pm
+++ b/_common.pm
@@ -31,7 +31,8 @@ our $s;
 sub start_nginx {
 	my ($conf) = @_;
 
-	$testdir = tempdir('nginx-test-XXXXXXXXXX', TMPDIR => 1, CLEANUP => 1)
+	$testdir = tempdir('nginx-test-XXXXXXXXXX', TMPDIR => 1,
+		CLEANUP => not $ENV{LEAVE})
 		or die "Can't create temp directory: $!\n";
 
 	system("cat $conf | sed 's!%%TESTDIR%%!$testdir!g' "