Re: Re: Can someone explain this error?

[wstarrs]

Here is where I think the prob is:

@key_array = keys %pers_dcr_files;
    my(@graphic) = ();
    my(@url) = ();

    for ($i=0; $i<2; $i++) {

        $key = $key_array[$i];
        $graphic[$i] = $pers_dcr_files{$key}{SmallGraphic};
        $url[$i] = $pers_dcr_files{$key}{LinkURL};

        if (("$graphic[$i]" ne "") && ("$url[$i]" eq "")) {
            
            $name = generate_link_name($pers_dcr_files{$key}{RightNavL
+aunchDate}, $pers_dcr_files{$key}{RightNavExpirationDate}, 'p', $pers
+_dcr_files{$key}{PromotionName});
            $url[$i] = generate_url_path($name);
            
        }
        
    }

This basically trying to take the first two keys out of a hash and pass a few of the values from the specified key into another routine. I can include the two routines that are called as well if you would like.

[arturo]

Which is line 16?

[wstarrs]

Actually the message said (eval 15) line 16, and I had no idea how to interpret that, but the code I gave you was part of the new fuctionality that I put in, so the problem is either there or in one of the two routines called from there...

[tilly]

That means the 15'th eval, on line 16, had the error.

The easiest way to make this error more understandable is to go to the last section of perlsyn and convince Perl to give you a more informative label for the eval than just "eval 15".

UPDATE
I should mention that in 5.005_03 there is a bug. The preprocessor directive will not work if it is the first line of an eval. So add a return before the first line. (You will be setting the line number anyways so it doesn't really matter.)