Imported Upstream version 3.3.0

[debian/amanda] / installcheck / Installcheck / Run.pm

diff --git a/installcheck/Installcheck/Run.pm b/installcheck/Installcheck/Run.pm
index 5bf1b1067ec260090ce11e3a036fcac3b113688b..4b1d3a2680dd51e3cbd9207b468f976febc93f0e 100644 (file)
--- 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);