/osnet-11/usr/src/cmd/perl/5.8.4/distrib/pod/ |
H A D | pod2latex.PL | 78 my @files = @ARGV;
|
H A D | pod2man.PL | 57 # Insert -- into @ARGV before any single dash argument to hide it from 61 @ARGV = map { $_ eq '-' && !$stdin++ ? ('--', $_) : $_ } @ARGV; 91 @files = splice (@ARGV, 0, 2); 94 } while (@ARGV);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
H A D | Embed.pm | 60 @mods = @ARGV; 177 @argv = @ARGV;
|
H A D | Install.pm | 261 will attempt to read it from @ARGV. 274 my $FULLEXT = @_ ? shift : $ARGV[0];
|
H A D | MM_Any.pm | 530 use AutoSplit; %s autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)
|
H A D | MM_MacOS.pm | 117 my @fm = grep /^FIRST_MAKEFILE=/, @ARGV; 120 $self->parse_args(split(' ', $ENV{PERL_MM_OPT} || ''),@ARGV);
|
H A D | MM_VMS.pm | 411 $self->{ECHO} ||= '$(PERLRUN) -le "print qq{@ARGV}"'; 412 $self->{ECHO_N} ||= '$(PERLRUN) -e "print qq{@ARGV}"'; 418 $self->{EQUALIZE_TIMESTAMP} ||= '$(PERLRUN) -we "open F,qq{>>$ARGV[1]};close F;utime(0,(stat($ARGV[0]))[9]+1,$ARGV[1])"'; 513 for (@ARGV) { $_ = uc($_) if /POLLUTE/i; } 1665 $(PERLRUN) Makefile.PL ],join(' ',map(qq["$_"],@ARGV)),q[ 1777 push @m, map(q[ \\\n\t\t"$_"], @ARGV),q{
|
H A D | MM_Unix.pm | 1972 install({@ARGV}, '$(VERBINST)', 0, '$(UNINST)'); 2738 foreach (@ARGV){ 2744 # push @m, map( " \\\n\t\t$_", @ARGV ); 2971 $(PERLRUN) Makefile.PL }.join(" ",map(qq["$_"],@ARGV)).q{ 3271 pm_to_blib({\@ARGV}, '$autodir', '\$(PM_FILTER)')
|
H A D | MakeMaker.pm | 354 if ("@ARGV" =~ /\bPREREQ_PRINT\b/) { 361 if ("@ARGV" =~ /\bPRINT_PREREQ\b/) { 475 my @fm = grep /^FIRST_MAKEFILE=/, @ARGV; 478 parse_args($self,split(' ', $ENV{PERL_MM_OPT} || ''),@ARGV); 526 my($argv) = neatvalue(\@ARGV); 539 # MakeMaker ARGV: $argv
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | constant.pm | 16 qw{ STDIN STDOUT STDERR ARGV ARGVOUT ENV INC SIG }; 310 A constant with a name in the list C<STDIN STDOUT STDERR ARGV ARGVOUT
|
H A D | diagnostics.pm | 417 if (!@ARGV and -t STDIN) { print STDERR "$0: Reading from STDIN\n" }
|
H A D | DB.pm | 31 @DB::args = (); # arguments of current subroutine or @ARGV array 681 Contains the arguments of current subroutine, or the C<@ARGV> array if in the
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/ |
H A D | Usage.pm | 215 pod2usage("$0: Too many files given.\n") if (@ARGV > 1); 231 if (@ARGV > 1); 334 pod2usage("$0: No files given.") if ((@ARGV == 0) && (-t STDIN));
|
H A D | Perldoc.pm | 327 $self->{'args'} ||= \@ARGV;
|
H A D | Parser.pm | 69 $parser->parse_from_filehandle(\*STDIN) if (@ARGV == 0); 70 for (@ARGV) { $parser->parse_from_file($_); }
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/PPPort/ |
H A D | PPPort.pm | 281 @ARGV = ("*.xs") if !@ARGV; 290 foreach $filename (map(glob($_),@ARGV)) {
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/ |
H A D | fresh_perl.t | 360 BEGIN { @ARGV = qw(a b c d e) } 361 BEGIN { print "argv <@ARGV>\nbegin <",shift,">\n" } 362 END { print "end <",shift,">\nargv <@ARGV>\n" } 508 if (@ARGV) { print "" } 813 # utf8::upgrade($name) if @ARGV;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/unicore/ |
H A D | mktables | 22 while (@ARGV) 24 my $arg = shift @ARGV;
|
/osnet-11/usr/src/lib/libadt_jni/ |
H A D | auditxml_jni | 64 die $usage if ($#ARGV < 0); 81 my $doc = new auditxml ($ARGV[0]); # input XML file
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/x2p/ |
H A D | walk.c | 982 str_set(str,"($#ARGV+1)"); 1000 if (strEQ(str->str_ptr,"$ARGV[0")) {
|
/osnet-11/usr/src/lib/libbsm/ |
H A D | auditxml | 58 if (!getopts('de:i:o:') || $#ARGV != 0) { 77 my $filename = $ARGV[0]; # input XML file
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | taint.t | 121 print PROG 'print "@ARGV\n"', "\n"; 277 eval { join('', @ARGV), kill 0 };
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/ |
H A D | Harness.pm | 1115 $verbose=0; runtests @ARGV;' t/*.t
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/utils/ |
H A D | perlbug.PL | 222 @ARGV = split m/\s+/,
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
H A D | C.pm | 1103 if( $gvname !~ /^([^A-Za-z]|STDIN|STDOUT|STDERR|ARGV|SIG|ENV)$/ ) {
|