Fix to keep new lines consistent and nice when installing

This commit is contained in:
Ilia Ross 2025-05-28 12:42:22 +03:00
parent 8dada63714
commit 16e1135bd1
No known key found for this signature in database
GPG Key ID: 121E166DD9C821AB
4 changed files with 4 additions and 4 deletions

View File

@ -300,7 +300,7 @@ sub update_system_install
local $update = $_[0] || $in{'update'};
local $cmd = "emerge ".quotemeta($update);
local @rv;
print &text('emerge_install', "<tt>$cmd</tt>"),"<p>\n";
print &text('emerge_install', "<tt>$cmd</tt>"),"\n";
print "<pre>\n";
&additional_log('exec', undef, $cmd);
&open_execute_command(CMD, "$cmd 2>&1 </dev/null", 1);

View File

@ -16,7 +16,7 @@ my $force = !$_[2];
# Build and show command to run
$update = join(" ", map { quotemeta($_) } split(/\s+/, $update));
my $cmd = "pkg install ".$update;
print &text('pkg_install', "<tt>$cmd</tt>"),"<p>\n";
print &text('pkg_install', "<tt>$cmd</tt>"),"\n";
print "<pre>";
&additional_log('exec', undef, $cmd);

View File

@ -222,7 +222,7 @@ my @rv;
# Build and show command to run
$update = join(" ", map { quotemeta($_) } split(/\s+/, $update));
my $cmd = "pkgin -y install ".$update;
print &text('pkgsrc_install', "<tt>$cmd</tt>"),"<p>\n";
print &text('pkgsrc_install', "<tt>$cmd</tt>"),"\n";
print "<pre>";
&additional_log('exec', undef, $cmd);

View File

@ -8,7 +8,7 @@ my ($update, $in) = @_;
$update ||= $in{'update'};
my (@rv, @newpacks);
my @want = split(/\s+/, $update);
print &text('ports_install', "<tt>$update</tt>"),"<p>\n";
print &text('ports_install', "<tt>$update</tt>"),"\n";
print "<pre>";
my $err = 0;
foreach my $w (@want) {