use COALESCE indexes for bug_status_cache

[debbugs.git] / Debbugs / DB / Util.pm

diff --git a/Debbugs/DB/Util.pm b/Debbugs/DB/Util.pm
index 556524415a177236f6c818db3c4eb9ecd20bd034..d241f3343ee39b7f27f2e74f59943d65a84addb3 100644 (file)
--- a/Debbugs/DB/Util.pm
+++ b/Debbugs/DB/Util.pm
@@ -32,6 +32,7 @@ BEGIN{
 
      @EXPORT = ();
      %EXPORT_TAGS = (select => [qw(select_one)],
+                    execute => [qw(prepare_execute)]
                    );
      @EXPORT_OK = ();
      Exporter::export_ok_tags(keys %EXPORT_TAGS);
@@ -65,6 +66,25 @@ sub select_one {
     return (ref($results) and ref($results->[0]))?$results->[0][0]:undef;
 }
 
+=item prepare_execute
+
+       prepare_execute($dbh,$sql,@bind_vals)
+
+Prepares and executes a statement
+
+=cut
+
+sub prepare_execute {
+    my ($dbh,$sql,@bind_vals) = @_;
+    my $sth = $dbh->
+        prepare_cached($sql,
+                      {dbi_dummy => __FILE__.__LINE__ })
+        or die "Unable to prepare statement: $sql";
+    $sth->execute(@bind_vals) or
+        die "Unable to execute statement: ".$dbh->errstr();
+    $sth->finish();
+}
+
 
 =back