Searched refs:ARGV (Results 26 - 50 of 103) sorted by relevance
12345
/osnet-11/usr/src/cmd/dtrace_toolkit/DTT/Bin/ |
H A D | hotuser | 60 usage() if defined $ARGV[0] and $ARGV[0] eq "--help";
|
H A D | errinfo | 65 &Usage() if $ARGV[0] eq "--help";
|
/osnet-11/usr/src/cmd/dtrace_toolkit/DTT/ |
H A D | hotkernel | 57 usage() if defined $ARGV[0] and $ARGV[0] eq "--help";
|
H A D | hotuser | 60 usage() if defined $ARGV[0] and $ARGV[0] eq "--help";
|
H A D | errinfo | 65 &Usage() if $ARGV[0] eq "--help";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/DProf/t/ |
H A D | DProf.t | 27 @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 D | split_command.t | 29 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 D | nntp | 11 @groups = @ARGV;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/Perldoc/ |
H A D | GetOptsOO.pm | 7 # 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 D | inplace.t | 9 @ARGV = ('.a','.b','.c');
|
H A D | iprefix.t | 9 @ARGV = ('.a','.b','.c');
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/pod/ |
H A D | pod2usage.PL | 157 pod2usage(2) if ((@ARGV == 0) && (-t STDIN)); 159 @ARGV = ("-") unless (@ARGV > 0); 160 if (@ARGV > 1) { 166 $usage{-input} = shift(@ARGV);
|
H A D | podselect.PL | 127 pod2usage(2) if ((@ARGV == 0) && (-t STDIN)); 131 podselect({ -sections => $options{"sections"} }, @ARGV); 134 podselect(@ARGV);
|
H A D | podchecker.PL | 146 pod2usage(2) if ((@ARGV == 0) && (-t STDIN)); 150 @ARGV = qw(-) unless(@ARGV); 151 for my $podfile (@ARGV) {
|
H A D | pod2text.PL | 62 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 D | TEST | 13 @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 D | CheckIn | 47 @ARGV == 3 || die("Usage is $0 <mapping file> <perl build dir> <workspace>\n"); 48 my ($mapfile, $bld, $ws) = @ARGV;
|
H A D | EditedFiles | 60 getopts('d') && @ARGV == 3 || 62 my ($mapfile, $bld, $ws) = @ARGV;
|
/osnet-11/usr/src/cmd/sendmail/aux/ |
H A D | etrn.pl | 53 my $server = shift(@ARGV); 54 my @hosts = @ARGV;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/x2p/ |
H A D | find2perl.PL | 65 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 D | configpm | 27 (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 D | deparse.t | 109 LINE: while (defined($_ = <ARGV>)) { 191 $_ .= <ARGV> . <$foo>;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Digest/MD5/ |
H A D | Makefile.PL | 29 my $PERL_CORE = grep $_ eq "PERL_CORE=1", @ARGV;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/t/ |
H A D | Aliases.t | 105 @ARGV and $ON_EBCDIC = $ARGV[0] eq 'EBCDIC';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/Peek/t/ |
H A D | Peek.t | 421 # 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