Changeset 1146


Ignore:
Timestamp:
Jan 10, 2011, 2:51:59 AM (9 years ago)
Author:
bruno
Message:
  • Fix call on run_on_start which needs a pointer on fct.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb

    r1145 r1146  
    22332233
    22342234# Set which port the VM will use to communicate
    2235 $pm->run_on_start(pb_set_port());
     2235$pm->run_on_start(\&pb_set_port);
    22362236
    22372237my $counter = 0;
     
    25182518
    25192519# Set which port the VM will use to communicate
    2520 $pm->run_on_start(pb_set_port());
     2520$pm->run_on_start(\&pb_set_port);
    25212521
    25222522my $counter = 0;
     
    34653465
    34663466die "No port passed in parameter. Report to dev team\n" if (not defined $port);
     3467pb_log(2,"pb_get_port with $port\n");
    34673468my $nport = $port;
    34683469# Maybe a port was given as parameter so overwrite
     
    34723473    $nport += $ENV{'PBVMPORT'} if ((defined $pbparallel) && (defined $ENV{'PBVMPORT'}));
    34733474}
     3475pb_log(2,"pb_get_port returns $nport\n");
    34743476return($nport);
    34753477}
     
    34783480       
    34793481my ($pid,$ident) = @_;
     3482pb_log(2,"pb_set_port for VM ($pid), id $ident\n");
    34803483$ENV{'PBVMPORT'} = $ident;
     3484pb_log(2,"pb_set_port sets PBVMPORT in env to $ENV{'PBVMPORT'}\n");
    34813485}
    34823486
     
    34853489my $vtype = shift;
    34863490
    3487 my ($pbvmmem) = pb_conf_get_if("pbvmmem");
    3488 
     3491pb_log(2,"pb_set_parallel vtype: $vtype\n");
    34893492# Take care of memory size if VM, parallel mode and more than 1 action
    34903493if ((defined $pbparallel) && ($pbparallel ne 1) && ($vtype eq "vm")) {
     
    35063509            my $ram = $si->{"totalram"}-$si->{"sharedram"}-$si->{"bufferram"};
    35073510            my $ram2;
     3511            my ($pbvmmem) = pb_conf_get_if("pbvmmem");
     3512
    35083513            if ((defined $pbvmmem) and (defined $pbvmmem->{$ENV{'PBPROJ'}})) {
    35093514                $ram2 = $pbvmmem->{$ENV{'PBPROJ'}};
     
    35163521    }
    35173522}
     3523pb_log(2,"pb_set_parallel returns: $pbparallel\n");
    35183524return($pbparallel);
    35193525}
Note: See TracChangeset for help on using the changeset viewer.