dgit-repos-policy-debian: Move time check (nfc, apart from debugging)

diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index b25a560109f96b719b1f3b951da1589edcda6706..5efccded56fdcbd0123ba7f82777a7e0e9cea346 100755 (executable)
--- a/infra/dgit-repos-policy-debian
+++ b/infra/dgit-repos-policy-debian
@@ -111,10 +111,6 @@ sub specific_suite_has_vsn_in_our_history ($) {
 }
 
 sub new_has_vsn_in_our_history () {
-    stat $pkgdir or die "$pkgdir $!";
-    my $mtime = ((stat _)[9]);
-    my $age = time -  $mtime;
-    return 1 if $age < $new_upload_propagation_slop;
     return specific_suite_has_vsn_in_our_history('new');
 }
 
@@ -211,7 +207,17 @@ sub action_check_package () {
     return 0 unless $pkg_exists;
     return 0 unless $pkg_secret;
 
+    printdebug "check_package\n";
+
     chdir $pkgdir or die "$pkgdir $!";
+
+    stat '.' or die "$pkgdir $!";
+    my $mtime = ((stat _)[9]);
+    my $age = time -  $mtime;
+    printdebug "check_package age=$age\n";
+
+    return 1 if $age < $new_upload_propagation_slop;
+
     return if new_has_vsn_in_our_history();
 
     if (good_suite_has_vsn_in_our_history) {
@@ -219,6 +225,8 @@ sub action_check_package () {
        return 0;
     }
 
+    printdebug "check_package secret, deleted, tainting\n";
+
     git_for_each_ref('refs/tags', sub {
        my ($objid,$objtype,$fullrefname,$tagname) = @_;
        add_taint_by_tag($tagname,$objid);