VladPolskiy/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2025-07-21 23:40:34 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix to properly delete and protect Debian dependencies

Browse Source
This commit is contained in:
Ilia Ross
2025-05-25 22:50:44 +03:00
parent 45c4ea214e
commit b9bde5bee0
2 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
phpini/delete_pkgs.cgi
View File

@ -50,7 +50,7 @@ else {
foreach my $pkg (@delpkgs) {
print &text('dpkgs_doing', "<tt>$pkg->{'name'}</tt>",
$pkg->{'phpver'}),"<br>\n";
$err = &delete_php_base_package($pkg);
$err = &delete_php_base_package($pkg, \@pkgs);
if ($err) {
print &text('dpkgs_failed', $err),"<p>\n";
}

15
phpini/phpini-lib.pl
View File

@ -1037,19 +1037,20 @@ foreach my $pkg (@$pkgs) {
}
}
# delete_php_base_package(&package)
# delete_php_base_package(&package, &installed)
# Delete a PHP package, and return undef on success or an error on failure
sub delete_php_base_package
{
my ($pkg) = @_;
foreach my $p (&list_all_php_version_packages($pkg)) {
my ($pkg, $installed) = @_;
my @targets = &list_all_php_version_packages($pkg);
my $deb_want_deps = (grep { $_ eq 'php-common' } @targets) && @{$installed} > 1;
foreach my $p (@targets) {
my @info = &software::package_info($p);
next if (!@info);
my $err = &software::delete_package($p,
{ 'nodeps' => 1, 'depstoo' => 1 });
if ($err) {
return &html_strip($err);
}
{ nodeps => 1,
( !$deb_want_deps ? ( depstoo => 1 ) : () ) });
return &html_strip($err) if ($err);
}
return undef;
}