···

       
52
       
52
       
 
       
    my ($args) = @_;

     

       
53
       
53
       
 
       
    my $vm = Machine->new({%{$args}, log => $log, redirectSerial => ($ENV{USE_SERIAL} // "0") ne "1"});

     

       
54
       
54
       
 
       
    $vms{$vm->name} = $vm;

     

       
55
       
55
       
+
       
    $context .= "my \$" . $vm->name . " = \$vms{'" . $vm->name . "'}; ";

     

       
55
       
56
       
 
       
    return $vm;

     

       
56
       
57
       
 
       
}

     

       
57
       
58
       
 
       


     

       
58
       
59
       
 
       
foreach my $vmScript (@ARGV) {

     

       
59
       
60
       
 
       
    my $vm = createMachine({startCommand => $vmScript});

     

       
60
       
60
       
-
       
    $context .= "my \$" . $vm->name . " = \$vms{'" . $vm->name . "'}; ";

     

       
61
       
61
       
 
       
}

     

       
62
       
62
       
 
       


     

       
63
       
63