identifying an IPC::Run + eval block error

EvanK has asked for the wisdom of the Perl Monks concerning the following question:

here's the thing, I'm using IPC::Run to call and talk to another script, and it keeps popping up a syntax error.

i've identified that the error is coming from the eval block, and if i remove the eval but leave the statements inside of it, the error goes away.

I'm sure its got to be something blatantly obvious that I'm just overlooking, but I would REALLY appreciate any help.

sub authUser
{
    # open two-way pipe to auth script (or die with an error)
    my($h,$in,$out,$err,$t);

    my @cmd = ( $pathToPerl, './auth.pl' );

    eval
    {
        $h = harness(\@cmd, \$in, \$out, \$err, ( $t = timeout 5 ) );
        start($h);
        $in = "$cUser\n$cPass\n";

        pump($h) while length($in);  ## Wait for all input to go
        pump($h) until $out =~ m/\n\x1E\x1E\x1D\x1E/;

        finish $h;
    }

    if( $@ )
    {
        $h->kill_kill;
        die("failed to connect to authorization module: $@");
    }
}
[download]

__________
Give a man a match and he'll be warm for an hour. Set him on fire and he'll be warm for the rest of his life.

Comment on identifying an IPC::Run + eval block error Select or Download Code

Replies are listed 'Best First'.
Re: identifying an IPC::Run + eval block error by pg (Canon) on Aug 26, 2005 at 01:19 UTC
Modified two lines, see comment: sub authUser { # open two-way pipe to auth script (or die with an error) my($h,$in,$out,$err,$t); my @cmd = ( $pathToPerl, './auth.pl' ); eval { $h = harness(\@cmd, \$in, \$out, \$err, $t=timeout (5)); #modi +fied this line to fix timeout syntax start($h); $in = "$cUser\n$cPass\n"; pump($h) while length($in); ## Wait for all input to go pump($h) until $out =~ m/\n\x1E\x1E\x1D\x1E/; finish $h; }; #modified this line, added ';' if ($@) { $h->kill_kill; die("failed to connect to authorization module: $@"); } } [download]	[reply] [d/l]
Re^2: identifying an IPC::Run + eval block error by EvanK (Chaplain) on Aug 27, 2005 at 01:41 UTC
ah, a missing semicolon can cause that much grief. i knew i needed the discerning eyes of a fellow monk! ++, pg, i appreciate the help! __________ Give a man a match and he'll be warm for an hour. Set him on fire and he'll be warm for the rest of his life.	[reply]