Lines Matching refs:_
105 my $s = shift @_;
122 if (!defined($_)) {
125 quotify1($_);
127 } @_;
151 sub { $_ = shift;
152 ($_ eq '' || /\s|[\{\}\\\$\[\]\*\?\|\&:;<>]/) ? "'$_'" : $_ };
156 $_ = shift;
157 if ($_ eq '' || /\s|[!"[:upper:]]/) {
159 '"'.$_.'"';
161 $_;
166 $_ = shift;
167 if ($_ eq '' || /\s|["\|\&\*\;<>]/) {
169 '"'.$_.'"';
171 $_;
176 return ( map { $arg_formatter->($_) } @_ );
192 return fixup_cmd_elements(@_) unless $^O eq 'VMS';
235 return ( @prefix, $cmd, fixup_cmd_elements(@_) );
268 my %opts = @_;
293 dump_data(\$_, %subopts)
305 quotify1($_) . " => " . dump_data($ref->{$_}, %subopts);
