From 6e598a1fa67fa07e50b6b4979ac3f76800f40bca Mon Sep 17 00:00:00 2001
From: KUEPPO <tcheukueppo@tutanota.com>
Date: Mon, 7 Nov 2022 01:29:26 +0100
Subject: ch-1.pl pwc-189

---
 challenge-189/kueppo-wesley/Perl/ch-1.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-189/kueppo-wesley/Perl/ch-1.pl b/challenge-189/kueppo-wesley/Perl/ch-1.pl
index 367b27cc00..3b61a3861c 100644
--- a/challenge-189/kueppo-wesley/Perl/ch-1.pl
+++ b/challenge-189/kueppo-wesley/Perl/ch-1.pl
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use List::Util qw/ first /;
+use List::Util qw/first/;
 
 sub find_greater_char {
     my ( $array, $target ) = @_;
@@ -21,6 +21,6 @@ my @samples  = (
     [ [ qw/t g a l/ ], q/v/ ]
 );
 
-is_deeply( $expected, [ map { find_greater_char( @$_ ) } @samples ], 'found the correct chars?' );
+is_deeply( [ map { find_greater_char( @$_ ) } @samples ], $expected, 'found the correct chars?' );
 
 done_testing( 1 );
-- 
cgit