Searched refs:ARGV (Results 26 - 50 of 103) sorted by relevance

12345

/osnet-11/usr/src/cmd/dtrace_toolkit/DTT/Bin/
H A Dhotuser60 usage() if defined $ARGV[0] and $ARGV[0] eq "--help";
H A Derrinfo65 &Usage() if $ARGV[0] eq "--help";
/osnet-11/usr/src/cmd/dtrace_toolkit/DTT/
H A Dhotkernel57 usage() if defined $ARGV[0] and $ARGV[0] eq "--help";
H A Dhotuser60 usage() if defined $ARGV[0] and $ARGV[0] eq "--help";
H A Derrinfo65 &Usage() if $ARGV[0] eq "--help";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/DProf/t/
H A DDProf.t27 @tests = @ARGV ? @ARGV : sort (<lib/dprof/*_t>, <lib/dprof/*_v>); # glob-sort, for OS/2
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A Dsplit_command.t29 my $echo = $mm->oneliner(q{print @ARGV}, ['-l']);
44 $even_args = $mm->oneliner(q{print !(@ARGV % 2)});
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/demos/
H A Dnntp11 @groups = @ARGV;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/Perldoc/
H A DGetOptsOO.pm7 # Call Pod::Perldoc::GetOptsOO::getopts($object, \@ARGV, $truth)
32 $args ||= \@ARGV;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dinplace.t9 @ARGV = ('.a','.b','.c');
H A Diprefix.t9 @ARGV = ('.a','.b','.c');
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/pod/
H A Dpod2usage.PL157 pod2usage(2) if ((@ARGV == 0) && (-t STDIN));
159 @ARGV = ("-") unless (@ARGV > 0);
160 if (@ARGV > 1) {
166 $usage{-input} = shift(@ARGV);
H A Dpodselect.PL127 pod2usage(2) if ((@ARGV == 0) && (-t STDIN));
131 podselect({ -sections => $options{"sections"} }, @ARGV);
134 podselect(@ARGV);
H A Dpodchecker.PL146 pod2usage(2) if ((@ARGV == 0) && (-t STDIN));
150 @ARGV = qw(-) unless(@ARGV);
151 for my $podfile (@ARGV) {
H A Dpod2text.PL62 for (my $i = 0; $i < @ARGV; $i++) {
63 last if $ARGV[$i] =~ /^--$/;
64 if ($ARGV[$i] =~ /^-(\d+)$/) {
65 splice (@ARGV, $i++, 1, '-w', $1);
69 # Insert -- into @ARGV before any single dash argument to hide it from
73 @ARGV = map { $_ eq '-' && !$stdin++ ? ('--', $_) : $_ } @ARGV;
103 $parser->parse_from_file (@ARGV);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/
H A DTEST13 @ARGV = grep($_,@ARGV) if $^O eq 'VMS';
17 if ($#ARGV >= 0) {
18 foreach my $idx (0..$#ARGV) {
19 push( @argv, $ARGV[$idx] ), next unless $ARGV[$idx] =~ /^-(\S+)$/;
34 @ARGV = @argv;
78 push @ARGV, $fullpath if $f =~ /\.t$/;
95 unless (@ARGV) {
108 push @ARGV,
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/utils/port/
H A DCheckIn47 @ARGV == 3 || die("Usage is $0 <mapping file> <perl build dir> <workspace>\n");
48 my ($mapfile, $bld, $ws) = @ARGV;
H A DEditedFiles60 getopts('d') && @ARGV == 3 ||
62 my ($mapfile, $bld, $ws) = @ARGV;
/osnet-11/usr/src/cmd/sendmail/aux/
H A Detrn.pl53 my $server = shift(@ARGV);
54 my @hosts = @ARGV;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/x2p/
H A Dfind2perl.PL65 while ($ARGV[0] =~ /^[^-!(]/) {
85 while (@ARGV) {
168 while (@ARGV && $ARGV[0] ne ';')
177 } elsif (!@ARGV) {
192 while (@ARGV && $ARGV[0] ne ';')
227 die "-tar must have a filename argument\n" unless @ARGV;
238 die "-$_ must have a filename argument\n" unless @ARGV;
253 if (@ARGV) {
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dconfigpm27 (map {/^--([\-_\w]+)=(.*)$/} @ARGV),
29 (map {/^no-?(.*)$/i?($1=>0):($_=>1)} map {/^--([\-_\w]+)$/} @ARGV),
37 @ARGV = grep {!/^--/} @ARGV;
46 my $Glossary = $ARGV[1] || 'Porting/Glossary';
52 $Config_PM = $ARGV[0] || "xlib/$Opts{cross}/Config.pm";
55 $Config_PM = $ARGV[0] || 'lib/Config.pm';
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/
H A Ddeparse.t109 LINE: while (defined($_ = <ARGV>)) {
191 $_ .= <ARGV> . <$foo>;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Digest/MD5/
H A DMakefile.PL29 my $PERL_CORE = grep $_ eq "PERL_CORE=1", @ARGV;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/t/
H A DAliases.t105 @ARGV and $ON_EBCDIC = $ARGV[0] eq 'EBCDIC';
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/Peek/t/
H A DPeek.t421 # C<scalar(@ARGV)> is turned into an IV on VMS hence the (?:IV)?
424 $ENV{PATH}=@ARGV, # scalar(@ARGV) is a handy known tainted value

Completed in 119 milliseconds

12345