[svn:dbi] r15142 - dbi/trunk

[timbo]

Author: timbo
Date: Sun Feb 12 02:44:26 2012
New Revision: 15142

Modified:
   dbi/trunk/DBI.xs

Log:
Don't call getenv during CLONE

Modified: dbi/trunk/DBI.xs
==============================================================================
--- dbi/trunk/DBI.xs    (original)
+++ dbi/trunk/DBI.xs    Sun Feb 12 02:44:26 2012
@@ -579,7 +579,10 @@
     gv_fetchpv("DBI::lasth",  GV_ADDMULTI, SVt_PV);
     gv_fetchpv("DBI::rows",   GV_ADDMULTI, SVt_PV);
 
-    if (getenv("PERL_DBI_XSBYPASS"))
+    /* we only need to check the env var on the initial boot
+     * which is handy because it can core dump during CLONE on windows
+     */
+    if (!parent_dbis && getenv("PERL_DBI_XSBYPASS"))
         use_xsbypass = atoi(getenv("PERL_DBI_XSBYPASS"));
 }