X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=installcheck%2FInstallcheck%2FRun.pm;h=4b1d3a2680dd51e3cbd9207b468f976febc93f0e;hb=cd0b924f27312d57bd42f6c4fae2b795139e2d0b;hp=5bf1b1067ec260090ce11e3a036fcac3b113688b;hpb=011a59f5a54864108a16af570a6b287410597cc2;p=debian%2Famanda

diff --git a/installcheck/Installcheck/Run.pm b/installcheck/Installcheck/Run.pm
index 5bf1b10..4b1d3a2 100644
--- a/installcheck/Installcheck/Run.pm
+++ b/installcheck/Installcheck/Run.pm
@@ -190,13 +190,15 @@ our $holdingdir ="$Installcheck::TMP/holding";
 
 sub setup {
     my $new_vtapes = shift;
+    my $nb_slot = shift;
     my $testconf = Installcheck::Config->new();
 
+    $nb_slot = 3 if !defined $nb_slot;
     (-d $diskname) or setup_backmeup();
     if ($new_vtapes) {
-	setup_new_vtapes($testconf, 3);
+	setup_new_vtapes($testconf, $nb_slot);
     } else {
-	setup_vtapes($testconf, 3);
+	setup_vtapes($testconf, $nb_slot);
     }
     setup_holding($testconf, 25);
     setup_disklist($testconf);