Searched refs:ARGV (Results 1 - 25 of 103) sorted by relevance

12345

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dgetopt.pl25 while (@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
29 shift(@ARGV);
32 shift(@ARGV);
33 $rest = shift(@ARGV);
40 $ARGV[0] = "-$rest";
43 shift(@ARGV);
H A Dgetopts.pl22 while(@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
27 shift(@ARGV);
29 ++$errs unless(@ARGV);
30 $rest = shift(@ARGV);
45 shift(@ARGV);
48 $ARGV[0] = "-$rest";
56 $ARGV[0] = "-$rest";
59 shift(@ARGV);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A DswitchF.t5 *ARGV = *DATA;
H A Dswitchn.t5 *ARGV = *DATA;
H A Dswitchp.t5 *ARGV = *DATA;
H A Dnoswitch.t5 *ARGV = *DATA;
H A Dswitcha.t5 *ARGV = *DATA;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A DCommand.t50 @ARGV = ($self, $self);
57 @ARGV = ( $Testfile );
60 @ARGV = ( $Testfile );
63 # these are destructive, have to keep setting @ARGV
64 @ARGV = ( $Testfile );
67 @ARGV = ( $Testfile );
70 @ARGV = ( $Testfile );
71 ok( -e $ARGV[0], 'created!' );
74 utime ($now, $now, $ARGV[0]);
80 my $stamp = (stat($ARGV[
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/Long/t/
H A Dgol-compat.t14 @ARGV = qw(-Foo -baR --foo bar);
24 print ((@ARGV == 1) ? "" : "not ", "ok 6\n");
25 print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n");
H A Dgol-linkage.t14 @ARGV = qw(-Foo -baR --foo bar);
22 print ((@ARGV == 1) ? "" : "not ", "ok 6\n");
23 print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n");
26 @ARGV = qw(-Foo -baR --foo bar);
35 print ((@ARGV == 1) ? "" : "not ", "ok 14\n");
36 print (($ARGV[0] eq "bar") ? "" : "not ", "ok 15\n");
H A Dgol-basic.t17 @ARGV = qw(-Foo -baR --foo bar);
25 print ((@ARGV == 1) ? "" : "not ", "ok 6\n");
26 print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n");
H A Dgol-oo.t16 @ARGV = qw(-Foo -baR --foo bar);
25 print ((@ARGV == 1) ? "" : "not ", "ok 6\n");
26 print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dnargv.t15 local *ARGV;
18 @ARGV = mkfiles(1..3);
21 print STDOUT "# initial \@ARGV: [@ARGV]\n";
30 @ARGV = mkfiles(1..3);
33 print STDOUT "#final \@ARGV: [@ARGV]\n";
41 #warn "$ARGV: $_";
48 local *ARGV;
51 @ARGV
[all...]
H A Dargv.t41 @ARGV = ('Io_argv1.tmp', 'Io_argv1.tmp', $devnull, 'Io_argv1.tmp');
49 is($y, "1a line\n2a line\n3a line\n", '<> from @ARGV');
56 @ARGV = ('Io_argv1.tmp', 'Io_argv2.tmp');
78 @ARGV = ();
84 @ARGV = ();
85 ok( eof(), 'eof() true with empty @ARGV' );
87 @ARGV = ('Io_argv1.tmp');
90 @ARGV = ($devnull, $devnull);
93 close ARGV or die $!;
94 ok( eof(), 'eof() true after closing ARGV' );
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/
H A DMakefile.PL26 my %ARGV = map { split /=/; defined $_[1] or $_[1]=1; @_ } @ARGV;
27 $ARGV{DEBUG} and warn "$_ => $ARGV{$_}\n" for keys %ARGV;
28 $ENV{PERL_CORE} ||= $ARGV{PERL_CORE};
47 $ARGV{MORE_SCRIOPTS} and push @exe_files, @more_exe_files;
48 $ARGV{INSTALL_UCM} and push @pmlibdirs, "ucm";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/
H A DCommand.pm38 functions work from @ARGV rather than taking arguments. This makes
57 @ARGV = map(/[$wild_regex]/o ? glob($_) : $_,@ARGV);
81 my ($src,$dst) = @ARGV;
82 local @ARGV = ($dst); touch(); # in case $dst doesn't exist
95 rmtree([grep -e $_,@ARGV],0,0);
107 foreach (@ARGV)
126 foreach my $file (@ARGV) {
141 my $dst = pop(@ARGV);
143 croak("Too many arguments") if (@ARGV >
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/
H A DStd.t15 @ARGV = qw(-xo -f foo -y file);
18 is( "@ARGV", 'file', 'options removed from @ARGV (1)' );
22 @ARGV = qw(-hij k -- -l m -n);
25 is( "@ARGV", 'k -- -l m -n', 'options removed from @ARGV (2)' );
32 @ARGV = qw(-foi -i file);
35 is( "@ARGV", 'file', 'options removed from @ARGV (3)' );
40 @ARGV
[all...]
H A DStd.pm45 C<-->. The C<--> will be removed from @ARGV.
94 while (@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
97 shift @ARGV;
102 shift(@ARGV);
105 shift(@ARGV);
106 $rest = shift(@ARGV);
125 $ARGV[0] = "-$rest";
128 shift(@ARGV);
226 while(@ARGV
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/Command/
H A DMM.pm40 Runs the tests on @ARGV via Test::Harness passing through the $verbose
55 Test::Harness::runtests(sort { lc $a cmp lc $b } @ARGV);
68 # or args on @ARGV
81 If no arguments are given to pod2man it will read from @ARGV.
92 # our arguments into @ARGV. Should be safe.
93 local @ARGV = @_ ? @_ : @ARGV;
103 return 0 unless @ARGV;
117 my ($pod, $man) = splice(@ARGV, 0, 2);
132 }} while @ARGV;
[all...]
/osnet-11/usr/src/lib/cfgadm_plugins/sbd/
H A Dsbdgenerr.pl39 while ($#ARGV >= 0) {
40 $prefix{$ARGV[0]} = 0;
41 shift @ARGV;
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/PerlGcc/
H A Dperlgcc.PL31 open($fh, ">$ARGV[0]") || die("Can't open perlgcc: $!\n");
58 exec('$perlpath', \@ARGV)
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/PPPort/
H A DMakefile.PL25 $ENV{PERL_CORE} = 1 if grep { $_ eq 'PERL_CORE=1' } @ARGV;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/demos/
H A Dftp14 foreach $host (@ARGV)
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/
H A Dharness17 $Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v';
19 if ($ARGV[0] eq '-torture') {
50 if (@ARGV) {
52 @tests = map(glob($_),@ARGV);
55 @tests = @ARGV;
/osnet-11/usr/src/cmd/dtrace_toolkit/DTT/Bin/
H A Dhotkernel57 usage() if defined $ARGV[0] and $ARGV[0] eq "--help";

Completed in 53 milliseconds

12345