diff options
| -rw-r--r-- | perl-install/network/network.pm | 4 |
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($) { |