From c459e90491595066a59ead0c3490a109e6f059d9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jos=C3=A9=20Joaqu=C3=ADn=20Atria?= <jjatria@gmail.com>
Date: Mon, 3 Jun 2024 10:05:44 +0100
Subject: [PATCH] Fix name of backed-up original function in DBI integration

Closes #17.
---
 Changes                              | 3 +++
 lib/OpenTelemetry/Integration/DBI.pm | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index f506a40..4d2901f 100644
--- a/Changes
+++ b/Changes
@@ -2,6 +2,9 @@ Revision history for OpenTelemetry
 
 {{$NEXT}}
 
+    * Fixed an issue with experimental cleanup where "DBI::db::execute"
+      was replaced with "DBI::db::do" by mistake (GH #17)
+
 0.022     2024-05-12 20:08:13+01:00 Europe/London
 
     * Fixed a minor rendering issue in the documentation of the HTTP
diff --git a/lib/OpenTelemetry/Integration/DBI.pm b/lib/OpenTelemetry/Integration/DBI.pm
index 62b3cf5..1f0b372 100644
--- a/lib/OpenTelemetry/Integration/DBI.pm
+++ b/lib/OpenTelemetry/Integration/DBI.pm
@@ -110,7 +110,7 @@ sub install ( $class, %options ) {
         goto $wrapper;
     };
 
-    $DO = \&DBI::st::execute;
+    $DO = \&DBI::st::do;
     install_modifier 'DBI::db' => around => do => sub {
         my ( undef, $dbh, $sql ) = @_;
         unshift @_, $dbh, $sql;