[svn:dbi] r13312 - dbi/trunk

[hmbrand]

Author: hmbrand
Date: Sat Sep 12 02:39:44 2009
New Revision: 13312

Modified:
   dbi/trunk/DBI.xs

Log:
perl-5.10.x sets filename to "*main::STDERR" when using 'DBI->trace (0, 
*STDERR);'

Modified: dbi/trunk/DBI.xs
==============================================================================
--- dbi/trunk/DBI.xs    (original)
+++ dbi/trunk/DBI.xs    Sat Sep 12 02:39:44 2009
@@ -814,7 +814,8 @@
     else {
        filename = (SvOK(file)) ? SvPV_nolen(file) : Nullch;
        /* undef arg == reset back to stderr */
-       if (!filename || strEQ(filename,"STDERR")) {
+       if (!filename || strEQ(filename,"STDERR")
+                     || strEQ(filename,"*main::STDERR")) {
            close_trace_file(aTHX);
            DBILOGFP = PerlIO_stderr();
            return 1;