Jerry Kassebaum wrote:
> 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
You should just get a typical error message you would get from a commandline
run of same.
What exactly are you getting back ?
Also, you may want to try it without taint checking on to see if that affects
it.
> 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
