Use the -no_debug pragma: use CGI qw( -no_debug );
For more info, check out: <http://stein.cshl.org/WWW/software/CGI/#import> Regards, Tim Canon [EMAIL PROTECTED] on 2002.04.12 12:35, drieux at [EMAIL PROTECTED] wrote: > > volks, > > when I run > > perl Skank.pl > > on the command line on my solaris and/or unix boxes it takes > the default path through the code and dumps out what the html > would be - but when I run the same code on my OSX box it dumps > out a weird case: > [jeeves:/tmp/drieux/perl] drieux% perl Crap.pl > (offline mode: enter name=value pairs on standard input) > ^C > [jeeves:/tmp/drieux/perl] drieux% > > and I have to pass it a ^D to get it to woof out the page.... > > [jeeves:/tmp/drieux/perl] drieux% perl Crap.pl > (offline mode: enter name=value pairs on standard input) > ^D <-------this is not 'visible' but what had to happen.... > Content-Type: text/html > > <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"> > <HTML><HEAD><TITLE>Untitled Document</TITLE> > </HEAD><BODY><FORM METHOD="POST" > ENCTYPE="application/x-www-form-urlencoded"> > <INPUT TYPE="hidden" NAME="crap" VALUE="here is a quote "this Quote& > quot;."><INPUT TYPE="submit" NAME=".submit"> > </FORM></BODY></HTML> > [jeeves:/tmp/drieux/perl] > > is this a feature or a bug? > > I have not turned on the apache web server, running plain jane > OS X, 10.1.2 and what ever the default perl 5.6.1 load came off > the CD Rom... > > ciao > drieux > > --- > > [jeeves:/tmp/drieux/perl] drieux% sed 's/^/### /' Crap.pl > ### #!perl > ### use strict; > ### use warnings; > ### use CGI qw(:standard); > ### > ### my $page_o_html = ''; > ### > ### $page_o_html .= header(); > ### if(param()){ > ### $page_o_html .= param('crap'), p(); > ### } else { > ### $page_o_html .= start_html; > ### $page_o_html .= start_form(); > ### my $crap = 'here is a quote "this Quote".'; > ### ##### $page_o_html .= "Hidden file: $crap"; > ### $page_o_html .= hidden(-name =>'crap', > ### -value => $crap); > ### > ### $page_o_html .= submit(), p(); > ### $page_o_html .= end_form(); > ### $page_o_html .= end_html; > ### } > ### > ### print "$page_o_html \n"; > [jeeves:/tmp/drieux/perl] drieux% >
