[Xen-devel] [OSSTEST PATCH 5/7] Debian preseed: Break out debian_overlays

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

We are going to want to handle the overlays elswhere too, so factor
out the iteration over them.

Signed-off-by: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx>
---
 Osstest/Debian.pm |   14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/Osstest/Debian.pm b/Osstest/Debian.pm
index a158f34..47d1767 100644
--- a/Osstest/Debian.pm
+++ b/Osstest/Debian.pm
@@ -34,6 +34,7 @@ BEGIN {
     $VERSION     = 1.00;
     @ISA         = qw(Exporter);
     @EXPORT      = qw(debian_boot_setup
+                      debian_overlays
                       %preseed_cmds
                       preseed_base
                       preseed_create
@@ -775,14 +776,23 @@ echo COMPRESS=/usr/sbin/osstest-initramfs-gzip >> \\
 END
 }
 
+sub debian_overlays ($) {
+    my ($func) = @_;
+    $func->($c{OverlayLocal}, 'overlay-local.tar');
+    $func->('overlay', 'overlay.tar');
+}
+
 sub preseed_base ($$$$;@) {
     my ($ho,$suite,$sfx,$extra_packages,%xopts) = @_;
 
     $xopts{ExtraPreseed} ||= '';
 
     preseed_ssh($ho, $sfx);
-    preseed_hook_overlay($ho, $sfx, $c{OverlayLocal}, 'overlay-local.tar');
-    preseed_hook_overlay($ho, $sfx, 'overlay', 'overlay.tar');
+
+    debian_overlays(sub {
+       my ($srcdir, $tfilename) = @_;
+       preseed_hook_overlay($ho, $sfx, $srcdir, $tfilename);
+    });
 
     my $preseed = <<"END";
 d-i debian-installer/locale string en_GB
-- 
1.7.10.4


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxx
http://lists.xen.org/xen-devel