Author: spadkins
Date: Tue Feb 17 08:27:55 2009
New Revision: 12508
Modified:
p5ee/trunk/App-Repository/lib/App/Repository/Oracle.pm
Log:
Fixed bug with getpwuid. signal 6 abort/segmentation fault if Oracle
establishes a connection before a getpwuid call
Modified: p5ee/trunk/App-Repository/lib/App/Repository/Oracle.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/Oracle.pm (original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/Oracle.pm Tue Feb 17
08:27:55 2009
@@ -35,6 +35,15 @@
=cut
+# This is needed because libnet, ../Net/Config.pm uses a statement
+# my $home = eval { local $SIG{__DIE__}; (getpwuid($>))[7] } || $ENV{HOME};
+# This causes a signal 6 abort/segmentation fault if Oracle establishes a
+# connection before (getpwuid($>))[7] is called.
+# Example, MIME::Lite would fail to send emails if the Oracle connection
+# came before the MIME::Lite send().
+# This is because the order and types of shared objects loaded.
+my @pwentry = getpwuid($>);
+
sub _init2 {
&App::sub_entry if ($App::trace);
my ($self) = @_;
