Searched refs:ARGV (Results 1 - 25 of 39) sorted by relevance

12

/bind-9.11.3/bin/tests/startperf/
H A Dmakenames.pl12 die "Usage: makenames.pl <num> [<len>]" if (@ARGV == 0 || @ARGV > 2);
14 $len = @ARGV[1] if (@ARGV == 2);
19 for (my $i = 0; $i < @ARGV[0]; $i++) {
H A Dmkzonefile.pl12 die "Usage: makenames.pl zonename num_records" if (@ARGV != 2);
13 my $zname = @ARGV[0];
14 my $nrecords = @ARGV[1];
/bind-9.11.3/bin/tests/system/dnssec/
H A Dntadiff.pl13 exit 1 if (scalar(@ARGV) != 2);
15 my $actual = Time::Piece->strptime($ARGV[0], '%d-%b-%Y %H:%M:%S.000 %z');
16 my $expected = Time::Piece->strptime($ARGV[1], '%s') + ONE_WEEK;
H A Ddnssec_update_test.pl44 @ARGV == 1 or die
47 $zone = shift @ARGV;
/bind-9.11.3/util/
H A Dupdate-drafts.pl22 foreach (@ARGV) {
H A Dnew-func59 @ARGV == 2 || @ARGV == 3 or die "usage: $0 changes-file-1 changes-file-2\n";
61 my $c1 = readfile($ARGV[0]);
62 my $c2 = readfile($ARGV[1]);
63 if (@ARGV == 3) {
64 $c3 = readfile($ARGV[2]);
H A Dcheck-pullups.pl58 @ARGV == 2 || @ARGV == 3 or die "usage: $0 changes-file-1 changes-file-2\n";
60 my $c1 = readfile($ARGV[0]);
61 my $c2 = readfile($ARGV[1]);
62 if (@ARGV == 3) {
63 $c3 = readfile($ARGV[2]);
H A Dcheck-changes16 eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
H A Dspacewhack.pl13 if (@ARGV != 0) {
/bind-9.11.3/bin/tests/system/
H A Dsend.pl19 @ARGV == 2 or die "usage: send.pl host port [file ...]\n";
21 my $host = shift @ARGV;
22 my $port = shift @ARGV;
H A Dtestsock6.pl15 foreach $addr (@ARGV) {
H A Dstop.pl28 while (@ARGV && $ARGV[0] =~ /^-/) {
29 my $opt = shift @ARGV;
37 my $test = $ARGV[0];
38 my $server = $ARGV[1];
H A Ddigcomp.pl16 if ($ARGV[0] eq "--lc") {
20 $file1 = $ARGV[0];
21 $file2 = $ARGV[1];
H A Dditch.pl46 if (@ARGV >= 1) {
47 my $filename = shift @ARGV;
H A Dpacket.pl66 if (@ARGV >= 1) {
67 my $filename = shift @ARGV;
/bind-9.11.3/conftools/perllib/dnsconf/
H A Dtest.pl11 push(@ARGV, "/etc/named.conf") if ! @ARGV;
20 $named->parse($ARGV[0]);
24 print "the directory value in $ARGV[0] is: ";
/bind-9.11.3/bin/tests/
H A Dfromhex.pl23 if (@ARGV >= 1) {
24 my $filename = shift @ARGV;
/bind-9.11.3/bin/tests/system/statschannel/
H A Dfetch.pl29 if (@ARGV >= 1) {
30 $path = shift @ARGV;
H A Dtraffic-json.pl15 my $file = $ARGV[0];
/bind-9.11.3/bin/tests/virtual-time/
H A Dstop.pl28 while (@ARGV && $ARGV[0] =~ /^-/) {
29 my $opt = shift @ARGV;
37 my $test = $ARGV[0];
38 my $server = $ARGV[1];
H A Dstart.pl31 my $test = $ARGV[0];
32 my $server = $ARGV[1];
33 my $options = $ARGV[2];
/bind-9.11.3/bin/tests/system/checkds/
H A Ddig.pl15 foreach $arg (@ARGV) {
/bind-9.11.3/bin/tests/system/nsupdate/ans4/
H A Dans.pl20 if (@ARGV > 0) {
21 $server_addr = @ARGV[0];
/bind-9.11.3/bin/tests/system/formerr/
H A Dformerr.pl62 if (@ARGV >= 1) {
63 my $filename = shift @ARGV;
/bind-9.11.3/bin/tests/system/stress/
H A Dupdate.pl49 @ARGV == 1 or die
52 $zone = shift @ARGV;

Completed in 17 milliseconds

12