/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Digest/ |
H A D | file.pm | 51 for (@ARGV) {
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/ |
H A D | hostent.pm | 109 @ARGV = ('netscape.com') unless @ARGV; 111 for $host ( @ARGV ) {
|
H A D | netent.pm | 125 @ARGV = ('loopback') unless @ARGV; 129 for $net ( @ARGV ) {
|
H A D | servent.pm | 95 while (@ARGV) {
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/bin/ |
H A D | prove | 23 @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 D | h2ph.PL | 75 @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 D | c2ph.PL | 376 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 D | perlcc.PL | 126 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 D | pl2pm.PL | 77 my $newname = $ARGV;
|
H A D | perlivp.PL | 63 while ($ARGV[0] =~ /^-/) { 64 $ARGV[0] =~ s/^-//; 65 for my $flag (split(//,$ARGV[0])) {
|
H A D | dprofpp.PL | 337 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 D | help2man | 76 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 D | InstallPerl | 73 my $config_only = @ARGV && $ARGV[0] eq '-c' ? 1 : 0;
|
H A D | MapFiles | 60 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 D | Makefile.PL | 67 if (grep { $_ eq 'PERL_CORE=1' } @ARGV) {
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/ |
H A D | Long.pm | 270 "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 D | pod2html.PL | 177 pod2html @ARGV;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/x2p/ |
H A D | s2p.PL | 1506 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 D | xsubpp | 145 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 D | enc2xs | 11 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 D | closure.t | 198 $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 D | Makefile.PL | 43 $ENV{PERL_CORE} = 1 if grep { $_ eq 'PERL_CORE=1' } @ARGV;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | warnings.t | 27 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 D | Symbol.pm | 94 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 D | Html.pm | 331 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};
|