diff options
| author | Joelle Maslak <jmaslak@antelope.net> | 2019-04-26 21:10:19 -0600 |
|---|---|---|
| committer | Joelle Maslak <jmaslak@antelope.net> | 2019-04-26 21:10:19 -0600 |
| commit | 3d03f6efecdaf0546e99165adb28ac256cb62b53 (patch) | |
| tree | a191d8190b9c7259463b85b95590fe37217f50ca /challenge-005 | |
| parent | cefb8834bb097261993c8f5ef918fb0041eb8f7f (diff) | |
| download | perlweeklychallenge-club-3d03f6efecdaf0546e99165adb28ac256cb62b53.tar.gz perlweeklychallenge-club-3d03f6efecdaf0546e99165adb28ac256cb62b53.tar.bz2 perlweeklychallenge-club-3d03f6efecdaf0546e99165adb28ac256cb62b53.zip | |
Close file properly
Diffstat (limited to 'challenge-005')
| -rwxr-xr-x | challenge-005/joelle-maslak/perl5/ch-1.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/challenge-005/joelle-maslak/perl5/ch-1.pl b/challenge-005/joelle-maslak/perl5/ch-1.pl index e77abe7b4a..1c0d2a17ea 100755 --- a/challenge-005/joelle-maslak/perl5/ch-1.pl +++ b/challenge-005/joelle-maslak/perl5/ch-1.pl @@ -49,6 +49,7 @@ while (my $word = <$fh>) { say $word; } } +close $fh; sub fullmatch($chars, $word) { $chars = join '', sort split '', $chars; |