diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-04-21 11:58:15 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-04-21 11:58:15 +0100 |
| commit | e6fdf894f61311051d4fde33e1a7562d5c86d4c9 (patch) | |
| tree | 1080b9b5f083cc2d268ef602f6d3a4e11bcf1c2e | |
| parent | 0a49f05c77cfae08d2c7d138b04f86a34e013894 (diff) | |
| parent | 90cfe9a48329303bc7103879b5ef25b02a1b1e0b (diff) | |
| download | perlweeklychallenge-club-e6fdf894f61311051d4fde33e1a7562d5c86d4c9.tar.gz perlweeklychallenge-club-e6fdf894f61311051d4fde33e1a7562d5c86d4c9.tar.bz2 perlweeklychallenge-club-e6fdf894f61311051d4fde33e1a7562d5c86d4c9.zip | |
Merge pull request #79 from rabbiveesh/master
Corrected the case sensitivity
| -rwxr-xr-x | challenge-004/veesh-goldman/perl5/ch-02.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-004/veesh-goldman/perl5/ch-02.pl b/challenge-004/veesh-goldman/perl5/ch-02.pl index 9a5fdefee6..bac9712084 100755 --- a/challenge-004/veesh-goldman/perl5/ch-02.pl +++ b/challenge-004/veesh-goldman/perl5/ch-02.pl @@ -21,7 +21,7 @@ while (<>) { #copy the string to check for letters my $string = $_; #remove any letter in our list from the word - $string =~ s/$_// for split //, $list; + $string =~ s/$_//i for split //, $list; #if there's no word left, then print our original word CORE::say unless $string; } |