commit: 34db670aff7f8da1eb1c90b7ad68cec526cfb4c6 Author: Robin H. Johnson <robbat2 <AT> gentoo <DOT> org> AuthorDate: Tue Apr 28 16:45:32 2020 +0000 Commit: Robin H. Johnson <robbat2 <AT> gentoo <DOT> org> CommitDate: Tue Apr 28 16:45:52 2020 +0000 URL: https://gitweb.gentoo.org/proj/gentoo-mirrorstats.git/commit/?id=34db670a
probe-mirmon: fix rsync case Signed-off-by: Robin H. Johnson <robbat2 <AT> gentoo.org> probe-mirmon | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/probe-mirmon b/probe-mirmon index 7b57923..ddd8546 100755 --- a/probe-mirmon +++ b/probe-mirmon @@ -17,6 +17,8 @@ main(@ARGV); +use strict; +use warnings; use Date::Parse (); # dev-perl/TimeDate use File::Tempdir; # dev-perl/File-Tempdir @@ -56,19 +58,20 @@ sub handle_rsync { exit 900; # rediculous exit code. }; - print munge_date(<fh>); + print munge_date(<$fh>); exit 0; } sub munge_date { - my $timestr = $_; + no warnings 'numeric'; ## no critic (TestingAndDebugging::ProhibitNoWarnings) + my $timestr = shift; my $timestamp = int($timestr); my $year2020 = 1577836800; my $year2038 = 2145916800; # If the string starts with an epoch, just use that - if($int_timestamp >= $year2020 && $int_timestamp <= $year2038) { - return $int_timestamp; + if($timestamp >= $year2020 && $timestamp <= $year2038) { + return $timestamp; } else { return Date::Parse::str2time($timestr); }