[Xen-devel] [OSSTEST PATCH 02/11] di_special_kernel: Pass $kp to $fn

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

Adjust the one current caller.  No functional change

Signed-off-by: Ian Jackson <ian.jackson@xxxxxxxxxxxxx>
---
 Osstest/Debian.pm | 4 ++--
 ts-host-install   | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Osstest/Debian.pm b/Osstest/Debian.pm
index ba39ad2..6a1babf 100644
--- 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 2165436..01d04d4 100755
--- 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;
     });
-- 
2.1.4


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxxxxxxxxx
https://lists.xenproject.org/mailman/listinfo/xen-devel