Lines Matching refs:ARGV
13 @ARGV = grep($_,@ARGV) if $^O eq 'VMS';
17 if ($#ARGV >= 0) {
18 foreach my $idx (0..$#ARGV) {
19 push( @argv, $ARGV[$idx] ), next unless $ARGV[$idx] =~ /^-(\S+)$/;
34 @ARGV = @argv;
78 push @ARGV, $fullpath if $f =~ /\.t$/;
95 unless (@ARGV) {
108 push @ARGV, $path;
129 _testprogs('deparse', '', @ARGV);
132 _testprogs('compile', '', @ARGV);
135 _testprogs('bytecompile', '', @ARGV);
138 _testprogs('compile', '', @ARGV) if -e "../testcompile";
139 _testprogs('perl', '', @ARGV);