RE: How to reproduce a hanging connect attempt

> In Perl:
>
> my $dbh = '';
> eval {
> local $SIG{ALRM} = sub { die };
> alarm 60;
>
> my $dbh = DBI->connect(
> 'dbi:Oracle:' . $db,
> 'scott','tiger',
> );
> };
> alarm 0;
>
> unless ($dbh) {
> print "db $db is down";
> }

>

Humm do you know what the alarm function on windows 2000 pro is??

Im gettting
The Unsupported function alarm function is unimplemented at C:\evaldb.pl line 11. It looks like alarm is a perl function

I can see the doc from

Perldoc -f alarm

Nevertheless I get the unsupported function

Line 11 is alarm 0;

??

Thanks
rob

-- 
Please see the official ORACLE-L FAQ: http://www.orafaq.com
-- 
Author: Bob Metelsky
  INET: bmetelsky_at_cps92.com

Fat City Network Services    -- 858-538-5051 http://www.fatcity.com
San Diego, California        -- Mailing list and web hosting services
---------------------------------------------------------------------
To REMOVE yourself from this mailing list, send an E-Mail message
to: ListGuru_at_fatcity.com (note EXACT spelling of 'ListGuru') and in
the message BODY, include a line containing: UNSUB ORACLE-L
(or the name of mailing list you want to be removed from).  You may
also send the HELP command for other information (like subscribing).