[svn:dbd-oracle] r15176 - in dbd-oracle/trunk: . lib/DBD/Oracle t

Author: yanick
Date: Fri Feb 24 13:21:38 2012
New Revision: 15176

Modified:
   dbd-oracle/trunk/Changes
   dbd-oracle/trunk/lib/DBD/Oracle/Troubleshooting.pm
   dbd-oracle/trunk/t/10general.t

Log:
add doc about beqeather and signals

Modified: dbd-oracle/trunk/Changes
==============================================================================
--- dbd-oracle/trunk/Changes	(original)
+++ dbd-oracle/trunk/Changes	Fri Feb 24 13:21:38 2012
@@ -15,6 +15,7 @@
     on Lion. (Martin J. Evans)
  - fix DBD::Oracle::GetInfo blurb (patch by Julián Moreno Patiño) [rt74000]
  - fix typos. (patch by Julián Moreno Patiño) [rt73999]
+ - add troubleshoot doc and diag for error with bequeather. [rt75263]
 
  [OTHERS]
  - change the shebang line of examples to the more modern '/usr/bin/env perl'

Modified: dbd-oracle/trunk/lib/DBD/Oracle/Troubleshooting.pm
==============================================================================
--- dbd-oracle/trunk/lib/DBD/Oracle/Troubleshooting.pm	(original)
+++ dbd-oracle/trunk/lib/DBD/Oracle/Troubleshooting.pm	Fri Feb 24 13:21:38 2012
@@ -76,6 +76,22 @@
 If it generates any errors which look relevant then please talk to your
 Oracle technical support (and not the dbi-users mailing list).
 
+=head2 Connecting using a bequeather
+
+If you are using a bequeather to connect to a server
+on the same host as the client, you might have 
+to add 
+
+    bequeath_detach = yes
+
+to your sqlnet.ora file or you won't be able to safely use fork/system
+functions in Perl.
+
+See the discussion at
+L<http://www.nntp.perl.org/group/perl.dbi.dev/2012/02/msg6837.html>
+and L<http://www.nntp.perl.org/group/perl.dbi.users/2009/06/msg34023.html>
+for more gory details.
+
 =head1 USING THE LONG TYPES
 
 Some examples related to the use of LONG types are available in

Modified: dbd-oracle/trunk/t/10general.t
==============================================================================
--- dbd-oracle/trunk/t/10general.t	(original)
+++ dbd-oracle/trunk/t/10general.t	Fri Feb 24 13:21:38 2012
@@ -38,8 +38,28 @@
     # basic check that we can fork subprocesses and wait for the status
     # after having connected to Oracle
 
-    is system("exit 1;"), 1<<8, 'system exit 1 should return 256';
-    is system("exit 0;"),    0, 'system exit 0 should return 0';
+    # at some point, this should become a subtest
+    
+    my $success = is system("exit 1;"), 1<<8, 'system exit 1 should return 256';
+    $success &&= is system("exit 0;"),    0, 'system exit 0 should return 0';
+
+    unless ( $success ) {
+        diag <<END_NOTE;
+The test might have failed because you are using a
+a bequeather to connect to the server.
+
+If you need to continue using a bequeather to connect to a server on the
+same host as the client add
+
+    bequeath_detach = yes
+
+to your sqlnet.ora file or you won't be able to safely use fork/system
+functions in Perl.
+
+END_NOTE
+
+    }
+
 }
 
 $sth = $dbh->prepare(q{