view release on metacpan or  search on metacpan

t/50-openbin.t  view on Meta::CPAN

    my ($status, $output);

    my @command_line = ($^X, qw(-I lib bin/openit), @config_args, @_);

    if (DEBUG) {
        diag "Executing '@command_line'";
    }

    open(FH, "-|", @command_line) && do {
        $output = <FH>;
        # temporary use to verify we opened successfully, since we can't record
        # $? until the filehandle closes.
        $status = 1; 
        close(FH);
    };

    $status = WEXITSTATUS($?) if ($status);
    return ($status, $output);
}

my ($status, $output);