Move target_filepair accessor to more-specialized class

diff --git a/gatekeeper.pl b/gatekeeper.pl
index dd197a9b88c65fdcb1aec163461dfdadf82039fa..87dcb55ba97616ebc2799289b1a8a3a1d7bf4cc4 100755 (executable)
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -1699,11 +1699,6 @@ sub find_package {
   sub target_filename  { (shift)->{oplist}->[0][1]->{filename}  }
   sub target_package   { (shift)->{oplist}->[0][1]->{package}   }
 
-  sub target_filepair {
-    my $filename = (shift)->target_filename;
-    return $filename, $filename.'.sig';
-  }
-
   sub auth_keyrings {
     my $self = shift;
 
@@ -1751,6 +1746,11 @@ sub find_package {
 
   sub has_uploaded_file { return 1 }
 
+  sub target_filepair {
+    my $filename = (shift)->target_filename;
+    return $filename, $filename.'.sig';
+  }
+
   sub auth_check {
     my $self = shift;