RE: 1 at end of script

2005-04-05 Thread Peter Scott
On Sun, 03 Apr 2005 14:45:55 -0500, Dave Kettmann wrote: > Nevermind I *just* figured it out. It is the exit code. Oops :) It just occurred to me that perhaps by 'exit code' you meant 'return value of the subroutine' instead of what 'exit code' normally means, the exit code of the script, in which

RE: 1 at end of script

2005-04-05 Thread Peter Scott
On Sun, 03 Apr 2005 14:45:55 -0500, Dave Kettmann wrote: > Nevermind I *just* figured it out. It is the exit code. Oops :) No it isn't. It is the result of printing the return value of a subroutine whose last expression evaluated is a print() statement. >> $action = param('action'); >> if (

RE: 1 at end of script

2005-04-03 Thread Dave Kettmann
Nevermind I *just* figured it out. It is the exit code. Oops :) Dave > -Original Message- > From: Dave Kettmann > Sent: Sunday, April 03, 2005 2:45 PM > To: Perl List (E-mail) > Subject: 1 at end of script > > > Hello all, > > This is a CGI question,

1 at end of script

2005-04-03 Thread Dave Kettmann
Hello all, This is a CGI question, and I know there is a CGI list for beginners, but this should be a simple question. At the end of my script, a "1" is printed and I dont know where it comes from. Here is my code so far: --code-- #!/usr/bin/perl use CGI qw(:standard); print header; print