Fix to use new file names for modes

This commit is contained in:
Ilia Ross 2025-06-05 23:38:46 +03:00
parent d519c4099f
commit 282b28da5e
No known key found for this signature in database
GPG Key ID: 121E166DD9C821AB
4 changed files with 4 additions and 4 deletions

View File

@ -2,7 +2,7 @@
# Builds a tar.gz package of a specified Webmin version
# Parse command line options
$mod_list = 'def';
$mod_list = 'full';
@ARGV = map { /^--\S+\s+/ ? split(/\s+/, $_) : $_ } @ARGV;
while (@ARGV && $ARGV[0] =~ /^--?/) {
my $opt = shift(@ARGV);
@ -285,6 +285,6 @@ close(ARFILE);
sub usage
{
die "Usage: $0 [--minimal] [--mod-list file] <version>\n";
die "Usage: $0 [--minimal] [--mod-list type] <version>\n";
}

View File

@ -246,7 +246,7 @@ if ($debdepends && exists($minfo{'depends'})) {
my $curr_dir = $0;
($curr_dir) = $curr_dir =~ /^(.+)\/[^\/]+$/;
$curr_dir = "." if ($curr_dir !~ /^\//);
my $mod_def_file = "$curr_dir/mod_def_list.txt";
my $mod_def_file = "$curr_dir/mod_full_list.txt";
next if (! -r $mod_def_file);
open(my $fh, '<', $mod_def_file) ||
die "Error opening \"$mod_def_file\" : $!\n";

View File

@ -267,7 +267,7 @@ if ($rpmdepends && defined($minfo{'depends'})) {
my $curr_dir = $0;
($curr_dir) = $curr_dir =~ /^(.+)\/[^\/]+$/;
$curr_dir = "." if ($curr_dir !~ /^\//);
my $mod_def_file = "$curr_dir/mod_def_list.txt";
my $mod_def_file = "$curr_dir/mod_full_list.txt";
next if (! -r $mod_def_file);
open(my $fh, '<', $mod_def_file) ||
die "Error opening \"$mod_def_file\" : $!\n";