Lines Matching refs:orig

5637 		CORE::push @transfer, $arg->orig();
5639 		if(-e $arg->orig()) {
5640 		    $self->{'transfersize'} += (stat($arg->orig()))[7];
6419 		my $args = join(" ", map { $_->orig() } @$next_arg);
6562     return (join " ", map { $_->orig() }
6593 		 $rec_ref->[$n-1]->orig());
7234 	    my $line = $arg->orig();
7501     my $orig = shift;
7504 	if($orig =~ s:@(.+)::) {
7516 	'orig' => $orig,
7564 sub orig {  subroutine