Lines Matching refs:Arg

338 my $Arg = $ARGV[0];
343 	if (-f $Arg) {
344 		my($RelPath) = $Arg;
347 			my $Prefix = $Arg;
350 			$Prefix = '.' if ($Prefix eq $Arg);
355 		my $IsSymLink = -l $Arg;
356 		ProcFile($Arg, $RelPath, 0, $IsSymLink, $dev, $ino);
361 	if (-d $Arg) {
362 		$Arg =~ s/\/$//;
363 		print "PREFIX $Arg\n" if $opt{r};
364 		ProcDir($Arg, ".", 0, 0);
368 	print STDERR "$Prog: not a file or directory: $Arg\n";