Re^2: Ignorance Isnt Always Bliss

[Baffled]

You can end this string, the problem has been determined a missing / at the end of a url in the lib pointing to the dir that the array was trying to read.

[GrandFather]

After applying PerlTidy the following looks interesting:

            open THEFILE, "$config{'basepath'}$key/$file";
            my (
                $title,     $reserve, $inc,     $desc,     $image1,
                $image2,    $image3,  $image4,  $thumb1,   $thumb2,
                $thumb3,    $thumb4,  $dutch,   $qty,      $bold,
                $highlight, $feat,    $catfeat, $grabber,  $relist,
                $buyit,     $gallery, $counter, $ship1,    $ship2,
                $ship3,     $ship4,   $ship5,   $shipcost, $location,
                $pay1,      $pay2,    $pay3,    $pay4,     $pay5,
                $pay6,      $pay7,    $pay8,    $pay9,     $paypal,
                $idata1,    $idata2,  $idata3,  $idata4,   $idata5,
                $idata6,    $idata7,  $idata8,  $idata9,   @bids
                ) = <THEFILE>;
            my (
                $alias, $email, $bid,  $time, $add1,
                $add2,  $add3,  $oqty, $qtysold
                ) = &read_bid ($bids[$#bids]);

Notice that @bids is set by reading a file (my (..., @bids) = <THEFILE>) and that then, without any checking at all, the presumed to exist last element is accessed. If there are too few lines in the input file then the 'last element access' will fail.

Looks to me like there is far too much string and bubble gum involved in holding this system together!