86 my $sLabelBaseString = $sFbfProjectRepo;

    86 my $sLabelBaseString = $sFbfProjectRepo;

    87 $sLabelBaseString = $sFbfProjectDir if ($sFbfProjectDir);

    87 $sLabelBaseString = $sFbfProjectDir if ($sFbfProjectDir);

    88 $sLabelBaseString =~ m,.*[\\/]([^\\^/]+),;

    88 $sLabelBaseString =~ m,.*[\\/]([^\\^/]+),;

    89 my $sJobLabel = $1;

    89 my $sJobLabel = $1;

    90 $sJobLabel = $sLabelBaseString if (! $1);

    90 $sJobLabel = $sLabelBaseString if (! $1);

    91 my $sJobDir = mkdir_unique("$sJOB_BASE_DIR\\$sJobLabel");

    92 my $sJobDir = mkdir_unique("$sJOB_BASE_DIR\\$sJobLabel");

    92 print "Created project dir $sJOB_BASE_DIR\\$sJobLabel\n";

    93 print "Created project dir $sJOB_BASE_DIR\\$sJobLabel\n";

    93 

    94 

    94 print("cd $sBOOTSTRAP_DIR\n");

    95 print("cd $sBOOTSTRAP_DIR\n");

    95 chdir("$sBOOTSTRAP_DIR");

    96 chdir("$sBOOTSTRAP_DIR");