summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/network.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 50f0b6612..3fa1359ed 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -213,6 +213,10 @@ sub sethostname {
my $text;
syscall_("sethostname", $netc->{HOSTNAME}, length $netc->{HOSTNAME}) ? ($text="set sethostname to $netc->{HOSTNAME}") : ($text="sethostname failed: $!");
log::explanations($text);
+
+ if (!$::isInstall) {
+ run_program::run("/usr/bin/run-parts", "--arg", $netc->{HOSTNAME}, "/etc/sysconfig/network-scripts/hostname.d");
+ }
}
sub resolv($) {