From d951cc21dafd2d22aa2748cee6637b47285b45e0 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Wed, 22 Apr 2020 23:08:54 +0100
Subject: - Renamed method name.

---
 challenge-057/mohammad-anwar/perl/ch-2.pl  | 4 ++--
 challenge-057/mohammad-anwar/perl/ch-2a.pl | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/challenge-057/mohammad-anwar/perl/ch-2.pl b/challenge-057/mohammad-anwar/perl/ch-2.pl
index 52281a6547..6e41246838 100644
--- a/challenge-057/mohammad-anwar/perl/ch-2.pl
+++ b/challenge-057/mohammad-anwar/perl/ch-2.pl
@@ -4,11 +4,11 @@ use strict;
 use warnings;
 
 my $words  = [ "alphabet", "book", "carpet", "cadmium", "cadeau", "alpine" ];
-my $unique = find_unique_prefix($words);
+my $unique = shortest_unique_prefix($words);
 
 print sprintf("[ %s ]\n", join(", ", @$unique));
 
-sub find_unique_prefix {
+sub shortest_unique_prefix {
     my ($words) = @_;
 
     my $p = [];
diff --git a/challenge-057/mohammad-anwar/perl/ch-2a.pl b/challenge-057/mohammad-anwar/perl/ch-2a.pl
index 69b16a8817..1154a96ca5 100644
--- a/challenge-057/mohammad-anwar/perl/ch-2a.pl
+++ b/challenge-057/mohammad-anwar/perl/ch-2a.pl
@@ -15,12 +15,12 @@ my $unit_tests = [
 foreach my $unit_test (@$unit_tests) {
     my $in  = $unit_test->{in};
     my $out = $unit_test->{out};
-    is_deeply(find_unique_prefix($in), $out);
+    is_deeply(shortest_unique_prefix($in), $out);
 }
 
 done_testing;
 
-sub find_unique_prefix {
+sub shortest_unique_prefix {
     my ($words) = @_;
 
     my $p = [];
-- 
cgit