Searched refs:ARGV (Results 76 - 100 of 103) sorted by relevance

12345

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/pod/
H A Dpod2latex.PL78 my @files = @ARGV;
H A Dpod2man.PL57 # 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 DEmbed.pm60 @mods = @ARGV;
177 @argv = @ARGV;
H A DInstall.pm261 will attempt to read it from @ARGV.
274 my $FULLEXT = @_ ? shift : $ARGV[0];
H A DMM_Any.pm530 use AutoSplit; %s autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)
H A DMM_MacOS.pm117 my @fm = grep /^FIRST_MAKEFILE=/, @ARGV;
120 $self->parse_args(split(' ', $ENV{PERL_MM_OPT} || ''),@ARGV);
H A DMM_VMS.pm411 $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 DMM_Unix.pm1972 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 DMakeMaker.pm354 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 Dconstant.pm16 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 Ddiagnostics.pm417 if (!@ARGV and -t STDIN) { print STDERR "$0: Reading from STDIN\n" }
H A DDB.pm31 @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 DUsage.pm215 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 DPerldoc.pm327 $self->{'args'} ||= \@ARGV;
H A DParser.pm69 $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 DPPPort.pm281 @ARGV = ("*.xs") if !@ARGV;
290 foreach $filename (map(glob($_),@ARGV)) {
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A Dfresh_perl.t360 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 Dmktables22 while (@ARGV)
24 my $arg = shift @ARGV;
/osnet-11/usr/src/lib/libadt_jni/
H A Dauditxml_jni64 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 Dwalk.c982 str_set(str,"($#ARGV+1)");
1000 if (strEQ(str->str_ptr,"$ARGV[0")) {
/osnet-11/usr/src/lib/libbsm/
H A Dauditxml58 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 Dtaint.t121 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 DHarness.pm1115 $verbose=0; runtests @ARGV;' t/*.t
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/utils/
H A Dperlbug.PL222 @ARGV = split m/\s+/,
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/
H A DC.pm1103 if( $gvname !~ /^([^A-Za-z]|STDIN|STDOUT|STDERR|ARGV|SIG|ENV)$/ ) {

Completed in 99 milliseconds

12345