diff options
Diffstat (limited to 'regress/sys/kern/sosplice/udp/direct.pl')
| -rw-r--r-- | regress/sys/kern/sosplice/udp/direct.pl | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/regress/sys/kern/sosplice/udp/direct.pl b/regress/sys/kern/sosplice/udp/direct.pl index f8838375638..9720e823f3b 100644 --- a/regress/sys/kern/sosplice/udp/direct.pl +++ b/regress/sys/kern/sosplice/udp/direct.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl -# $OpenBSD: direct.pl,v 1.2 2013/01/05 13:53:42 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,14 +28,13 @@ 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(); my $s = Server->new( |