Make the perl modules consistent for the multiple regression tests.

This includes coding style, better error messages and variable
naming.

1 files changed, 6 insertions, 6 deletions

diff --git a/regress/usr.sbin/relayd/direct.pl b/regress/usr.sbin/relayd/direct.pl
index c5d77c2ce22..e8950440aaa 100755
--- a/regress/usr.sbin/relayd/direct.pl
+++ b/regress/usr.sbin/relayd/direct.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
-#	$OpenBSD: direct.pl,v 1.2 2013/01/04 14:01:49 bluhm Exp $
+#	$OpenBSD: direct.pl,v 1.3 2014/08/18 22:58:19 bluhm Exp $
 
-# Copyright (c) 2010-2013 Alexander Bluhm <bluhm@openbsd.org>
+# Copyright (c) 2010-2014 Alexander Bluhm <bluhm@openbsd.org>
 #
 # Permission to use, copy, modify, and distribute this software for any
 # purpose with or without fee is hereby granted, provided that the above
@@ -28,12 +28,12 @@ sub usage {
 	die "usage: direct.pl [test-args.pl]\n";
 }
 
-my $test;
+my $testfile;
 our %args;
 if (@ARGV and -f $ARGV[-1]) {
-	$test = pop;
-	do $test
-	    or die "Do test file $test failed: ", $@ || $!;
+	$testfile = pop;
+	do $testfile
+	    or die "Do test file $testfile failed: ", $@ || $!;
 }
 
 @ARGV == 0 or usage();