| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| getopt.pl | 25 while (@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
29 shift(@ARGV);
32 shift(@ARGV);
33 $rest = shift(@ARGV);
40 $ARGV[0] = "-$rest";
43 shift(@ARGV);
|
| getopts.pl | 22 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);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/run/ |
| switchF.t | 5 *ARGV = *DATA;
|
| switchn.t | 5 *ARGV = *DATA;
|
| switchp.t | 5 *ARGV = *DATA;
|
| noswitch.t | 5 *ARGV = *DATA;
|
| switcha.t | 5 *ARGV = *DATA;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
| Command.t | 50 @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[0]))[9]
[all...] |
| /onnv/onnv-gate/usr/src/cmd/sgs/tools/ |
| lint_hdr.pl | 69 die $usage if (scalar(@ARGV) == 0);
70 while ($_ = $ARGV[0],/^-/) {
83 $argc = scalar(@ARGV);
85 $target = $ARGV[0];
86 $elfclass = ($argc == 2) ? "Elf$ARGV[1] - " : '';
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/Long/t/ |
| gol-compat.t | 14 @ARGV = qw(-Foo -baR --foo bar);
24 print ((@ARGV == 1) ? "" : "not ", "ok 6\n");
25 print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n");
|
| gol-linkage.t | 14 @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");
|
| gol-basic.t | 17 @ARGV = qw(-Foo -baR --foo bar);
25 print ((@ARGV == 1) ? "" : "not ", "ok 6\n");
26 print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n");
|
| gol-oo.t | 16 @ARGV = qw(-Foo -baR --foo bar);
25 print ((@ARGV == 1) ? "" : "not ", "ok 6\n");
26 print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n");
|
| /onnv/onnv-gate/usr/src/cmd/sgs/tools/common/ |
| sgsmsg_piglatin_nl.pl | 66 die "usage: $script start_index\n" if ($ARGV[0] eq '');
67 $lineno = int($ARGV[0]);
|
| /onnv/onnv-gate/usr/src/common/openssl/crypto/bn/asm/ |
| x86.pl | 14 &asm_init($ARGV[0],$0);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
| nargv.t | 15 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 = mkfiles(5, 4)
[all...] |
| argv.t | 41 @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...] |
| /onnv/onnv-gate/usr/src/cmd/sgs/packages/common/ |
| readme_revision | 70 while ((scalar(@ARGV) > 0) && ($_ = $ARGV[0],/^-/)) {
85 $cnt = scalar @ARGV;
93 $readme = $ARGV[0];
|
| /onnv/onnv-gate/usr/src/cmd/kstat/ |
| kstat.pl | 126 if (@ARGV >= 2 && $ARGV[-2] =~ /^\d+$/ && $ARGV[-1] =~ /^\d+$/) {
127 $count = pop(@ARGV);
128 $interval = pop(@ARGV);
131 } elsif (@ARGV >= 1 && $ARGV[-1] =~ /^\d+$/) {
132 $interval = pop(@ARGV);
154 "-m -i -n -s are mutually exclusive")) if (@ARGV);
155 push(@ARGV, join(":", map(exists($opt{$_}) ? $opt{$_} : ""
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
| Command.pm | 38 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 > 1 && ! -d $dst)
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/ |
| Std.t | 15 @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 = qw(-hij -k -- -l m)
[all...] |
| Std.pm | 45 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 && ($_ = $ARGV[0]) =~ /^-(.)(.*)/s)
[all...] |
| /onnv/onnv-gate/usr/src/cmd/rcm_daemon/common/ |
| SUNW,vdevices.pl | 93 my $rsrc = shift(@ARGV);
124 $cmd = shift(@ARGV);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/ |
| Makefile.PL | 26 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";
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/PerlGcc/ |
| perlgcc.PL | 31 open($fh, ">$ARGV[0]") || die("Can't open perlgcc: $!\n");
58 exec('$perlpath', \@ARGV)
|
