nortega/pacundo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Simplify get_pkgmgr() subroutine.

Browse Source 
Currently it only is configured to deal with pacman or yay (as noted in
the comment). Other AUR helpers would need to be configured.

Signed-off-by: Nicolás Ortega Froysa <nicolas@ortegas.org>
This commit is contained in:
Nicolás A. Ortega Froysa 2024-03-28 10:45:24 +01:00
parent aa7e2d2fbc
commit 615f491433
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
pacundo.pl
View File

@ -137,6 +137,8 @@ $n, $tx->{action}, $tx->{pkg_name}
return @sel_undo; return @sel_undo;
} }
# NOTE: Currently this subroutine only works for pacman and yay. You'll have to
# add options for additional AUR helpers.
sub get_pkgmgr() { sub get_pkgmgr() {
my $mgr = $ENV{DEFAULT_PKGMGR} // 'pacman'; my $mgr = $ENV{DEFAULT_PKGMGR} // 'pacman';
my $mgr_bin = `which $mgr 2>&1`; my $mgr_bin = `which $mgr 2>&1`;
@ -146,18 +148,13 @@ sub get_pkgmgr() {
exit 1; exit 1;
} }
my $mgr_cmd_search = "$mgr_bin -Ss";
my $mgr_cmd_install_remote = "$mgr_bin -S";
my $mgr_cmd_install_local = "$mgr_bin -U";
my $mgr_cmd_remove = "$mgr_bin -R";
my %pkgmgr = ( my %pkgmgr = (
name => $mgr, name => $mgr,
bin => $mgr_bin, bin => $mgr_bin,
search => $mgr_cmd_search, search => "$mgr_bin -Ss",
install_remote => $mgr_cmd_install_remote, install_remote => "$mgr_bin -S",
install_local => $mgr_cmd_install_local, install_local => "$mgr_bin -U",
remove => $mgr_cmd_remove, remove => "$mgr_bin -R",
); );
return \%pkgmgr; return \%pkgmgr;