diff options
Diffstat (limited to 'regress/sys/kern/sosplice/error/error.pl')
| -rw-r--r-- | regress/sys/kern/sosplice/error/error.pl | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/regress/sys/kern/sosplice/error/error.pl b/regress/sys/kern/sosplice/error/error.pl index 4205c402579..c1c4dc59b79 100644 --- a/regress/sys/kern/sosplice/error/error.pl +++ b/regress/sys/kern/sosplice/error/error.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl -# $OpenBSD: error.pl,v 1.1 2013/01/03 17:36:39 bluhm Exp $ +# $OpenBSD: error.pl,v 1.2 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 @@ -25,14 +25,13 @@ sub usage { @ARGV == 1 or usage(); -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(); $args{func}->(); |