view release on metacpan or  search on metacpan

alienfile  view on Meta::CPAN

    };
    my $arch_index_url = "${version_index_url}/${arch_id}/";

    my ($version) = $version_index_url =~ m,/([0-9\.]+)$,;
    $build->runtime_prop->{version} = $version;

    do {
      my $ret = $build->decode( $build->fetch($arch_index_url) );
      $build->log(".msi list (all) " . join(" ", map $_->{filename}, @{ $ret->{list} }));

      # filter out debugging .msi's
      my @filtered_list = grep {
        $_->{filename} !~ /(_d|_pdb)\.msi$/
      } @{ $ret->{list} };
      $build->log(".msi list (filter) " . join(" ", map $_->{filename}, @filtered_list));

      # Need to skip:
      #
      # Reason: modify global environment
      #   - appendpath.msi
      #   - path.msi