add this:
use CGI::Carp 'fatalsToBrowser';

> -----Original Message-----
> From: Johnstone, Colin [mailto:Colin.Johnstone@;det.nsw.edu.au]
> Sent: Wednesday, November 06, 2002 4:18 PM
> To: '[EMAIL PROTECTED]'
> Subject: die not working
> 
> 
> Gidday all,
> 
> I assume when using die in this format I should see the error message.
> 
> #!/usr/bin/perl
> 
> use CGI qw( :standard );
> 
> print header();
> $file1 = /web/schooled/www/news/subscribers_news1.txt
> 
> open IN, "<$file1" or die("Cannot Open: $!");
> while( my $record = <IN> ){
>   chomp $record;
>   @data = split( /\|/, $record);
>   $subscribers1{$data[0]} = $data[1];
> }
> close IN;
> 
> The program dies but no error prints on the screen.
> 
> Where am I going wrong?
> 
> Colin Johnstone 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 

----------------------------------------------------------------------------
--------------------
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to