I have the following code (extracted from my cgi program) and I am expecting
it to display an error message when it hits the "if ($@){...}" as a result
of hitting the "die" statement. It does not (as indicated by single stepping
with the windows perl debugger)! Instead it takes the else! Why?
I'm using ActiveSTate 5.8+. I tried perldoc.bat -f die but did not find any
clues to my problem.
eval{
die "No valid ID for User";
};
if($@){
print start_html(-title => "Error: $case_name",
-onload => "BodyLoad();",
-style => {"src"=>"../../css/convex.css"}
),
p("<h1> Error: $@");
print concat( [EMAIL PROTECTED]);
} else {
}
Thanks,
Siegfried
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
