Lines Matching refs:arg

1407     for(my $arg = shift @ARGV; @ARGV; $arg = shift @ARGV) {
1408         if($arg eq $Global::arg_sep
1410 	   $arg eq $Global::arg_file_sep) {
1411 	    my $group = $arg; # This group of arguments is args or argfiles
1413 	    while(defined ($arg = shift @ARGV)) {
1414 		if($arg eq $Global::arg_sep
1416 		   $arg eq $Global::arg_file_sep) {
1422 		    push @group, $arg;
1446 	    if(defined($arg)) {
1454 	push @new_argv, $arg;
2130 	my $arg = $Global::newest_job ?
2133 	$arg =~ tr/[\011-\016\033\302-\365]//d;
2136 		    $pctcomplete*100, $completed, $left, $eta, $arg);
2144 			     substr("#   $eta sec $arg",
3910     my $arg;
3969 		    ($arg) = $Global::JobQueue->{'commandlinequeue'}->{'arg_queue'}->get();
3970 		    push(@args, $arg);
5636 	    for my $arg (@$record) {
5637 		CORE::push @transfer, $arg->orig();
5639 		if(-e $arg->orig()) {
5640 		    $self->{'transfersize'} += (stat($arg->orig()))[7];
6465     for my $arg (@$record) {
6466 	if(defined $arg) {
6469 		$self->{'len'}{$perlexpr} += length $arg->replace($perlexpr,$quote_arg,$self);
6486     for my $arg (@$record) {
6487 	if(defined $arg) {
6490 		    length $arg->replace($perlexpr,$quote_arg,$self);
6758     my @arg;
6762 	CORE::push @arg, @$record;
6765     if(not @arg) { @arg = (Arg->new("")); }
6787 		 $arg[$2 > 0 ? $2-1 : $n+$2] ? # If defined: replace
6788 		 $arg[$2 > 0 ? $2-1 : $n+$2]->replace($3,$quote_arg,$self)
6807 	for my $arg (@arg) {
6814 		{$arg ? $arg->replace($perlexpr,$quote_arg,$self) : ""}eg;
7232 	for my $arg (@$in_record) {
7233 	    ::debug("run", "RecordColQueue::arg $arg\n");
7234 	    my $line = $arg->orig();
7320 	my $arg = read_arg_from_fh($fh);
7321 	if(defined $arg) {
7323 	    push @{$self->{'arg_matrix'}{$fh}}, $arg;
7324 	    push @record, $arg;
7356 	    my $arg = read_arg_from_fh($self->{'fhs'}[$fhno]);
7357 	    if(defined $arg) {
7360 	    $self->{'arg_matrix'}[$fhno][0] = $arg || Arg->new("");
7375 	my $arg = read_arg_from_fh($self->{'fhs'}[0]);
7376 	if(defined($arg)) {
7377 	    return [$arg];
7386 	    my $arg = read_arg_from_fh($self->{'fhs'}[$fhno]);
7387 	    defined($arg) || next; # If we just read an EOF string: Treat this as EOF
7389 	    $self->{'arg_matrix'}[$fhno][$len] = $arg;
7425     my $arg;
7428 	if(not ($arg = <$fh>)) {
7437 	$arg =~ s:$/$::;
7439 	   $arg eq $Global::end_of_file_string) {
7442 	    ::debug("run", "EOF-string ($arg) met\n");
7450 	    $arg = $prepend.$arg; # For line continuation
7454 	    if($arg =~ /^\s*$/) {
7459 	    if($arg =~ /\s$/) {
7461 		$prepend = $arg;
7466     if(defined $arg) {
7467 	return Arg->new($arg);
7578     my $arg;
7582 	for my $arg (@strings) { $arg =~ s/^\s+//; }
7584 	for my $arg (@strings) { $arg =~ s/\s+$//; }
7586 	for my $arg (@strings) { $arg =~ s/^\s+//; $arg =~ s/\s+$//; }