Re: fastcgi broke my Exports

Here is the requested debug output. It has been cleansed to honor an NDA related to the nature of this application, prior to its launch.

Thank you all for your guidance on this.

DEBUG: Our path is:

$VAR1 = [
          '/usr/local/ledgersmb',
          '/home/hesco/sandbox/My-Module-Sample/lib',
          '/etc/perl',
          '/usr/local/lib/perl/5.10.0',
          '/usr/local/share/perl/5.10.0',
          '/usr/lib/perl5',
          '/usr/share/perl5',
          '/usr/lib/perl/5.10',
          '/usr/share/perl/5.10',
          '/usr/local/lib/site_perl'
        ];
[download]

Wed Jul 15 01:43:45 2009: main, at line 68 in /usr/lib/cgi-bin/beta/index says: DEBUG: Our included files so far are:

$VAR1 = {
          'HTTP/Status.pm' => '/usr/local/share/perl/5.10.0/HTTP/Statu
+s.pm',
          'Time/Zone.pm' => '/usr/share/perl5/Time/Zone.pm',
          'List/Util.pm' => '/usr/local/lib/perl/5.10.0/List/Util.pm',
          'CGI/Session.pm' => '/usr/local/share/perl/5.10.0/CGI/Sessio
+n.pm',
          'MIME/Types.pm' => '/usr/local/share/perl/5.10.0/MIME/Types.
+pm',
          'Cwd.pm' => '/usr/local/lib/perl/5.10.0/Cwd.pm',
          'Carp/Heavy.pm' => '/usr/share/perl/5.10/Carp/Heavy.pm',
          'HTML/Template.pm' => '/usr/local/share/perl/5.10.0/HTML/Tem
+plate.pm',
          'SOAP/Lite/Utils.pm' => '/usr/local/share/perl/5.10.0/SOAP/L
+ite/Utils.pm',
          'Digest/base.pm' => '/usr/share/perl/5.10/Digest/base.pm',
          'Fcntl.pm' => '/usr/lib/perl/5.10/Fcntl.pm',
          'Symbol.pm' => '/usr/share/perl/5.10/Symbol.pm',
          'MIME/Type.pm' => '/usr/local/share/perl/5.10.0/MIME/Type.pm
+',
          'URI.pm' => '/usr/local/share/perl/5.10.0/URI.pm',
          'MIME/Base64.pm' => '/usr/lib/perl/5.10/MIME/Base64.pm',
          'Scalar/Util.pm' => '/usr/local/lib/perl/5.10.0/Scalar/Util.
+pm',
          'Exporter.pm' => '/usr/share/perl/5.10/Exporter.pm',
          'SOAP/Packager.pm' => '/usr/local/share/perl/5.10.0/SOAP/Pac
+kager.pm',
          'My/Module/Sample.pm' => '/usr/local/share/perl/5.10.0/My/Mo
+dule/Sample.pm',
          'Template.pm' => '/usr/local/lib/perl/5.10.0/Template.pm',
          'MIME/QuotedPrint.pm' => '/usr/lib/perl/5.10/MIME/QuotedPrin
+t.pm',
          'File/Spec.pm' => '/usr/local/lib/perl/5.10.0/File/Spec.pm',
          'CGI/Session/Driver/file.pm' => '/usr/local/share/perl/5.10.
+0/CGI/Session/Driver/file.pm',
          'subs.pm' => '/usr/share/perl/5.10/subs.pm',
          'warnings/register.pm' => '/usr/share/perl/5.10/warnings/reg
+ister.pm',
          'XSLoader.pm' => '/usr/lib/perl/5.10/XSLoader.pm',
          'CGI/Session/Driver.pm' => '/usr/local/share/perl/5.10.0/CGI
+/Session/Driver.pm',
          'Business/PayPal/API/ExpressCheckout.pm' => '/usr/local/shar
+e/perl/5.10.0/Business/PayPal/API/ExpressCheckout.pm',
          'Safe.pm' => '/usr/lib/perl/5.10/Safe.pm',
          'Business/PayPal/NVP.pm' => '/usr/local/share/perl/5.10.0/Bu
+siness/PayPal/NVP.pm',
          'Config/Simple/Extended.pm' => '/usr/local/share/perl/5.10.0
+/Config/Simple/Extended.pm',
          'Email/Valid.pm' => '/usr/local/share/perl/5.10.0/Email/Vali
+d.pm',
          'DBD/Pg.pm' => '/usr/lib/perl5/DBD/Pg.pm',
          'LWP/MemberMixin.pm' => '/usr/local/share/perl/5.10.0/LWP/Me
+mberMixin.pm',
          'CGI/Session/ErrorHandler.pm' => '/usr/local/share/perl/5.10
+.0/CGI/Session/ErrorHandler.pm',
          'CGI/Session/ID/md5.pm' => '/usr/local/share/perl/5.10.0/CGI
+/Session/ID/md5.pm',
          'DBI.pm' => '/usr/local/lib/perl/5.10.0/DBI.pm',
          '/usr/local/share/perl/5.10.0/auto/Config/Simple/verbose.al'
+ => '/usr/local/share/perl/5.10.0/auto/Config/Simple/verbose.al',
          'My/Module/Account.pm' => '/usr/local/share/perl/5.10.0/My/M
+odule/Account.pm',
          'Template/Provider.pm' => '/usr/local/lib/perl/5.10.0/Templa
+te/Provider.pm',
          'Template/Exception.pm' => '/usr/local/lib/perl/5.10.0/Templ
+ate/Exception.pm',
          'bytes.pm' => '/usr/share/perl/5.10/bytes.pm',
          'File/Spec/Unix.pm' => '/usr/local/lib/perl/5.10.0/File/Spec
+/Unix.pm',
          'Exporter/Heavy.pm' => '/usr/share/perl/5.10/Exporter/Heavy.
+pm',
          'vars.pm' => '/usr/share/perl/5.10/vars.pm',
          'strict.pm' => '/usr/share/perl/5.10/strict.pm',
          'My/Module/ClientListsCRUD.pm' => '/usr/local/share/perl/5.1
+0.0/My/Module/ClientListsCRUD.pm',
          'HTTP/Request.pm' => '/usr/local/share/perl/5.10.0/HTTP/Requ
+est.pm',
          'CGI/Session/Serialize/default.pm' => '/usr/local/share/perl
+/5.10.0/CGI/Session/Serialize/default.pm',
          'Business/PayPal/API/GetTransactionDetails.pm' => '/usr/loca
+l/share/perl/5.10.0/Business/PayPal/API/GetTransactionDetails.pm',
          'CGI/FormBuilder/Field.pm' => '/usr/local/share/perl/5.10.0/
+CGI/FormBuilder/Field.pm',
          'AutoLoader.pm' => '/usr
/share/perl/5.10/AutoLoader.pm',
          'My/Module/ScheduleMessage.pm' => '/usr/local/share/perl/5.1
+0.0/My/Module/ScheduleMessage.pm',
          'lib.pm' => '/usr/lib/perl/5.10/lib.pm',
          'HTTP/Headers.pm' => '/usr/local/share/perl/5.10.0/HTTP/Head
+ers.pm',
          'CGI/FormBuilder/Util.pm' => '/usr/local/share/perl/5.10.0/C
+GI/FormBuilder/Util.pm',
          'My/Module.pm' => '/usr/local/share/perl/5.10.0/My/Module.pm
+',
          'Data/Dumper.pm' => '/usr/lib/perl/5.10/Data/Dumper.pm',
          'CGI/Session/Auth/DBI.pm' => '/usr/local/share/perl/5.10.0/C
+GI/Session/Auth/DBI.pm',
          'Storable.pm' => '/usr/local/lib/perl/5.10.0/Storable.pm',
          're.pm' => '/usr/lib/perl/5.10/re.pm',
          'IO/Handle.pm' => '/usr/lib/perl/5.10/IO/Handle.pm',
          '/usr/local/lib/perl/5.10.0/auto/Storable/autosplit.ix' => '
+/usr/local/lib/perl/5.10.0/auto/Storable/autosplit.ix',
          'Business/PayPal/API.pm' => '/usr/local/share/perl/5.10.0/Bu
+siness/PayPal/API.pm',
          'SelectSaver.pm' => '/usr/share/perl/5.10/SelectSaver.pm',
          'Time/Local.pm' => '/usr/share/perl/5.10/Time/Local.pm',
          'warnings.pm' => '/usr/share/perl/5.10/warnings.pm',
          'CGI/Util.pm' => '/usr/local/share/perl/5.10.0/CGI/Util.pm',
          'LWP/UserAgent.pm' => '/usr/local/share/perl/5.10.0/LWP/User
+Agent.pm',
          'Opcode.pm' => '/usr/lib/perl/5.10/Opcode.pm',
          'Text/ParseWords.pm' => '/usr/share/perl/5.10/Text/ParseWord
+s.pm',
          'HTTP/Date.pm' => '/usr/local/share/perl/5.10.0/HTTP/Date.pm
+',
          'UNIVERSAL.pm' => '/usr/share/perl/5.10/UNIVERSAL.pm',
          'Digest/MD5.pm' => '/usr/local/lib/perl/5.10.0/Digest/MD5.pm
+',
          'Template/Document.pm' => '/usr/local/lib/perl/5.10.0/Templa
+te/Document.pm',
          'Template/Service.pm' => '/usr/local/lib/perl/5.10.0/Templat
+e/Service.pm',
          'HTTP/Response.pm' => '/usr/local/share/perl/5.10.0/HTTP/Res
+ponse.pm',
          'File/Path.pm' => '/usr/share/perl/5.10/File/Path.pm',
          '/usr/local/share/perl/5.10.0/auto/Config/Simple/autosplit.i
+x' => '/usr/local/share/perl/5.10.0/auto/Config/Simple/autosplit.ix',
          'CGI/Session/Auth.pm' => '/usr/local/share/perl/5.10.0/CGI/S
+ession/Auth.pm',
          'diagnostics.pm' => '/usr/share/perl/5.10/diagnostics.pm',
          'SOAP/Constants.pm' => '/usr/local/share/perl/5.10.0/SOAP/Co
+nstants.pm',
          'My/Module/Asterisk.pm' => '/usr/local/share/perl/5.10.0/My/
+Module/Asterisk.pm',
          'Template/Constants.pm' => '/usr/local/lib/perl/5.10.0/Templ
+ate/Constants.pm',
          'SOAP/Lite.pm' => '/usr/local/share/perl/5.10.0/SOAP/Lite.pm
+',
          'Number/Phone/US.pm' => '/usr/local/share/perl/5.10.0/Number
+/Phone/US.pm',
          'Template/Config.pm' => '/usr/local/lib/perl/5.10.0/Template
+/Config.pm',
          'IO/Seekable.pm' => '/usr/lib/perl/5.10/IO/Seekable.pm',
          'version.pm' => '/usr/share/perl/5.10/version.pm',
          'Config/Simple.pm' => '/usr/local/share/perl/5.10.0/Config/S
+imple.pm',
          'My/Module/DB.pm' => '/usr/local/share/perl/5.10.0/My/Module
+/DB.pm',
          'base.pm' => '/usr/share/perl/5.10/base.pm',
          'Config.pm' => '/usr/lib/perl/5.10/Config.pm',
          'File/Basename.pm' => '/usr/share/perl/5.10/File/Basename.pm
+',
          'integer.pm' => '/usr/share/perl/5.10/integer.pm',
          'CGI/Cookie.pm' => '/usr/local/share/perl/5.10.0/CGI/Cookie.
+pm',
          'LWP.pm' => '/usr/local/share/perl/5.10.0/LWP.pm',
          'IO.pm' => '/usr/lib/perl/5.10/IO.pm',
          'Carp.pm' => '/usr/share/perl/5.10/Carp.pm',
          'HTTP/Message.pm' => '/usr/local/share/perl/5.10.0/HTTP/Mess
+age.pm',
          'FileHandle.pm' => '/usr/share/perl/5.10/FileHandle.pm',
          'LWP/Protocol.pm' => '/usr/local/share/perl/5.10.0/LWP/Proto
+col.pm',
          'constant.pm' => '/usr/share/perl/5.10/constant.pm',
          'MIME/Lite.pm' => '/usr/share/perl5/MIME/Lite.pm',
          'Template/Base.pm' => '/usr/local/lib/perl/5.10.0/Template/B
+ase.pm',
          'CGI/FormBuilder/Messages.pm' => '/usr/local/share/perl/5.10
+.0/CGI/FormBuilder/Messages.
pm',
          'Date/Parse.pm' => '/usr/share/perl5/Date/Parse.pm',
          'overload.pm' => '/usr/share/perl/5.10/overload.pm',
          'IO/File.pm' => '/usr/lib/perl/5.10/IO/File.pm',
          'URI/Escape.pm' => '/usr/local/share/perl/5.10.0/URI/Escape.
+pm',
          'My/Admin/PayPal.pm' => '/usr/local/share/perl/5.10.0/My/Adm
+in/PayPal.pm',
          'Mail/Address.pm' => '/usr/local/share/perl/5.10.0/Mail/Addr
+ess.pm',
          'CGI/FormBuilder.pm' => '/usr/local/share/perl/5.10.0/CGI/Fo
+rmBuilder.pm',
          'DynaLoader.pm' => '/usr/lib/perl/5.10/DynaLoader.pm',
          'CGI.pm' => '/usr/local/share/perl/5.10.0/CGI.pm'
        };
[download]

Wed Jul 15 01:43:45 2009: main, at line 69 in /usr/lib/cgi-bin/beta/index says: DEBUG: Our environment is:

$VAR1 = {
          'SCRIPT_NAME' => '/index',
          'SERVER_NAME' => 'beta.example.com',
          'SERVER_ADMIN' => '[no address given]',
          'HTTP_ACCEPT_ENCODING' => 'gzip,deflate',
          'HTTP_CONNECTION' => 'keep-alive',
          'REQUEST_METHOD' => 'GET',
          'HTTP_ACCEPT' => 'text/html,application/xhtml+xml,applicatio
+n/xml;q=0.9,*/*;q=0.8',
          'SCRIPT_FILENAME' => '/usr/lib/cgi-bin/beta/index',
          'SERVER_SOFTWARE' => 'Apache/2.2.9 (Debian) mod_fastcgi/2.4.
+6 PHP/5.2.6-1+lenny3 with Suhosin-Patch mod_python/3.3.1 Python/2.5.2
+ mod_ssl/2.2.9 OpenSSL/0.9.8g mod_perl/2.0.4 Perl/v5.10.0',
          'HTTP_ACCEPT_CHARSET' => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7',
          'QUERY_STRING' => '',
          'REMOTE_PORT' => '60313',
          'HTTP_USER_AGENT' => 'Mozilla/5.0 (X11; U; Linux i686; en-US
+; rv:1.9.0.11) Gecko/2009061212 Iceweasel/3.0.6 (Debian-3.0.6-1)',
          'SERVER_PORT' => '80',
          'SERVER_SIGNATURE' => '<address>Apache/2.2.9 (Debian) mod_fa
+stcgi/2.4.6 PHP/5.2.6-1+lenny3 with Suhosin-Patch mod_python/3.3.1 Py
+thon/2.5.2 mod_ssl/2.2.9 OpenSSL/0.9.8g mod_perl/2.0.4 Perl/v5.10.0 S
+erver at beta.example.com Port 80</address>
',
          'HTTP_PRAGMA' => 'no-cache',
          'HTTP_CACHE_CONTROL' => 'no-cache',
          'HTTP_ACCEPT_LANGUAGE' => 'en-us,en;q=0.5',
          'HTTP_COOKIE' => 'CGISESSID=3b95c4d8f6137d8c28f876b12973afc2
+',
          'REMOTE_ADDR' => '192.168.15.4',
          'HTTP_KEEP_ALIVE' => '300',
          'SERVER_PROTOCOL' => 'HTTP/1.1',
          'PATH' => '/usr/local/bin:/usr/bin:/bin',
          'REQUEST_URI' => '/index',
          'GATEWAY_INTERFACE' => 'CGI/1.1',
          'SERVER_ADDR' => '192.168.15.51',
          'DOCUMENT_ROOT' => '/var/www/apache2-default',
          'HTTP_HOST' => 'beta.example.com'
        };
[download]

Wed Jul 15 01:43:45 2009: main, at line 70 in /usr/lib/cgi-bin/beta/index says: DEBUG: The symbol table includes:

$VAR1 = {
          'version::' => *{'::version::'},
          '/' => *{'::/'},
          'stderr' => *::stderr,
          'Apache::' => *{'::Apache::'},
          'SIG' => *::SIG,
          'Tie::' => *{'::Tie::'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 137' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 137'},
          '18' => *{'::18'},
          '16' => *{'::16'},
          'Cwd::' => *{'::Cwd::'},
          '_<ListUtil.c' => *{'::_<ListUtil.c'},
          '_<Base64.c' => *{'::_<Base64.c'},
          'APR::' => *{'::APR::'},
          'Encode::' => *{'::Encode::'},
          'Regexp::' => *{'::Regexp::'},
          '_</usr/lib/perl/5.10/auto/Data/Dumper/Dumper.so' => *{'::_<
+/usr/lib/perl/5.10/auto/Data/Dumper/Dumper.so'},
          '_</usr/lib/perl/5.10/DynaLoader.pm' => *{'::_</usr/lib/perl
+/5.10/DynaLoader.pm'},
          '\x0c' => *{'::\x0c'},
          '^' => *{'::^'},
          '_</usr/local/lib/perl/5.10.0/auto/List/Util/Util.so' => *{'
+::_</usr/local/lib/perl/5.10.0/auto/List/Util/Util.so'},
          'UNIVERSAL::' => *{'::UNIVERSAL::'},
          'overload::' => *{'::overload::'},
          '$' => *{'::$'},
          '11' => *{'::11'},
          '\\\\' => *{'::\\\\'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 124' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 124'},
          'Safe::' => *{'::Safe::'},
          'File::' => *{'::File::'},
          'Compress::' => *{'::Compress::'},
          '-' => *{'::-'},
          '_<perlmain.c' => *{'::_<perlmain.c'},
          '\x12E_DEBUG_FLAGS' => *{'::\x12E_DEBUG_FLAGS'},
          'DATA' => *::DATA,
          '_<DBI.pm' => *{'::_<DBI.pm'},
          '_<xsutils.c' => *{'::_<xsutils.c'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 129' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 129'},
          '!' => *{'::!'},
          'Email::' => *{'::Email::'},
          '\x18' => *{'::\x18'},
          '15' => *{'::15'},
          'HTTP::' => *{'::HTTP::'},
          'CGITempFile::' => *{'::CGITempFile::'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 143' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 143'},
          '_</usr/local/share/perl/5.10.0/HTML/Template.pm' => *{'::_<
+/usr/local/share/perl/5.10.0/HTML/Template.pm'},
          'Config::' => *{'::Config::'},
          'warnings::' => *{'::warnings::'},
          'Time::' => *{'::Time::'},
          'EPOC::' => *{'::EPOC::'},
          '\x16' => *{'::\x16'},
          '=' => *{'::='},
          'IPC::' => *{'::IPC::'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 134' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 134'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 126' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 126'},
          '17' => *{'::17'},
          '2' => *{'::2'},
          '_<Cwd.c' => *{'::_<Cwd.c'},
          'DBI::' => *{'::DBI::'},
          '\x17ARNING_BITS' => *{'::\x17ARNING_BITS'},
          '_</usr/lib/perl/5.10/auto/IO/IO.so' => *{'::_</usr/lib/perl
+/5.10/auto/IO/IO.so'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 131' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 131'},
          'attributes::' => *{'::attributes::'},
          'lib::' => *{'::lib::'},
          'stdin' => *::stdin,
          'ARGV' => *::ARGV,
          'INC' => *::INC,
          'FileHandle::' => *{'::FileHandle::'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 130' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 130'},
          '14' => *{'::14'},
          '?' => *{'::?'},
          'vars::' => *{'::vars::'},
          'subs::' => *{'::subs::'},
          'XSLoader::' => *{'::XSLoader::'},
          '_<perlio.c' => *{'::_<perlio.c'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 139' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 139'},
          ':' => *{':::'},
          'Digest::' => *{'::Digest::'},
          'main::' => *{'::main::'},
          'AutoLoader::' => *{'::AutoLoader::'},
          'Carp::' => *{'::Carp::'},
          'Win32::' => *{'::Win32::'},
          '0' => *{'::0'},
          'GTop::' => *{'::GTop::'},
          '@' => *{'::@'},
          '_<Storable.c' => *{'::_<Storable.c'},
          'SelectSaver::' => *{'::SelectSaver::'},
          ']' => *{':
:]'},
          'ExtUtils::' => *{'::ExtUtils::'},
          'threads::' => *{'::threads::'},
          '8' => *{'::8'},
          'MIME::' => *{'::MIME::'},
          'STDERR' => *::STDERR,
          'base::' => *{'::base::'},
          'Apache2::' => *{'::Apache2::'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 136' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 136'},
          'URI::' => *{'::URI::'},
          '5' => *{'::5'},
          '_</usr/local/share/perl/5.10.0/CGI/Session.pm' => *{'::_</u
+sr/local/share/perl/5.10.0/CGI/Session.pm'},
          '7' => *{'::7'},
          ',' => *{'::,'},
          'utf8::' => *{'::utf8::'},
          '"' => *{'::"'},
          'DIME::' => *{'::DIME::'},
          'constant::' => *{'::constant::'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 138' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 138'},
          're::' => *{'::re::'},
          'Date::' => *{'::Date::'},
          'mro::' => *{'::mro::'},
          'DynaLoader::' => *{'::DynaLoader::'},
          'stdout' => *::stdout,
          'strict::' => *{'::strict::'},
          '\x12' => *{'::\x12'},
          '_<MD5.c' => *{'::_<MD5.c'},
          '_</usr/local/lib/perl/5.10.0/Template/Constants.pm' => *{':
+:_</usr/local/lib/perl/5.10.0/Template/Constants.pm'},
          '_<DBI.c' => *{'::_<DBI.c'},
          '|' => *{'::|'},
          'Mac::' => *{'::Mac::'},
          'Net::' => *{'::Net::'},
          'Fcntl::' => *{'::Fcntl::'},
          'TESTING' => *::TESTING,
          'Storable::' => *{'::Storable::'},
          'Term::' => *{'::Term::'},
          '_</usr/lib/perl5/auto/DBD/Pg/Pg.so' => *{'::_</usr/lib/perl
+5/auto/DBD/Pg/Pg.so'},
          '10' => *{'::10'},
          'SOAP::' => *{'::SOAP::'},
          '\x01' => *{'::\x01'},
          'Log::' => *{'::Log::'},
          'Template::' => *{'::Template::'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 128' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 128'},
          'integer::' => *{'::integer::'},
          'diagnostics::' => *{'::diagnostics::'},
          '_</usr/lib/perl/5.10/XSLoader.pm' => *{'::_</usr/lib/perl/5
+.10/XSLoader.pm'},
          '\x12E_TRIE_MAXBUF' => *{'::\x12E_TRIE_MAXBUF'},
          'Dos::' => *{'::Dos::'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 123' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 123'},
          '~' => *{'::~'},
          'Data::' => *{'::Data::'},
          '_<universal.c' => *{'::_<universal.c'},
          'BEGIN' => *::BEGIN,
          'List::' => *{'::List::'},
          'Mail::' => *{'::Mail::'},
          '_</usr/local/share/perl/5.10.0/Config/Simple.pm' => *{'::_<
+/usr/local/share/perl/5.10.0/Config/Simple.pm'},
          'My::' => *{'::My::'},
          '_<Pg.c' => *{'::_<Pg.c'},
          '\x14AINT' => *{'::\x14AINT'},
          'IO::' => *{'::IO::'},
          'MacPerl::' => *{'::MacPerl::'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 141' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 141'},
          '\x0f' => *{'::\x0f'},
          '%' => *{'::%'},
          '_</usr/local/lib/perl/5.10.0/auto/Storable/Storable.so' => 
+*{'::_</usr/local/lib/perl/5.10.0/auto/Storable/Storable.so'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 125' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 125'},
          '12' => *{'::12'},
          '_' => *::_,
          '+' => *{'::+'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 142' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 142'},
          'Exporter::' => *{'::Exporter::'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 127' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 127'},
          'Internals::' => *{'::Internals::'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 133' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 133'},
          'STDIN' => *::STDIN,
          'DB::' => *{'::DB::'},
          '19' => *{'::19'},
          'CGI::' => *{'::CGI::'},
          'MultipartBuffer::' => *{'::MultipartBuffer::'},
          '_<mro.c' => *{'::_<mro.c'},
          '_<IO.c' => *{'::_<IO.c'},
          '1' => *{'::1'},
          '_<Fcntl.c' => *{'::_<Fcntl.c'},
          'CORE::' => *{'::CORE::'},
          '_</usr/local/lib/perl/5.10.0/a
uto/Digest/MD5/MD5.so' => *{'::_</usr/local/lib/perl/5.10.0/auto/Diges
+t/MD5/MD5.so'},
          '_</usr/share/perl/5.10/base.pm' => *{'::_</usr/share/perl/5
+.10/base.pm'},
          '_<DynaLoader.c' => *{'::_<DynaLoader.c'},
          '<' => *{'::<'},
          'NetAddr::' => *{'::NetAddr::'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 132' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 132'},
          'LWP::' => *{'::LWP::'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 122' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 122'},
          '>' => *{'::>'},
          'Scalar::' => *{'::Scalar::'},
          'ENV' => *::ENV,
          'fields::' => *{'::fields::'},
          'Opcode::' => *{'::Opcode::'},
          '_<Opcode.c' => *{'::_<Opcode.c'},
          'DBD::' => *{'::DBD::'},
          'Business::' => *{'::Business::'},
          '_</usr/local/lib/perl/5.10.0/auto/Cwd/Cwd.so' => *{'::_</us
+r/local/lib/perl/5.10.0/auto/Cwd/Cwd.so'},
          '_</usr/lib/perl5/DBD/Pg.pm at line 135' => *{'::_</usr/lib/
+perl5/DBD/Pg.pm at line 135'},
          'HTML::' => *{'::HTML::'},
          'Getopt::' => *{'::Getopt::'},
          'LedgerSMB::' => *{'::LedgerSMB::'},
          'B::' => *{'::B::'},
          'Fh::' => *{'::Fh::'},
          'VMS::' => *{'::VMS::'},
          'PerlIO::' => *{'::PerlIO::'},
          'Symbol::' => *{'::Symbol::'},
          '_</usr/local/share/perl/5.10.0/Business/PayPal/API.pm' => *
+{'::_</usr/local/share/perl/5.10.0/Business/PayPal/API.pm'},
          '\x05' => *{'::\x05'},
          '\b' => *{'::\b'},
          '.' => *{'::.'},
          '_</usr/lib/perl/5.10/auto/Opcode/Opcode.so' => *{'::_</usr/
+lib/perl/5.10/auto/Opcode/Opcode.so'},
          '13' => *{'::13'},
          ';' => *{'::;'},
          '6' => *{'::6'},
          'STDOUT' => *::STDOUT,
          '3' => *{'::3'},
          '_</usr/lib/perl/5.10/auto/MIME/Base64/Base64.so' => *{'::_<
+/usr/lib/perl/5.10/auto/MIME/Base64/Base64.so'},
          '9' => *{'::9'},
          'Text::' => *{'::Text::'},
          'encoding::' => *{'::encoding::'},
          '\x17' => *{'::\x17'},
          'Dumper' => *::Dumper,
          'bytes::' => *{'::bytes::'},
          '4' => *{'::4'},
          '_<Dumper.c' => *{'::_<Dumper.c'},
          '_</usr/local/lib/perl/5.10.0/auto/DBI/DBI.so' => *{'::_</us
+r/local/lib/perl/5.10.0/auto/DBI/DBI.so'},
          '_</usr/lib/perl/5.10/auto/Fcntl/Fcntl.so' => *{'::_</usr/li
+b/perl/5.10/auto/Fcntl/Fcntl.so'},
          'XML::' => *{'::XML::'},
          'Number::' => *{'::Number::'}
        };
[download]

Can't locate object method "_GenerateAccountSummary" via package "My::
+Module" at
\t/usr/lib/cgi-bin/beta/index line 74 (#1)
    (F) You called a method correctly, and it correctly indicated a pa
+ckage
    functioning as a class, but that package doesn't define that parti
+cular
    method, nor does any of its base classes.  See perlobj.

Uncaught exception from user code:
\tCan't locate object method "_GenerateAccountSummary" via package "My
+::Module" at /usr/lib/cgi-bin/beta/index line 74.
 at /usr/lib/cgi-bin/beta/index line 74
Premature end of script headers: index
[download]

Hope someone can help me figure out what I'm looking for here; and can suggest reasons why My::Module:: fails to appear in the symbol table, although it is in %INC, suggesting the modules have been loaded.

if( $lal && $lol ) { $life++; }

Comment on Re: fastcgi broke my Exports Select or Download Code

Replies are listed 'Best First'.
Re^2: fastcgi broke my Exports by Anonymous Monk on Jul 15, 2009 at 14:02 UTC
It is in symbol table, just not the way you expect `'My::' => *{'::My::'},` [download] You want to look at `%My::Module::` Actually you want to grep @INC for _GenerateAccountSummary	[reply] [d/l] [select]
Re^3: fastcgi broke my Exports by hesco (Deacon) on Jul 15, 2009 at 15:07 UTC
Dumping %My::Module:: yields: `'Account::' => *{'My::Module::Account::'},` [download] which includes the supposedly missing method. Do you mean perhaps that I ought to grep %INC for that method name? @INC includes only directory names, an unlikely place for a method name to hide out. Imagining that, I added this to my index script: { $ENV{PATH} = "/bin"; foreach my $module (keys %INC){ if($module =~ m/Account/){ print STDERR "The next module is: $module \n"; print STDERR `grep _GenerateAccountSummary $INC{$module}`; print STDERR "\n\n"; } } } [download] which yielded this output: `The next module is: My/Module/Account.pm our @EXPORT = qw( . . . _GenerateAccountSummary . . . ); our %EXPORT_TAGS = ( all => [qw( . . . _GenerateAccountSummary . . . + )] ); sub _GenerateAccountSummary {` [download] That is the expected result. Still stumped here. -- Hugh if( $lal && $lol ) { $life++; }	[reply] [d/l] [select]
Re^4: fastcgi broke my Exports by perrin (Chancellor) on Jul 15, 2009 at 19:10 UTC
Two things: can you show us the code where you call this, and why are you calling an exported function as a method? In general, methods are not something you would export. Also, try this: `perl -e 'use My::Module::Account qw(_GenerateAccountSummary); _Generat +eAccountSummary();'` [download]	[reply] [d/l]
Re^5: fastcgi broke my Exports by hesco (Deacon) on Jul 15, 2009 at 21:41 UTC
Re^6: fastcgi broke my Exports by ikegami (Patriarch) on Jul 15, 2009 at 23:01 UTC
Re^4: fastcgi broke my Exports by Anonymous Monk on Jul 15, 2009 at 15:59 UTC
That is the expected result. Still stumped here. Well, then the problem is your actual code, typos and such (your import routine isn't Exporter's import, wrong @EXPORT vars, wrong @ISA, you're calling method on wrong object ... typos).	[reply]