shlist

commit 29f8b38d163b36992bcab7ffd0eb4bb31fd1662f
parent 911a2d67c709be6325b0c3ced56aff7d953fa402
Author: kyle <kyle@getaddrinfo.net>
Date:   Sat, 28 Nov 2015 13:31:49 -0700

tests/test.pm: don't freak if TEST_DIR isn't in the environment

Diffstat:
M
tests/test.pm
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/tests/test.pm b/tests/test.pm
@@ -13,7 +13,9 @@ our (%msg_num, @msg_str);
 our @EXPORT = qw(new_socket fail send_msg recv_msg %msg_num @msg_str SHUT_RDWR);
 
 sub fail {
-	print "$ENV{TEST_DIR}/$0: " . shift . "\n";
+	my $test_dir = '.';
+	$test_dir = $ENV{TEST_DIR} if ($ENV{TEST_DIR});
+	print "$test_dir/$0: " . shift . "\n";
 	exit 1;
 }