Lines Matching refs:ARGV
38 functions work from @ARGV rather than taking arguments. This makes
57 @ARGV = map(/[$wild_regex]/o ? glob($_) : $_,@ARGV);
81 my ($src,$dst) = @ARGV;
82 local @ARGV = ($dst); touch(); # in case $dst doesn't exist
95 rmtree([grep -e $_,@ARGV],0,0);
107 foreach (@ARGV)
126 foreach my $file (@ARGV) {
141 my $dst = pop(@ARGV);
143 croak("Too many arguments") if (@ARGV > 1 && ! -d $dst);
144 foreach my $src (@ARGV) {
157 my $dst = pop(@ARGV);
159 croak("Too many arguments") if (@ARGV > 1 && ! -d $dst);
160 foreach my $src (@ARGV) {
172 my $mode = shift(@ARGV);
174 chmod(oct $mode,@ARGV) || die "Cannot chmod ".join(' ',$mode,@ARGV).":$!";
186 File::Path::mkpath([@ARGV],0,0777);
197 exit !-f shift(@ARGV);