Lines Matching refs:platforms

353             && $items[0]->platforms() eq $items[1]->platforms();
356         my @platforms = ( { $items[0]->platforms() },
357                           { $items[1]->platforms() } );
358         foreach my $platform (keys %{$platforms[0]}) {
359             if (exists $platforms[1]->{$platform}) {
360                 if ($platforms[0]->{$platform} != !$platforms[1]->{$platform}) {
363                              map { my %tmp_h = $_->platforms();
371                 delete $platforms[0]->{$platform};
372                 delete $platforms[1]->{$platform};
376         if (%{$platforms[0]} || %{$platforms[0]}) {
388     my %platforms = ();
394         if ($def =~ m{^_?WIN32$})                   { $platforms{$&} = $op; }
395         if ($def =~ m{^__FreeBSD__$})               { $platforms{$&} = $op; }
400         if ($def =~ m{^OPENSSL_SYS_})               { $platforms{$'} = $op; }
403     return %platforms;
463     my %platforms = _parse_platforms(@defs);
484                                       platforms     => { %platforms },
530     my %platforms = _parse_platforms(@defs);
560         my %alias_platforms = $items[0]->platforms();
561         foreach (keys %platforms) {
562             $alias_platforms{$_} = !$platforms{$_};
565         $items[0]->{platforms} = { %alias_platforms };
577             platforms     => { %platforms },
817                   platforms     => { map { m|^(!)?|; $' => !$1 }
824             && ref($opts{platforms} // {}) eq 'HASH'
836                       platforms => { %{$opts{platforms} // {}} },
946     my %platforms = $self->platforms();
955         join(',', (map { ($platforms{$_} ? '' : '!') . $_ }
956                    sort keys %platforms)),