[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl-win32-users
Subject:    Re: Trap error to avoid windows error dialog box
From:       sylvie <sylvie250 () yahoo ! fr>
Date:       2005-02-28 14:17:36
Message-ID: 20050228141736.47553.qmail () web30008 ! mail ! mud ! yahoo ! com
[Download RAW message or body]

Thanks a lot, Rob. That's exactly what I needed. The
script continues to crash but I can relaunch it
straight after.
Thanks Chris but the script performs many other tasks
and can't be executed only once an hour.
br,
Sylvie


> Try:
> 
> use warnings;
> use Win32::API;
> 
> my $errfunc = Win32::API->new('kernel32',
> 'SetErrorMode', 'I', 'I');
> 
> $initial_mode = $errfunc->Call(2);
> $errfunc->Call($initial_mode | 2);
> 
> eval{# Your Net::FTP code ...};
> 
> __END__



	

	
		
Découvrez le nouveau Yahoo! Mail : 250 Mo d'espace de stockage pour vos mails ! 
Créez votre Yahoo! Mail sur http://fr.mail.yahoo.com/
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
[prev in list] [next in list] [prev in thread] [next in thread]