[svn:dbi] r15274 - dbi/trunk

[mjevans]

Author: mjevans
Date: Thu Apr 19 01:02:29 2012
New Revision: 15274

Modified:
   dbi/trunk/Changes
   dbi/trunk/DBI.xs

Log:
applied patch in rt 76296 and tested FILE is set correctly


Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes   (original)
+++ dbi/trunk/Changes   Thu Apr 19 01:02:29 2012
@@ -8,10 +8,11 @@
 
 CHANGES SINCE LAST RELEASE (not sure if they will go in 1.619):
 
-  RT76520 - Optimize fetchall_arrayref with hash slice thanks
+  RT#76520 - Optimize fetchall_arrayref with hash slice thanks
     to Dagfinn Ilmari Manns�ker
-  RT76572 - Allow renaming columns in fetchall_arrayref hash slices
+  RT#76572 - Allow renaming columns in fetchall_arrayref hash slices
     thanks to Dagfinn Ilmari Manns�ker
+  RT#76296 - _install_method fails to set CvFILE correctly
 
 =head2 Changes in DBI 1.619-TRIAL (svn r15271) 18th April 2012
 

Modified: dbi/trunk/DBI.xs
==============================================================================
--- dbi/trunk/DBI.xs    (original)
+++ dbi/trunk/DBI.xs    Thu Apr 19 01:02:29 2012
@@ -4630,7 +4630,10 @@
     }
     if (trace_msg)
         PerlIO_printf(DBILOGFP,"%s\n", SvPV_nolen(trace_msg));
+    file = savepv(file);
     cv = newXS(meth_name, XS_DBI_dispatch, file);
+    SvPVX((SV *)cv) = file;
+    SvLEN((SV *)cv) = 1;
     CvXSUBANY(cv).any_ptr = ima;
     ima->meth_type = get_meth_type(GvNAME(CvGV(cv)));