Subroutine main redefined?

[Jan Theofel]

Hello,

I have a very simple perl script which I try to run with
Apache::PerlRun. After changing the directory section in the apache
configuration file and a restart I get no repsonse to my client and the
error file fills with:

[Sun Nov 24 17:59:45 2002] shop.pl: Subroutine main redefined at
/home/www/[...]/shop/engine/shop.pl line 19.

Google found some problems and solutions for that, but they all seemed
to be for Apache::Registry and not for Apache::PerlRun.

Here's the script (a few comments snipped away):
--- snip ---
#!/usr/bin/perl -w

  use strict;
  use eqtools;
  use eqdbtools;

  &main;
  1;

sub main {
# -- create a new session --
  &open_db();
  my $sid = &create_session();
  &track_request($sid, "?THIS_IS_A_NEW_SESSION");
  &close_db();

# -- forward the browser to the following page --
  if($sid ne "")
  {
    print "Status: 302 Moved\n";
    print "Location: /static.pl?sid=$sid&page=home\n\n";
  }
  else
  {
    &fatal_db_error("FATAL ERROR CREATING A NEW SESSION!", "-");
  }
}
--- snap ---


And here is the section form my apache configuration file:
--- snip ---
    <Directory "/home/www/[...]/shop/engine">
      AllowOverride AuthConfig
      Order allow,deny
      Allow from all
      SetHandler perl-script
      PerlHandler Apache::PerlRun
      Options +ExecCGI -Includes
      PerlSendHeader off
    </Directory>
--- snap ---


I already tried to rename the sub "main" into something other
("eqmain"), but that didn't help.

Can someone tell me which mistake I made and how to fix this?

Thanks in advance,
Jan Theofel

-- 
Jan Theofel                              Fon: +49 (7 11) 48 90 83 - 0 
ETES - EDV-Systemhaus GbR                Fax: +49 (7 11) 48 90 83 - 50 
Libanonstrasse 58 A * D-70184 Stuttgart  Web: http://www.etes.de


______________________________________
Inflex - eMail Scanning and Protection
Queries to: [EMAIL PROTECTED]