allow to ask for some configuration fields (useful for "device" in "rtc" category)

1 files changed, 6 insertions, 1 deletions

diff --git a/perl-install/network/thirdparty.pm b/perl-install/network/thirdparty.pm
index 23471aab2..e4a85b5f8 100644
--- a/perl-install/network/thirdparty.pm
+++ b/perl-install/network/thirdparty.pm
@@ -414,7 +414,8 @@ sub install_packages {
 }
 
 sub setup_device {
-    my ($in, $category, $driver) = @_;
+    my ($in, $category, $driver, $o_config, $o_fields) = @_;
+
     if (my $settings = find_settings($category, $driver)) {
 	log::explanations(qq(Found settings for driver "$driver" in category "$category"));
 
@@ -437,6 +438,10 @@ sub setup_device {
     } else {
 	log::explanations(qq(No settings found for driver "$driver" in category "$category"));
     }
+
+    #- assign requested settings, erase with undef if no settings have been found
+    $o_config->{$_} = $settings->{$_} foreach ($o_fields);
+
     1;
 }