diff options
| author | Matthew Neleigh <matthew.neleigh@gmail.com> | 2024-09-20 12:35:09 -0400 |
|---|---|---|
| committer | Matthew Neleigh <matthew.neleigh@gmail.com> | 2024-09-20 12:35:09 -0400 |
| commit | 9f1a14564a9f0ba707e2b59ad23e25058512b442 (patch) | |
| tree | 1ebf88303409c9f41eaac60b1c9e525dfe4231cc | |
| parent | a679b779f9584a132fbba5eeba794ae3860060cf (diff) | |
| download | perlweeklychallenge-club-9f1a14564a9f0ba707e2b59ad23e25058512b442.tar.gz perlweeklychallenge-club-9f1a14564a9f0ba707e2b59ad23e25058512b442.tar.bz2 perlweeklychallenge-club-9f1a14564a9f0ba707e2b59ad23e25058512b442.zip | |
modified: challenge-287/mattneleigh/perl/ch-1.pl
| -rwxr-xr-x | challenge-287/mattneleigh/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-287/mattneleigh/perl/ch-1.pl b/challenge-287/mattneleigh/perl/ch-1.pl index d3652ecf30..cdd4875f91 100755 --- a/challenge-287/mattneleigh/perl/ch-1.pl +++ b/challenge-287/mattneleigh/perl/ch-1.pl @@ -77,7 +77,7 @@ sub steps_to_strong_password{ $chars_added += 6 - length($string) if(length($string) < 6); - # See if we have blocks of three repeated chars... + # See if we have a block of three repeated chars... if($string =~ m/(.)\1{2}/g){ $blocks_of_three = 1; |