Home
last modified time | relevance | path

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

12345678910>>...23

/openbsd-src/gnu/usr.bin/perl/t/op/
H A Ddefins.t58 my $seen = 0;
63 $seen++ if $name eq '0';
65 cmp_ok($seen,'==',1,'seen in while()');
68 $seen = 0;
73 $seen++ if $line eq '0';
75 cmp_ok($seen,'==',1,'seen in do/while');
78 $seen = 0;
79 while (($seen ? $dummy : $name) = <FILE> )
82 $seen++ if $name eq '0';
84 cmp_ok($seen,'==',2,'seen in while() ternary');
[all …]
H A Dtiearray.t11 my %seen;
16 $seen{'TIEARRAY'}++;
22 $seen{'STORESIZE'}++;
28 $seen{'EXTEND'}++;
34 $seen{'FETCHSIZE'}++;
39 $seen{'FETCH'}++;
45 $seen{'STORE'}++;
51 $seen{'UNSHIFT'}++;
57 $seen{'PUSH'}++;
63 $seen{'CLEAR'}++;
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/
H A DMirrors.pm218 my $seen = {};
223 seen => $seen,
245 $seen,
305 my( $self, $mirror_list, $seen, $callback, %args ) = @_;
307 $seen = {} unless defined $seen;
311 unless ref $seen eq ref {};
317 $seen->{$m->hostname} = $m;
320 if( $self->_try_a_ping( $seen, $m, ) ) {
328 push @$timings, $seen->{$m->hostname}
329 if defined $seen->{$m->hostname}->rtt;
[all …]
/openbsd-src/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-src/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-src/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-src/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-src/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-src/gnu/usr.bin/perl/dist/Data-Dumper/
H A DDumper.pm97 seen => {}, # local (nested) refs (id => [name, val])
115 noseen => $Sparseseen, # do not populate the seen hash unless necessary
133 # add-to or query the table of already seen references
152 $s->{seen}{$id} = [$k, $v];
165 return map { @$_ } values %{$s->{seen}};
292 if (exists $s->{seen}{$id}) {
297 push @post, $name . " = " . $s->{seen}{$id}[0];
300 $out = $s->{seen}{$id}[0];
315 $s->{seen}{$id} = [ (
506 if (exists $s->{seen}{
[all...]
/openbsd-src/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-src/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-src/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-src/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-src/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-src/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-src/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-src/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.pl215 my %seen;
220 $seen{$perls[0]{file}} = 1;
223 if ( exists $seen{$perls[$i]{file}}
230 $seen{$perls[$i]{file}} = 1;
/openbsd-src/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-src/gnu/usr.bin/perl/cpan/Pod-Simple/lib/Pod/Simple/
H A DSearch.pm89 $verbose and print "Directory '$start_in' already seen, skipping.\n";
137 my ($seen, $remember, $files_for);
139 $seen = sub { $ciseen->{ lc $_[0] } };
143 $seen = sub { $name2path->{ $_[0] } };
160 $verbose and print "Directory '$file' already seen, skipping.\n";
211 if( !$shadows and $seen->($name) ) {
225 if ( my $prev = $seen->($name) ) {
228 " Already seen in ", join(' ', $files_for->($name)), "\n";
485 my %seen = map { File::Spec->rel2abs($_) => 1 } @{ $search_dirs };
489 grep { !$seen{ Fil
[all...]
/openbsd-src/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-src/usr.bin/netstat/
H A Dmbuf.c82 bool seen[MBSTAT_TYPES]; /* "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-src/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-src/gnu/usr.bin/perl/cpan/autodie/lib/
H A DFatal.pm194 my %seen;
196 !/^:/ && !$seen{$_}++
620 my %seen;
652 grep { !$seen{$_}++ }
681 next if $seen{$a}++;
682 if ($letter eq '!' and $seen{substr($a, 1)}++) {
740 my %seen = ();
750 push @taglist, grep { !$seen{$_}++ } @{$expanded};
754 unless $seen{$subname}++;
/openbsd-src/gnu/usr.bin/perl/cpan/OpenBSD-Pledge/lib/OpenBSD/
H A DPledge.pm20 my %seen;
22 sort grep { !$seen{$_}++ } ( 'stdio', @promises );

12345678910>>...23