switch to compatibility level 12

[debbugs.git] / Debbugs / DB / ResultSet / SrcPkg.pm

diff --git a/Debbugs/DB/ResultSet/SrcPkg.pm b/Debbugs/DB/ResultSet/SrcPkg.pm
index c9db9a42fef7a0d95050cbd2bdf29c012e43afd3..36fab13e50574e8827088a4d5e56b62a6cb19363 100644 (file)
--- a/Debbugs/DB/ResultSet/SrcPkg.pm
+++ b/Debbugs/DB/ResultSet/SrcPkg.pm
@@ -58,6 +58,19 @@ sub src_pkg_and_ver_in_suite {
 
 
 sub get_src_pkg_id {
+    my ($self,$source) = @_;
+    return $self->result_source->schema->storage->
+       dbh_do(sub {
+                  my ($s,$dbh,$src_pkg) = @_;
+                  return select_one($dbh,<<'SQL',$src_pkg);
+SELECT id FROM src_pkg where pkg = ?;
+SQL
+              },
+              $source
+             );
+}
+
+sub get_or_create_src_pkg_id {
     my ($self,$source) = @_;
     return $self->result_source->schema->storage->
        dbh_do(sub {