/openbsd/gnu/usr.bin/perl/t/op/ |
H A D | defins.t | 68 $seen = 0; 78 $seen = 0; 87 $seen = 0; 92 $seen++ if $where{$seen} eq '0'; 99 $seen = 0; 107 $seen = 0; 116 $seen = 0; 119 $seen++ if $where{$seen} eq $wanted_filename; 124 $seen = 0; 166 $seen++ if $where{$seen} eq $wanted_filename; [all …]
|
H A D | tiearray.t | 11 my %seen; 16 $seen{'TIEARRAY'}++; 22 $seen{'STORESIZE'}++; 28 $seen{'EXTEND'}++; 39 $seen{'FETCH'}++; 45 $seen{'STORE'}++; 57 $seen{'PUSH'}++; 63 $seen{'CLEAR'}++; 72 $seen{'POP'}++; 78 $seen{'SHIFT'}++; [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/ |
H A D | Mirrors.pm | 218 my $seen = {}; 223 seen => $seen, 245 $seen, 307 $seen = {} unless defined $seen; 311 unless ref $seen eq ref {}; 317 $seen->{$m->hostname} = $m; 389 $args{seen} = {} unless defined $args{seen}; 391 unless ref $args{seen} eq ref {}; 415 $args{seen}, 453 ( ! exists $seen->{$mirror->hostname} [all …]
|
/openbsd/gnu/usr.bin/perl/ext/B/t/ |
H A D | walkoptree.t | 20 my %seen; 24 return ++$seen{$self->name}; 46 is ($seen{$_}, 1, "Our victim had a $_ OP"); 56 %seen = (); 60 is ($seen{$_}, 1, "Our victim had a $_ OP"); 62 is_deeply (\%debug, \%seen, 'walkoptree_debug was called correctly'); 87 is_deeply (\%seen2, \%seen, 'everything still seen');
|
/openbsd/gnu/usr.bin/perl/t/comp/ |
H A D | retainedlines.t | 51 my %seen; 65 map { (!$seen{$_} and /eval (\d+)/) ? [ $_, $1 ] : () } 81 $seen{$_}++ for @keys; 135 is (scalar @after, 0 + keys %seen, 146 is (scalar @after, 0 + keys %seen, 163 is (scalar @after, 0 + keys %seen, 182 is (scalar @after, 0 + keys %seen,
|
/openbsd/gnu/usr.bin/perl/ext/Opcode/ |
H A D | Opcode.pm | 44 my(%all, %seen); 61 warn "$tag - $_ already tagged in $seen{$_}\n" if $seen{$_}; 62 $seen{$_} = $tag;
|
/openbsd/gnu/usr.bin/binutils/gdb/testsuite/gdb.threads/ |
H A D | linux-dp.exp | 177 upvar $seen_name seen 189 if {[info exists seen($data)]} { 193 set seen($data) yep 239 array set seen {} 240 unset seen 242 if [check_philosopher_stack $i seen] {
|
/openbsd/gnu/usr.bin/perl/dist/threads-shared/t/ |
H A D | hv_simple.t | 58 my %seen; 60 $seen{$key}++; 62 ok(10, $seen{1} == 1, "Keys.."); 63 ok(11, $seen{2} == 1, "Keys.."); 64 ok(12, $seen{3} == 1, "Keys.."); 65 ok(13, $seen{"foo"} == 1, "Keys..");
|
/openbsd/gnu/usr.bin/perl/dist/Data-Dumper/ |
H A D | Dumper.pm | 152 $s->{seen}{$id} = [$k, $v]; 165 return map { @$_ } values %{$s->{seen}}; 292 if (exists $s->{seen}{$id}) { 300 $out = $s->{seen}{$id}[0]; 315 $s->{seen}{$id} = [ ( 506 if (exists $s->{seen}{$id}) { 507 if ($s->{seen}{$id}[2]) { 508 $out = $s->{seen}{$id}[0]; 600 delete($s->{seen}{$id}); 603 $s->{seen}{$id}[2] = 1; [all …]
|
/openbsd/gnu/usr.bin/perl/ext/re/t/ |
H A D | intflags.t | 19 my %seen; 22 length($_) and $seen{$_}++ for split /\s+/, $line; 24 is(0+keys %seen,14);
|
/openbsd/gnu/usr.bin/perl/dist/I18N-LangTags/lib/I18N/ |
H A D | LangTags.pm | 24 sub uniq { my %seen; return grep(!($seen{$_}++), @_); } # a util function 735 my(@out, %seen); 738 next if $seen{$t}++; # so we don't return it or hit it again 742 return grep !$seen{$_}++, @out, 'en';
|
/openbsd/gnu/usr.bin/perl/dist/Text-Abbrev/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
|
/openbsd/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/ |
H A D | for | 8 This won't be seen. 13 This should be seen. 26 This should be seen.
|
/openbsd/gnu/usr.bin/perl/lib/ExtUtils/ |
H A D | Embed.pm | 34 my($fh,@mods,%seen); 59 @mods = grep(!$seen{$_}++, @mods); 81 my %seen; 86 unless $seen{$ccode}++; 93 my %seen; 106 if $seen{$pname}++;
|
/openbsd/gnu/usr.bin/perl/t/uni/ |
H A D | case.pl | 60 my %seen; 63 $seen{$i}++; 68 if (++$seen{$i} == 2) { 78 $none{$i}++ unless $seen{$i};
|
/openbsd/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/t/ |
H A D | 001-basic.t | 85 my $seen = 0; 89 $seen++ if $l =~ m/#line\s1\s/; 91 is( $seen, 1, "Line numbers created in output file, as intended" ); 169 my $seen = 0; 173 $seen++ if $l =~ m/#line\s1\s/; 176 is( $seen, 0, "No linenumbers created in output file, as intended" );
|
/openbsd/gnu/usr.bin/perl/dist/Devel-PPPort/devel/ |
H A D | regenerate | 76 my %seen; 79 $seen{"$entry->{name}/$entry->{cond}/$Mflag"}++; 81 my %bads = grep { $seen{$_} > 1 } keys %seen;
|
H A D | devtools.pl | 211 my %seen; 216 $seen{$perls[0]{file}} = 1; 219 if ( exists $seen{$perls[$i]{file}} 226 $seen{$perls[$i]{file}} = 1;
|
/openbsd/gnu/llvm/lldb/third_party/Python/module/ptyprocess-0.6.0/ptyprocess/ |
H A D | util.py | 58 seen = set() 61 if not normdir in seen: 62 seen.add(normdir)
|
/openbsd/gnu/usr.bin/perl/cpan/Pod-Simple/lib/Pod/Simple/ |
H A D | Search.pm | 137 my ($seen, $remember, $files_for); 139 $seen = sub { $ciseen->{ lc $_[0] } }; 143 $seen = sub { $name2path->{ $_[0] } }; 211 if( !$shadows and $seen->($name) ) { 225 if ( my $prev = $seen->($name) ) { 485 my %seen = map { File::Spec->rel2abs($_) => 1 } @{ $search_dirs }; 489 grep { !$seen{ File::Spec->rel2abs($_) }++ } $self->_mac_whammy(@INC); 493 grep { !$seen{ File::Spec->rel2abs($_) }++ } @INC;
|
/openbsd/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness/ |
H A D | Env.pm | 24 my %seen; 26 next if $seen{$dir}++; 35 shift @default_inc while @default_inc and $seen{ $default_inc[0] };
|
/openbsd/gnu/usr.bin/perl/Porting/ |
H A D | checkcfgvar.pl | 58 my %seen; 65 $seen{$v}++; 69 @MASTER_CFG = sort keys %seen;
|
/openbsd/usr.bin/netstat/ |
H A D | mbuf.c | 82 bool seen[MBSTAT_COUNT]; /* "have we seen this type yet?" */ variable 174 seen[mp->mt_type] = YES; in mbpr() 180 seen[MT_FREE] = YES; in mbpr() 182 if (!seen[i] && mbstat.m_mtypes[i]) { in mbpr()
|
/openbsd/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/Util/ |
H A D | HashBase.pm | 39 my %seen; 41 push @packages, grep !$seen{$_}++, @{"$package\::ISA"}; 103 my %seen; 104 my @list = grep { !$seen{$_}++ } map {
|
/openbsd/gnu/usr.bin/perl/cpan/OpenBSD-Pledge/lib/OpenBSD/ |
H A D | Pledge.pm | 20 my %seen; 22 sort grep { !$seen{$_}++ } ( 'stdio', @promises );
|