view release on metacpan or  search on metacpan

bin/sbozyp  view on Meta::CPAN

    } elsif ($opt_listneedupdateversion) {
        my %installed_sbo_pkgs = installed_sbo_pkgs();
        for my $pkgname (sort keys %installed_sbo_pkgs) {
            my $installed_version = $installed_sbo_pkgs{$pkgname};
            my $available_version = pkg($pkgname)->{VERSION};
            if (version_gt($available_version, $installed_version)) {
                print "$pkgname $installed_version -> $available_version\n";
            }
        }
    } elsif ($opt_listpkgsnotinrepo) {
        print "$_\n" for sbo_pkgs_not_in_repo();
    }
}

sub main_search {
    sbozyp_getopts(
        \@_,
        'h|help' => \my $opt_help,
        'c'      => \my $opt_casesensitive,
        'n'      => \my $opt_matchcategory,
        'p'      => \my $opt_prgnam,

bin/sbozyp  view on Meta::CPAN

        %installed_sbo_pkgs = map {
            my ($prgnam, $version) = parse_slackware_pkgname(basename($_));
            # If $pkgname is undef then the current repo doesnt have the package. We only manage packages in the current repo.
            my $pkgname = prgnam_to_pkgname($prgnam);
            defined $pkgname ? ($pkgname, $version) : ();
        } grep /_SBo$/, sbozyp_readdir("$root/var/lib/pkgtools/packages");
    }
    return %installed_sbo_pkgs;
}

sub sbo_pkgs_not_in_repo {
    state @prgnams = do {
        my $root = $ENV{ROOT} // '/';
        -d "$root/var/lib/pkgtools/packages" ? sort grep { !prgnam_to_pkgname($_) } map {
            my ($prgnam) = parse_slackware_pkgname(basename($_));
        } grep /_SBo$/, sbozyp_readdir("$root/var/lib/pkgtools/packages") : ();
    };
    return @prgnams;
}

sub all_pkg_categories {