From 2e7cd0b76acfdc63bfaa0043c1f9bb93c4045192 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 23 Jun 2016 14:37:54 +0200
Subject: (system_info) split it

---
 perl-install/install/any.pm      | 6 ++++++
 perl-install/install/install2.pm | 3 +--
 2 files changed, 7 insertions(+), 2 deletions(-)

(limited to 'perl-install/install')

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
 
-- 
cgit v1.2.1