| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | defins.t | 26 my $seen = 0;
30 $seen++ if $name eq '0';
32 print "not " unless $seen;
36 $seen = 0;
40 $seen++ if $line eq '0';
43 print "not " unless $seen;
48 $seen = 0;
49 while (($seen ? $dummy : $name) = <FILE>)
51 $seen++ if $name eq '0';
53 print "not " unless $seen;
[all …]
|
| H A D | tiearray.t | 9 my %seen;
15 $seen{'TIEARRAY'}++;
22 $seen{'STORESIZE'}++;
29 $seen{'EXTEND'}++;
36 $seen{'FETCHSIZE'}++;
42 $seen{'FETCH'}++;
49 $seen{'STORE'}++;
56 $seen{'UNSHIFT'}++;
63 $seen{'PUSH'}++;
70 $seen{'CLEAR'}++;
[all …]
|
| H A D | groups.t | 119 $seen{$pwgid}++;
125 next if (! defined $group or ! grep { $_ eq $group } @gr) and $seen{$_}++;
172 if ($pwgid == 0 || $seen{0} < 2) {
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
| H A D | strap-analyze.t | 40 seen => 10,
78 seen => 5,
110 seen => 11,
128 seen => 4,
146 seen => 4,
164 seen => 4,
184 seen => 0,
201 seen => 5,
219 seen => 5,
241 seen => 5,
[all …]
|
| /onnv-gate/usr/src/cmd/hal/addons/network-devices/ |
| H A D | cache.c | 34 static GHashTable *seen = NULL; variable
75 if (seen != NULL) { in scan_for_stale_devices()
81 g_hash_table_foreach_remove(seen, device_remove_if_stale, args); in scan_for_stale_devices()
92 if (seen == NULL) in device_seen()
93 seen = g_hash_table_new_full(g_str_hash, g_str_equal, in device_seen()
96 result = g_hash_table_lookup_extended(seen, name, in device_seen()
100 g_hash_table_insert(seen, strdup(name), val); in device_seen()
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Opcode/ |
| H A D | Opcode.pm | 56 my(%all, %seen);
73 warn "$tag - $_ already tagged in $seen{$_}\n" if $seen{$_};
74 $seen{$_} = $tag;
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/ |
| H A D | Dumper.pm | 69 seen => {}, # local (nested) refs (id => [name, val])
114 $s->{seen}{$id} = [$k, $v];
123 return map { @$_ } values %{$s->{seen}};
246 if (exists $s->{seen}{$id}) {
252 push @post, $name . " = " . $s->{seen}{$id}[0];
255 $out = $s->{seen}{$id}[0];
271 $s->{seen}{$id} = [ (($name =~ /^[@%]/) ? ('\\' . $name ) :
410 if (exists $s->{seen}{$id}) {
411 if ($s->{seen}{$id}[2]) {
412 $out = $s->{seen}{$id}[0];
[all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
| H A D | Embed.pm | 49 my($fh,@mods,%seen);
72 @mods = grep(!$seen{$_}++, @mods);
94 my(@retval,%seen);
102 next if $seen{$ccode}++;
110 my($pname,@retval,%seen);
125 push(@retval, $ccode) unless $seen{$ccode}++;
128 push(@retval, $ccode) unless $seen{$ccode}++;
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
| H A D | Abbrev.pm | 59 my $seen = ++$table{$abbrev};
60 if ($seen == 1) { # We're the first word so far to have
63 } elsif ($seen == 2) { # We're the second word to have this
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/uni/ |
| H A D | case.pl | 20 my %seen;
23 $seen{$i}++;
30 if (++$seen{$i} == 2) {
43 $none{$i}++ unless $seen{$i};
|
| /onnv-gate/usr/src/tools/onbld/Checks/ |
| H A D | CmtBlk.py | 37 def __init__(self, lineno, seen, shouldbe): argument
40 self.seen = seen
121 e.shouldbe, e.seen))
|
| /onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Pg/ |
| H A D | Pg.pm | 344 my %seen;
345 map { $seen{$_} = 1 } @_;
348 @pgs = grep { $seen{$_} } @pgs;
820 my %seen; # Set to 1 for everything in the first list
822 map { $seen{$_} = 1 } @$left;
824 return (grep { ! $seen{$_} } @$right);
859 my %seen;
860 return (grep { ++$seen{$_} == 1 } @_);
1360 my %seen; # Set to 1 for everything in the first list
1367 map { $seen{$_} = 1 } @$right;
[all …]
|
| /onnv-gate/usr/src/cmd/mdb/common/modules/genunix/ |
| H A D | kgrep.c | 83 int seen = 0; in kgrep_range_basic() local
94 seen = 1; in kgrep_range_basic()
104 if (seen) in kgrep_range_basic()
137 int seen = 0; \
151 seen = 1; \
166 if (seen) \
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
| H A D | crlf.t | 82 my $seen = 0;
83 $seen++ while $text =~ /$chars/g;
84 return $seen;
|
| /onnv-gate/usr/src/cmd/psrinfo/ |
| H A D | psrinfo.pl | 110 my %seen; # Have we seen this element already?
111 return (grep { ++$seen{$_} == 1 } @_);
123 my %seen; # Set to 1 for everything in the first list
128 map { $seen{$_} = 1 } @$left;
130 return (grep { $seen{$_} } @$right);
140 my %seen; # Set to 1 for everything in the first list
142 map { $seen{$_} = 1 } @$left;
144 return (grep { ! $seen{$_} } @$right);
|
| /onnv-gate/usr/src/cmd/sgs/lex/common/ |
| H A D | yyless.c | 116 static int seen = 0; local
118 if (!seen) {
122 seen = 1;
|
| /onnv-gate/usr/src/cmd/device_remap/ |
| H A D | device_remap.pl | 202 my ($self, $nodeid, $nameid, $arcid, $ret, $seen) = @_;
205 return if ($seen->[$nodeid] == 1);
206 $seen->[$nodeid] = 1;
216 $self->scan_node($node{'idx'}, $nameid, $arcid, $ret, $seen);
228 my ($nameid, $arcid, @ret, @seen);
232 $self->scan_node($start, $nameid, $arcid, \@ret, \@seen);
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Class/ |
| H A D | ISA.pm | 186 my %seen = ($_[0] => 1);
200 $seen{$c}++ ? () : $c;
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/CPAN/ |
| H A D | FirstTime.pm | 633 my (@cont, $cont, %cont, @countries, @urls, %seen);
657 %seen = map (($_ => 1), @previous_urls);
662 @u = grep (! $seen{$_}, @u);
683 my %seen = map (($_ => 1), @{$CPAN::Config->{urllist}});
687 unless (%seen) {
700 push @urls, $ans unless $seen{$ans}++;
711 } while $ans || !%seen;
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/I18N/ |
| H A D | LangTags.pm | 730 my(@out, %seen);
733 next if $seen{$t}++; # so we don't return it or hit it again
737 return grep !$seen{$_}++, @out, 'en';
|
| /onnv-gate/usr/src/uts/common/fs/zfs/ |
| H A D | zfs_acl.c | 896 mode_t seen = 0; in zfs_mode_compute() local
924 (!(seen & S_IRUSR))) { in zfs_mode_compute()
925 seen |= S_IRUSR; in zfs_mode_compute()
931 (!(seen & S_IWUSR))) { in zfs_mode_compute()
932 seen |= S_IWUSR; in zfs_mode_compute()
938 (!(seen & S_IXUSR))) { in zfs_mode_compute()
939 seen |= S_IXUSR; in zfs_mode_compute()
947 (!(seen & S_IRGRP))) { in zfs_mode_compute()
948 seen |= S_IRGRP; in zfs_mode_compute()
954 (!(seen & S_IWGRP))) { in zfs_mode_compute()
[all …]
|
| /onnv-gate/usr/src/cmd/dtrace/test/tst/common/usdt/ |
| H A D | tst.reeval.ksh | 81 seen = 1;
87 exit(seen ? 0 : 2);
|
| /onnv-gate/usr/src/cmd/dtrace/test/tst/common/nfs/ |
| H A D | tst.call3.d | 73 /seen[probename] == 0/
76 seen[probename] = 1;
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | NEXT.pm | 111 my %seen;
113 !*{$sub}{CODE} || $seen{$sub}++ ? () : $sub
134 !*{$sub}{CODE} || $seen{$sub}++ ? () : "${_}::AUTOLOAD"
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/ |
| H A D | Harness.pm | 549 elsif($results{seen}) {
720 if $totals->{seen} &&
721 $totals->{max} < $totals->{seen};
727 my $curr = $totals->{seen};
925 my %seen;
926 @failed = sort {$a <=> $b} grep !$seen{$_}++, @failed;
|