Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: fastcgi broke my Exports

by hesco (Deacon)
on Jul 15, 2009 at 13:50 UTC ( [id://780313]=note: print w/replies, xml ) Need Help??


in reply to fastcgi did NOT break my Exports, issue now resolved

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++; }

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]
      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]

        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]
        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]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://780313]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others contemplating the Monastery: (4)
As of 2024-04-25 09:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found