Searched refs:ARGV (Results 51 - 75 of 103) sorted by relevance

12345

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Digest/
H A Dfile.pm51 for (@ARGV) {
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/
H A Dhostent.pm109 @ARGV = ('netscape.com') unless @ARGV;
111 for $host ( @ARGV ) {
H A Dnetent.pm125 @ARGV = ('loopback') unless @ARGV;
129 for $net ( @ARGV ) {
H A Dservent.pm95 while (@ARGV) {
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/bin/
H A Dprove23 @ARGV = map { /^(-I)(.+)/ ? ($1,$2) : $_ } @ARGV;
27 unshift @ARGV, split( " ", $ENV{PROVE_SWITCHES} ) if defined $ENV{PROVE_SWITCHES};
76 @ARGV = File::Spec->curdir unless @ARGV;
77 push( @tests, -d $_ ? all_in( $_ ) : $_ ) for @ARGV;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/utils/
H A Dh2ph.PL75 @ARGV = ('-') unless @ARGV;
549 while (@ARGV) {
550 $file = shift @ARGV;
571 # Put all the files in $directory into @ARGV for processing.
582 # expand_glob() is going to be called until $ARGV[0] isn't a
584 if (-d "$directory/$_") { push @ARGV, "$directory/$_" }
585 else { unshift @ARGV, "$directory/$_" }
602 # the contents of $target) into @ARGV; as a side effect down the
643 push(@ARGV,
[all...]
H A Dc2ph.PL376 eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_]+=)(.*)/ && shift;
393 eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_]+=)(.*)/ && shift;
493 if (@ARGV) {
494 if (grep(!/\.[csh]$/,@ARGV)) {
498 elsif (grep(/\.s$/,@ARGV)) {
499 if (@ARGV > 1) {
504 elsif (@ARGV == 1 && $ARGV[0] =~ /\.c$/) {
505 local($dir, $file) = $ARGV[0] =~ m#(.*/)?(.*)$#;
508 $ARGV[
[all...]
H A Dperlcc.PL126 run("$Output @ARGV");
161 unshift @ARGV, split ' ', $ENV{PERLCC_OPTS} if $ENV{PERLCC_OPTS};
200 warn "$0: using -e 'code' as input file, ignoring @ARGV\n" if @ARGV;
207 $Input = shift @ARGV; # XXX: more files?
211 warn "$0: using $Input as input file, ignoring @ARGV\n" if @ARGV;
H A Dpl2pm.PL77 my $newname = $ARGV;
H A Dperlivp.PL63 while ($ARGV[0] =~ /^-/) {
64 $ARGV[0] =~ s/^-//;
65 for my $flag (split(//,$ARGV[0])) {
H A Ddprofpp.PL337 my @tmpargv = @ARGV;
338 @ARGV = split( ' ', $ENV{DPROFPP_OPTS} );
340 if( @ARGV ){
344 @ARGV = @tmpargv;
348 if( @ARGV ){
/osnet-11/usr/src/grub/grub-0.97/docs/
H A Dhelp2man76 die $help_info unless @ARGV == 1;
165 join '', map { s/ +$//; expand $_ } `$ARGV[0] --$_ 2>/dev/null`
166 or die "$this_program: can't get `--$_' info from $ARGV[0]\n"
170 (my $program = $ARGV[0]) =~ s!.*/!!;
/osnet-11/usr/src/cmd/perl/5.8.4/utils/port/
H A DInstallPerl73 my $config_only = @ARGV && $ARGV[0] eq '-c' ? 1 : 0;
H A DMapFiles60 die("Args are <output.csv>\n") unless (@ARGV == 1);
61 my ($outf) = @ARGV;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Sys/Syslog/
H A DMakefile.PL67 if (grep { $_ eq 'PERL_CORE=1' } @ARGV) {
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/
H A DLong.pm270 "ARGV: (@ARGV)",
450 while ( $goon && @ARGV > 0 ) {
453 $opt = shift (@ARGV);
648 unshift (@ARGV, $tryopt);
659 unshift (@ARGV, @ret);
908 unshift (@ARGV, $starter.$rest) if defined $rest;
940 unshift (@ARGV, $starter.$rest) if defined $rest;
956 : !(defined $rest || @ARGV > 0) ) {
977 : (defined $optarg ? $optarg : shift (@ARGV)));
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/pod/
H A Dpod2html.PL177 pod2html @ARGV;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/x2p/
H A Ds2p.PL1506 while( @ARGV && $ARGV[0] =~ /^-(.)(.*)$/ ){
1509 shift( @ARGV );
1513 } elsif( @ARGV ){
1514 push( @Commands, shift( @ARGV ) );
1528 } elsif( @ARGV ){
1529 $path = shift( @ARGV );
1565 unshift( @ARGV, "-$arg" );
1572 if( @ARGV == 0 ){
1577 push( @Commands, split( "\n", shift( @ARGV ) ) );
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/
H A Dxsubpp145 SWITCH: while (@ARGV and $ARGV[0] =~ /^-./) {
146 $flag = shift @ARGV;
177 @ARGV == 1 or die $usage;
178 ($dir, $filename) = $ARGV[0] =~ m#(.*)/(.*)#
179 or ($dir, $filename) = $ARGV[0] =~ m#(.*)\\(.*)#
180 or ($dir, $filename) = $ARGV[0] =~ m#(.*[>\]])(.*)#
181 or ($dir, $filename) = ('.', $ARGV[0]);
185 ++ $IncludedFiles{$ARGV[0]} ;
213 $typemap = shift @ARGV;
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/bin/
H A Denc2xs11 my @orig_ARGV = @ARGV;
124 eval "\@ARGV = map(glob(\$_),\@ARGV)" if ($^O eq 'MSWin32');
137 $opt{M} and make_makefile_pl($opt{M}, @ARGV);
138 $opt{C} and make_configlocal_pm($opt{C}, @ARGV);
150 @encfiles = @ARGV;
153 my $cname = (exists $opt{'o'}) ? $opt{'o'} : shift(@ARGV);
1146 $verbose=0; runtests @ARGV;' t/*.t
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dclosure.t198 $debugging = 1 if defined($ARGV[0]) and $ARGV[0] eq '-debug';
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Time/HiRes/
H A DMakefile.PL43 $ENV{PERL_CORE} = 1 if grep { $_ eq 'PERL_CORE=1' } @ARGV;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dwarnings.t27 if (@ARGV)
28 { print "ARGV = [@ARGV]\n" ;
30 @w_files = map { s#^#:lib:warnings:#; $_ } @ARGV
32 @w_files = map { s#^#./lib/warnings/#; $_ } @ARGV
H A DSymbol.pm94 my %global = map {$_ => 1} qw(ARGV ARGVOUT ENV INC SIG STDERR STDIN STDOUT);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/
H A DHtml.pm331 local(@ARGV) = @_;
351 unless (@ARGV && $ARGV[0]) {
356 $Podfile = $ARGV[0]; # XXX: might be more filenames
357 *POD = *ARGV;
657 unshift @ARGV, split ' ', $Config{pod2html} if $Config{pod2html};

Completed in 97 milliseconds

12345