Re: uninitialized value in concatenation

[ikegami]

You cut off a relevant part of the error message: "or string". You have a string literal (<<EOF .. EOF) which interpolates an undefined variable. $email_400, $main_domain, $ENV{REDIRECT_URL} or $ENV{HTTP_REFERER} evaluates to undef. A more recent version of Perl would actually identify which in the error message.

[Galceran]

Possibly relates to the opening lines of the script</>

#!/usr/bin/perl -w
use strict;
my ($email_400, $email_500, $unfriendly_error, $redirect_to);
my $main_domain=getpwuid($<);
my @sendmail_path=(qw(/usr/sbin/sendmail -i -odb), "-fdcm\@nineone.org
+");

## Uncomment the below two lines to get emailed regarding the respecti
+ve
## errors.

$email_400="dcm\@$main_domain";
$email_500="dcm\@$main_domain";

should I give the whole script - 110 lines?

[ikegami]

should I give the whole script - 110 lines?

Why? The warning has already been explained. (I was going to say your question has already been answered, but you have yet to actually ask a question.)

I presume you want to know which variable isn't defined and why, but that's simple debugging. You can use defined to determine which variable isn't defined. To find out why it isn't defined, find out where the variable is getting set (if it's getting set at all) and find out when the initialiser might be undefined.