From a396d7bfd5de57c7217bd7cdd70aaa6e7899faa6 Mon Sep 17 00:00:00 2001 From: Andreas Koenig Date: Sun, 29 Oct 2017 13:27:25 +0100 Subject: [PATCH] Verify sufficient version earlier --- bin/recent.pl | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/bin/recent.pl b/bin/recent.pl index db208b36..dfa96312 100644 --- a/bin/recent.pl +++ b/bin/recent.pl @@ -87,6 +87,10 @@ if (-e "/home/k/sources/rersyncrecent/lib/") { lib->unimport("."); } require File::Rsync::Mirror::Recent; +use CPAN::Version; +unless (CPAN::Version->vge($File::Rsync::Mirror::Recent::VERSION, '0.4.5')) { + warn "WARNING: loaded version '$File::Rsync::Mirror::Recent::VERSION' maybe not sufficient. Loaded from $INC{'File/Rsync/Mirror/Recent/VERSION.pm'}\n"; +} my $statefile = "$ENV{HOME}/.cpan/loop-over-recent.state"; my $max_epoch_worked_on = 0; -- 2.11.4.GIT