chiark / gitweb /
dgit-repos-policy-debian: Move time check (nfc, apart from debugging)
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Mon, 11 May 2015 08:06:12 +0000 (09:06 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 31 May 2015 10:54:11 +0000 (11:54 +0100)
infra/dgit-repos-policy-debian

index b25a560..5efccde 100755 (executable)
@@ -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);