[OffTopic] Perl and Serial Devices

[Robert Canary]

Hi,

Sorry for another perl question ....

I have script here as follows:

--<create Lock file code is here>--

open (PORTACCESS, "+>>/dev/ttyC0");
print PORTACCESS "AT\&V1" . "\n\r";

alarm(10);
while (<PORTACCESS>) {
    print;
    chomp;
    /OK|ERROR/ && do {
        close(PORTACCESS);
        last;
    };
}


The code works fine, except if the modem never responds the code seems
to get stuck at "while(<PORTACCESS>)", and strangley enough the
alarm(10) never kicks it out.

Anyone know how I can get arounfd this problem?

thanks in advance ;-)
--
robert canary
system services
OhioCounty.Net
[EMAIL PROTECTED]
(270)298-9331 Office
(270)298-7449 Fax



-- 
To unsubscribe: mail [EMAIL PROTECTED] with "unsubscribe"
as the Subject.