Home
last modified time | relevance | path

Searched refs:seen (Results 1 – 25 of 568) sorted by relevance

12345678910>>...23

/openbsd/gnu/usr.bin/perl/t/op/
H A Ddefins.t68 $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 Dtiearray.t11 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 DMirrors.pm218 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 Dwalkoptree.t20 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 Dretainedlines.t51 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 DOpcode.pm44 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 Dlinux-dp.exp177 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 Dhv_simple.t58 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 DDumper.pm152 $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 Dintflags.t19 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 DLangTags.pm24 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 DAbbrev.pm59 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 Dfor8 This won't be seen.
13 This should be seen.
26 This should be seen.
/openbsd/gnu/usr.bin/perl/lib/ExtUtils/
H A DEmbed.pm34 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 Dcase.pl60 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 D001-basic.t85 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 Dregenerate76 my %seen;
79 $seen{"$entry->{name}/$entry->{cond}/$Mflag"}++;
81 my %bads = grep { $seen{$_} > 1 } keys %seen;
H A Ddevtools.pl211 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 Dutil.py58 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 DSearch.pm137 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 DEnv.pm24 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 Dcheckcfgvar.pl58 my %seen;
65 $seen{$v}++;
69 @MASTER_CFG = sort keys %seen;
/openbsd/usr.bin/netstat/
H A Dmbuf.c82 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 DHashBase.pm39 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 DPledge.pm20 my %seen;
22 sort grep { !$seen{$_}++ } ( 'stdio', @promises );

12345678910>>...23