From 8694320890bb0076e6a79fe1b10f00a00cd3fbd9 Mon Sep 17 00:00:00 2001
From: Fung Cheok Yin <61836418+E7-87-83@users.noreply.github.com>
Date: Fri, 5 Jun 2020 10:47:50 +0800
Subject: Update ch-2.pl

---
 challenge-063/cheok-yin-fung/perl/ch-2.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-063/cheok-yin-fung/perl/ch-2.pl b/challenge-063/cheok-yin-fung/perl/ch-2.pl
index 0a0e4129ed..2c5cdf7226 100644
--- a/challenge-063/cheok-yin-fung/perl/ch-2.pl
+++ b/challenge-063/cheok-yin-fung/perl/ch-2.pl
@@ -8,8 +8,8 @@ sub lookup_repeated {
     my $word = $_[0];
     my $le = 1;
     while ($le <= $wordlen/2) {
-        if ($wordlen % $le == 0) { 
-            my $multiple = $wordlen/$le;
+        my $multiple = int $wordlen/$le;
+        if ($wordlen == $le * $multiple) {
             my $pattern = substr $word, 0, $le;
             if ( ($pattern x $multiple) eq $word ) {
                 return $le;
-- 
cgit