di_special_kernel: Pass $kp to $fn

Adjust the one current caller.  No functional change

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>

diff --git a/Osstest/Debian.pm b/Osstest/Debian.pm
index ba39ad2ae9e1d0ca7e64d82b458e759bc95393fd..6a1babf526663d5e2198269b4dd5689958e05edd 100644 (file)
--- a/Osstest/Debian.pm
+++ b/Osstest/Debian.pm
@@ -1046,7 +1046,7 @@ END
 
 sub di_special_kernel ($$$) {
     my ($ho, $d_i, $fn) = @_;
-    # calls $fn->($kernel, $cpio) # either or both may be undef
+    # calls $fn->($kp, $kernel, $cpio) # $kernel and/or $cpio may be undef
     foreach my $kp (keys %{ $ho->{Flags} }) {
         my $kernel;
         # Backwards compatibility
@@ -1070,7 +1070,7 @@ sub di_special_kernel ($$$) {
         } else {
             die "$kp $cpio $!";
         }
-        $fn->($kernel, $cpio);
+        $fn->($kp, $kernel, $cpio);
     }
 }
 

diff --git a/ts-host-install b/ts-host-install
index 21654369ec4dec573685841eb26275afa314b606..01d04d4864d57c37e64ab429c3834a95b7620b37 100755 (executable)
--- a/ts-host-install
+++ b/ts-host-install
@@ -182,7 +182,7 @@ sub setup_netboot_firstboot($) {
     }
 
     di_special_kernel($ho, $d_i, sub {
-        my ($k, $cpio) = @_;
+        my ($kp, $k, $cpio) = @_;
         $kernel = $k if defined $k;
         push @initrds, $cpio if defined $cpio;
     });