perl: find debian version 6 years after release

[sheet.git] / perl.plp

diff --git a/perl.plp b/perl.plp
index 89b906e82b503298e009f058e67984758d9313ed..2d9cb010025f52bcc9758c28a912bf1ee027976a 100644 (file)
--- a/perl.plp
+++ b/perl.plp
@@ -57,8 +57,9 @@ eval {
        $info->{$vcore}{versum} //= "official security patches";
 
        # «We encourage vendors to ship the most recent supported release of Perl
-       # at the time of their code freeze» with debian&ubuntu having 5 years LTS
-       my $vendoreol = ($now - ONE_YEAR * 5)->strftime('%F');
+       # at the time of their code freeze»
+       # assume debian ships after 1 year, and expires after 5 years LTS
+       my $vendoreol = ($now - ONE_YEAR * 6)->strftime('%F');
        my $vdebian = first {
                $info->{$_}{release} ge $vendoreol && $info->{$_}{distro}{debian}
        } @versions;