I have two different methods of pulling data from a remote node. If the first doesn't work, it should try the 2nd. For some reason, the first eval block works fine, after 10 seconds, it gives up and goes to the next. But, the second eval block never will time out. It just hangs the entire process. Any suggestions as to what might cause this? First version had two separate eval blocks, when that wasn't working, i tried nesting the 2nd eval block in the 1st one, but that didn't make a difference. 
eval {
        local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
        alarm 10;
        system("/nsh/bin/nexec $node \"date\" > /dev/null 2>&1");
        alarm 0;
};
if ($@) { ### Timed Out
        print "Block 1 Alarm, blkillhung $node\n";
        &killhung($node);
        $CMOK = 1;
        eval {
                local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n req
+uired
                alarm 10;
                system("rcmd -q -n $node \"date\" > /tmp/date.${node}"
+);
                alarm 0;
        };
        if ($@) { ### Timed Out
                print "Block 2 Alarm, killhung $node\n";
                &killhung($node);
                $CMOK = 1;
        }
        else {
                $CMOK = 0;
        }
}

[download]

In reply to eval and alarm by Earindil

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.