(my $res, my $stdout, my $stderr) = captureStdoutStderr(60, ("hydra-evaluator", $projectName, $jobsetName));

    captureStdoutStderr(60, "hydra-evaluator", $projectName, $jobsetName);

            or die "Cannot copy path $uri to the Nix store.\n";

            or die "cannot copy path $uri to the Nix store.\n";

        die "Cannot get head revision of Subversion repository at `$uri':\n$stderr"
            unless IPC::Run::run(@cmd, \$stdout, \$stderr);

        IPC::Run::run(@cmd, \$stdout, \$stderr);
        die "cannot get head revision of Subversion repository at `$uri':\n$stderr" if $?;

        (my $res, $stdout, $stderr) = captureStdoutStderr(600,
            ("svn", "checkout", $uri, "-r", $revision, $wcPath));

        (my $res, $stdout, $stderr) = captureStdoutStderr(600, "svn", "checkout", $uri, "-r", $revision, $wcPath);
        die "error checking out Subversion repo at `$uri':\n$stderr" if $res;

        ($res, $stdout, $stderr) = captureStdoutStderr(600,
            ("git", "clone", "--branch", $branch, $uri, $clonePath));
        die "Error cloning git repo at `$uri':\n$stderr" unless $res;

        ($res, $stdout, $stderr) = captureStdoutStderr(600, "git", "clone", "--branch", $branch, $uri, $clonePath);
        die "error cloning git repo at `$uri':\n$stderr" if $res;

        ("git", "fetch", "-fu", "origin", "+$branch:$branch"));

        "git", "fetch", "-fu", "origin", "+$branch:$branch");

        ("git", "fetch", "-fu", "origin")) unless $res;
    die "Error fetching latest change from git repo at `$uri':\n$stderr" unless $res;

        "git", "fetch", "-fu", "origin") if $res;
    die "error fetching latest change from git repo at `$uri':\n$stderr" if $res;

    die "Error getting revision number of Git branch '$branch' at `$uri':\n$stderr" unless $res;

    die "error getting revision number of Git branch '$branch' at `$uri':\n$stderr" if $res;

    die unless $revision =~ /^[0-9a-fA-F]+$/;
    die "Error getting a well-formated revision number of Git branch '$branch' at `$uri':\n$stdout" unless $res;

    die "error getting a well-formated revision number of Git branch '$branch' at `$uri':\n$stdout"
        unless $revision =~ /^[0-9a-fA-F]+$/;

        ($res, $stdout, $stderr) = captureStdoutStderr(600,
            ("git", "checkout", "$branch"));
        die "Error checking out Git branch '$branch' at `$uri':\n$stderr" unless $res;

        ($res, $stdout, $stderr) = captureStdoutStderr(600, "git", "checkout", "$branch");
        die "error checking out Git branch '$branch' at `$uri':\n$stderr" if $res;

                ("tg", "remote", "--populate", "origin"));
            print STDERR "Warning: `tg remote --populate origin' failed:\n$stderr" unless $res;

                "tg", "remote", "--populate", "origin");
            print STDERR "warning: `tg remote --populate origin' failed:\n$stderr" if $res;

        ($res, $stdout, $stderr) = captureStdoutStderr(600,
            ("nix-prefetch-git", $clonePath, $revision));
        die "Cannot check out Git repository branch '$branch' at `$uri':\n$stderr" unless $res;

        ($res, $stdout, $stderr) = captureStdoutStderr(600, "nix-prefetch-git", $clonePath, $revision);
        die "cannot check out Git repository branch '$branch' at `$uri':\n$stderr" if $res;

        (my $res, $stdout, $stderr) = captureStdoutStderr(600,
            ("bzr", "branch", $uri, $clonePath));
        die "Error cloning bazaar branch at `$uri':\n$stderr" unless $res;

        (my $res, $stdout, $stderr) = captureStdoutStderr(600, "bzr", "branch", $uri, $clonePath);
        die "error cloning bazaar branch at `$uri':\n$stderr" if $res;

    (my $res, $stdout, $stderr) = captureStdoutStderr(600,
        ("bzr", "pull"));
    die "Error pulling latest change bazaar branch at `$uri':\n$stderr" unless $res;

    (my $res, $stdout, $stderr) = captureStdoutStderr(600, "bzr", "pull");
    die "error pulling latest change bazaar branch at `$uri':\n$stderr" if $res;

    my @cmd = (["bzr", "revno"],
               "|", ["sed", 's/^ *\([0-9]*\).*/\1/']);

    my @cmd = (["bzr", "revno"], "|", ["sed", 's/^ *\([0-9]*\).*/\1/']);

    die "Cannot get head revision of Bazaar branch at `$uri':\n$stderr"
        unless IPC::Run::run(@cmd, \$stdout, \$stderr);

    IPC::Run::run(@cmd, \$stdout, \$stderr);
    die "cannot get head revision of Bazaar branch at `$uri':\n$stderr" if $?;

            ("nix-prefetch-bzr", $clonePath, $revision));
        die "Cannot check out Bazaar branch `$uri':\n$stderr" unless $res;

            "nix-prefetch-bzr", $clonePath, $revision);
        die "cannot check out Bazaar branch `$uri':\n$stderr" if $res;

            ("hg", "clone", $uri, $clonePath));
        die "Error cloning mercurial repo at `$uri':\n$stderr" unless $res;

            "hg", "clone", $uri, $clonePath);
        die "error cloning mercurial repo at `$uri':\n$stderr" if $res;

    (my $res, $stdout, $stderr) = captureStdoutStderr(600,
        ("hg", "pull"));
    die "Error pulling latest change mercurial repo at `$uri':\n$stderr" unless $res;

    (my $res, $stdout, $stderr) = captureStdoutStderr(600, "hg", "pull");
    die "error pulling latest change mercurial repo at `$uri':\n$stderr" if $res;

    (my $res1, $stdout, $stderr) = captureStdoutStderr(600,("hg", "log", "-r", $id, "--template", "{node|short} {rev} {branch}"));
    die "Error getting branch and revision of $id from `$uri':\n$stderr" unless $res1;

    (my $res1, $stdout, $stderr) = captureStdoutStderr(600,
        "hg", "log", "-r", $id, "--template", "{node|short} {rev} {branch}");
    die "error getting branch and revision of $id from `$uri':\n$stderr" if $res1;

            ("nix-prefetch-hg", $clonePath, $revision));
        die "Cannot check out Mercurial repository `$uri':\n$stderr" unless $res;

            "nix-prefetch-hg", $clonePath, $revision);
        die "cannot check out Mercurial repository `$uri':\n$stderr" if $res;

        die "Input `" . $name . "' has unknown type `$type'.";

        die "input `" . $name . "' has unknown type `$type'.";

    my $res;

        $res = IPC::Run::run(\@cmd, \$stdin, \$stdout, \$stderr);

        IPC::Run::run(\@cmd, \$stdin, \$stdout, \$stderr);

        die unless $@ eq "timeout\n";   # propagate unexpected errors
        return (undef, "", "timeout\n");

        die unless $@ eq "timeout\n"; # propagate unexpected errors
        return (-1, "", "timeout\n");

        return ($res, $stdout, $stderr);

        return ($?, $stdout, $stderr);

        or die "Cannot find the input containing the job expression.\n";
    die "Multiple alternatives for the input containing the Nix expression are not supported.\n"

        or die "cannot find the input containing the job expression.\n";
    die "multiple alternatives for the input containing the Nix expression are not supported.\n"

        ($evaluator, $nixExprFullPath, "--gc-roots-dir", getGCRootsDir, "-j", 1, inputsToArgs($inputInfo, $exprType)));
    die "Cannot evaluate the Nix expression containing the jobs:\n$stderr" unless $res;

        $evaluator, $nixExprFullPath, "--gc-roots-dir", getGCRootsDir, "-j", 1, inputsToArgs($inputInfo, $exprType));
    die "cannot evaluate the Nix expression containing the jobs:\n$stderr" if $res;

clean :

clean:

	rm -f .*-state

db.sqlite : $(top_srcdir)/src/sql/hydra-sqlite.sql

db.sqlite: $(top_srcdir)/src/sql/hydra-sqlite.sql

repos : dirs

repos: dirs

dirs :

dirs:

    return $res;

    return !$res;

    print "STDERR: $stderr" if $res;
    return ($res, $stdout, $stderr);

    print "STDERR: $stderr" if $stderr ne "";
    return !$res;

    die "Unexpected update error with $scm: $stderr\n" unless $res;

    die "unexpected update error with $scm: $stderr\n" if $res;