Below is code from "Beginning Perl Web Devolopment" by Steve Suehring, page
25, modified somewhat by me.
I added the line:
use CGI::Carp qw(fatalsToBrowser);
Then I deleted a double quote to create an error. It seems to make no
difference that I added the Carp line. I get the same error message as I
would without Carp.
Am I missing something?
****************************************
#!/usr//bin/perl -T
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;
print header;
print start_html('Hi'),
start_form,
"Sign in: ", textfield('name'),
submit,
end_form,
hr;
if(param('name')) {
print "Hi ", param('name'),p,
start_form,
"Please enter your favorite color: ",textfield('color'),
hidden(-name=>'name',-value=>param('name')),
submit,
end_form,
hr; }
if(param('color')) {
print "Hi ", param('name'),p,
"Your favorite color is: ",param('color'),p,
hr; }
print end_html;
exit;
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
