Lines Matching refs:_
83 BEGIN { eval q(sub qr { '' =~ $_[0]; $_[0] }) if $] < 5.005 }
98 my ($inc, $required) = @$_;
142 $hash->{$key} .= $_;
154 for (keys %$hash) { $hash->{$_} =~ s/\n+$/\n/ }
165 join '', map { s/ +$//; expand $_ } `$ARGV[0] --$_ 2>/dev/null`
166 or die "$this_program: can't get `--$_' info from $ARGV[0]\n"
195 ($_, $version_text) = split /\n+/, $version_text, 2;
212 $version = $_;
234 if ($_ = $4)
237 for (split /\n/) { s/^ *(or: +)?//; push @syn, $_ }
250 $_ .= '\fR';
257 $synopsis .= "$_\n";
265 $_ = "$help_text\n\n$version_text";
300 ($copy, $_) = split /\n\n/, $_, 2;
320 $_ ||= '';
484 if ($include{$_})
487 print ".SH $quote$_$quote\n";
489 for ($include{$_})
506 local $_ = '\fB' . shift;
513 $_ .= '\fR';
516 $_;