/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Class/ |
H A D | ISA.pm | 186 my %seen = ($_[0] => 1); 200 $seen{$c}++ ? () : $c; 204 # I.e., if this class has any parents (at least, ones I've never seen
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Project/ |
H A D | Project.pm | 1266 my %seen; 1267 my @dups = grep($seen{$_}++ == 1, @$users); 1308 my %seen; 1309 my @dups = grep($seen{$_}++ == 1, @$groups); 1472 my %seen; 1473 my @dups = grep($seen{$_}++ == 1, map { $_->{'name'} } @$attributes);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/ |
H A D | opcode.pl | 32 my %seen; 42 warn qq[Description "$desc" duplicates $seen{$desc}\n] if $seen{$desc}; 43 die qq[Opcode "$key" duplicates $seen{$key}\n] if $seen{$key}; 44 $seen{$desc} = qq[description of opcode "$key"]; 45 $seen{$key} = qq[opcode "$key"];
|
/osnet-11/usr/src/grub/grub2/ |
H A D | gentpl.py | 97 r = "[+ IF (if (not (assoc-ref seen-vars (get \".name\"))) \"seen\") +]" 102 r += "[+ (set! seen-vars (assoc-set! seen-vars (get \".name\") 0)) +]" 350 r = "[+ IF (if (not (assoc-ref seen-target (get \".name\"))) \"seen\") +]" 530 r = "[+ (define seen-target '()) +]" 531 r += "[+ (define seen-vars '()) +]" 539 # Remember that we've seen this target. 540 r += "[+ (set! seen [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Locale/ |
H A D | Maketext.pm | 258 my %seen; 261 next if $seen{$module_name}++ # Already been here, and it was no-go
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | Exporter.pm | 387 my %seen; 390 grep {!$seen{$_}++} @{$EXPORT_TAGS{$_}} foreach keys %EXPORT_TAGS; 400 my %seen; 403 grep {!$seen{$_}++} @{$EXPORT_TAGS{$_}}
|
H A D | NEXT.pm | 111 my %seen; 113 !*{$sub}{CODE} || $seen{$sub}++ ? () : $sub 134 !*{$sub}{CODE} || $seen{$sub}++ ? () : "${_}::AUTOLOAD"
|
H A D | CPAN.pm | 292 my %seen; 295 last if $seen{$dep}++; 1611 my(@result,$module,%seen,%need,$headerdone); 1659 my(@result,$module,%seen,%need,$headerdone, 1704 $seen{$file} ||= 0; 1709 next if $seen{$file}++; 1712 next if $seen{$file}++; 5982 $CPAN::Frontend->mywarn("Suspicious version string seen [$n]\n");
|
H A D | perl5db.pl | 7538 local %seen; 7561 return if $seen{$class}++; 7575 next if $seen{$name}++;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
H A D | test-harness.t | 525 Enormous test number seen [test 100001] 527 Enormous test number seen [test 136211425]
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/ |
H A D | Harness.pm | 126 bypassed, thus will be seen by the user. Lines written to standard 549 elsif($results{seen}) { 674 "alas--no output ever seen\n"; 715 warn "Test header seen more than once!\n" if $self->{_seen_header}; 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;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/ |
H A D | POSIX.pm | 676 my %seen; 677 grep(!$seen{$_}++, split(' ', $) ));
|
/osnet-11/usr/src/lib/fm/libdiskstatus/common/ |
H A D | ds_scsi.c | 626 boolean_t seen = B_FALSE; local 643 seen = B_TRUE; 652 if (!seen) {
|
/osnet-11/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;
|
/osnet-11/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';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | configpm | 551 %seen = (); 558 unless ($seen{$c}++) {
|
H A D | toke.c | 750 * just seen -> and it knows that the next char is a word char, then 1769 char seen[256]; local 1777 Zero(seen,256,char); 1795 weight -= seen[un_char] * 10; 1816 else if (seen['\''] || seen['"']) 1851 weight -= seen[un_char]; 1854 seen[un_char]++;
|
H A D | regcomp.c | 123 U32 seen; member in struct:RExC_state_t 151 #define RExC_seen (pRExC_state->seen)
|
H A D | config_h.SH | 2663 * and 1.150000. The bug has been seen in certain versions of glibc,
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/ |
H A D | Carp.pm | 115 occur in the early compile phase will be seen.
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/DynaLoader/ |
H A D | DynaLoader_pm.PL | 775 memory corruption and crashes. This behaviour is most commonly seen when using
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
H A D | CC.pm | 1849 seen to be used at compile time. The down side is that any subs which
|
H A D | C.pm | 2149 seen to be used at compile time. The down side is that any subs which
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
H A D | Constant.pm | 815 The name of the constant, as seen by the perl code.
|
/osnet-11/usr/src/grub/grub-0.97/docs/ |
H A D | texinfo.tex | 2710 % contains an @itemize, we don't choke on the \item (seen as \crcr aka 2872 % Count number of #1's that we've seen. 6111 % Is this the first time we've seen this float type? 6611 % Haven't seen this figure type before.
|