@@ -46,7 +46,6 @@ BEGIN {
preseed_hook_cmds
di_installcmdline_core
di_vg_name
- cfg_tftp_di_version
);
%EXPORT_TAGS = ( );
@@ -1360,12 +1359,6 @@ sub preseed_hook_cmds () {
return $preseed;
}
-sub cfg_tftp_di_version ($) {
- my ($suite) = @_;
- $suite //= 'x def suite'; # will not find $c{...}
- return $c{"TftpDiVersion_$suite"} // $c{TftpDiVersion};
-}
-
sub debian_guest_suite ($) {
my ($gho) = @_;
@@ -84,6 +84,7 @@ BEGIN {
git_massage_url
sshopts authorized_keys
+ cfg_tftp_di_version
remote_perl_script_open remote_perl_script_done
host_reboot target_reboot target_reboot_hard
target_choose_vg target_umount_lv target_await_down
@@ -2251,6 +2252,12 @@ sub authorized_keys () {
return $authkeys;
}
+sub cfg_tftp_di_version ($) {
+ my ($suite) = @_;
+ $suite //= 'x def suite'; # will not find $c{...}
+ return $c{"TftpDiVersion_$suite"} // $c{TftpDiVersion};
+}
+
#---------- webspace for installer ----------
sub await_webspace_fetch_byleaf ($$$$$) {