diff options
Diffstat (limited to 'perl-install/install')
-rw-r--r-- | perl-install/install/any.pm | 6 | ||||
-rw-r--r-- | perl-install/install/install2.pm | 3 |
2 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index 76fefc8b4..92b3bcb2f 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -938,6 +938,12 @@ sub kdemove_desktop_file { } } +sub log_system_info { + my ($o) = @_; + log::l("second stage install running (", drakx_version($o), ")"); + log::l(sprintf("Virtualization=%s", detect_devices::virt_technology())); +} + #-############################################################################### #- auto_install stuff diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm index ded0c978c..05fd0b3f1 100644 --- a/perl-install/install/install2.pm +++ b/perl-install/install/install2.pm @@ -685,8 +685,7 @@ sub main { $o->{stage2_phys_medium} = install::media::stage2_phys_medium($o->{method}); - log::l("second stage install running (", install::any::drakx_version($o), ")"); - log::l(sprintf("Virtualization=%s", detect_devices::virt_technology())); + install::any::log_system_info($o); eval { touch('/root/non-chrooted-marker.DrakX') }; #- helps distinguishing /root and /mnt/root when we don't know if we are chrooted |