From 37bb3836bf4e1890aaa1c5d76161f40587dd68d0 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 3 Jan 2024 20:40:28 +0100
Subject: [PATCH] perl: find debian version 6 years after release

Delay expiry of Debian 10 until lts eol in July.
---
 perl.plp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/perl.plp b/perl.plp
index 89b906e..2d9cb01 100644
--- 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;
-- 
2.30.0