From 73c1401dee69cd87ee78d161332913cb7c65dceb Mon Sep 17 00:00:00 2001 From: E7-87-83 Date: Thu, 14 Oct 2021 04:12:22 +0800 Subject: remove redundant line --- challenge-132/cheok-yin-fung/perl/ch-1.pl | 1 - 1 file changed, 1 deletion(-) diff --git a/challenge-132/cheok-yin-fung/perl/ch-1.pl b/challenge-132/cheok-yin-fung/perl/ch-1.pl index 7bfe736e7d..ed95f49ea2 100644 --- a/challenge-132/cheok-yin-fung/perl/ch-1.pl +++ b/challenge-132/cheok-yin-fung/perl/ch-1.pl @@ -14,7 +14,6 @@ sub mirror { my $_today = timelocal(0, 0, 0, @arr_today); my @arr_birth = ($_[2], $_[1]-1, $_[0]); my $_birth = timelocal(0, 0, 0, @arr_birth); - my $sec_diff = $_today - $_birth; my $y1 = int (($_today - $_birth)/86400); my @d_senior = localtime timegm_nocheck 0, 0, 0, $arr_birth[0]-$y1, $arr_birth[1], $arr_birth[2]; my @d_junior = localtime timegm_nocheck 0, 0, 0, $arr_today[0]+$y1, $arr_today[1], $arr_today[2]; -- cgit