view release on metacpan or  search on metacpan

lib/Alien/Gnuplot.pm  view on Meta::CPAN

250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
    system(qq{"$exec_path" < ${file}_gzinta});
    open STDOUT,">&FOO";
    open STDERR,">&BAR";
    close FOO;
    close BAR;
} else {
    $pid = fork();
    if(defined($pid)) {
        if(!$pid) {
            # daughter
            open BAR, ">&STDERR"; # preserve stderr
            eval { 
                open STDOUT, ">$file";
                open STDERR, ">&STDOUT";
                open STDIN, "<${file}_gzinta";
                seek STDIN, 0, SEEK_SET;
                no warnings; 
                exec($exec_path);
                print BAR "Execution of $exec_path failed!\n";
                exit(1);
            };