removed Function::Parameters for submission: core Perl 5 only

1 files changed, 6 insertions, 5 deletions

diff --git a/challenge-004/duncan-c-white/perl5/ch-2.pl b/challenge-004/duncan-c-white/perl5/ch-2.pl
index 52a8b5579d..e351986a94 100755
--- a/challenge-004/duncan-c-white/perl5/ch-2.pl
+++ b/challenge-004/duncan-c-white/perl5/ch-2.pl
@@ -14,12 +14,11 @@
 
 use strict;
 use warnings;
-use Function::Parameters;
 use Data::Dumper;
 
-die "Usage: wordbag letters < wordlist\n" unless @ARGV;
+die "Usage: ch-2pl letters < wordlist\n" unless @ARGV;
 
-my %letterbag;		# letter -> number of frequrrences
+my %letterbag;		# letter -> frequency of that letter
 map { $letterbag{$_}++ } map { split(//,lc($_)) } @ARGV;
 
 
@@ -28,9 +27,11 @@ map { $letterbag{$_}++ } map { split(//,lc($_)) } @ARGV;
 #	Return 1 iff every letter in $word is present in %letterbag,
 #	and not present more times in $word than in %letterbag.
 #
-fun word_ok( $word, %letterbag )
+sub word_ok
 {
-	# build a bag of the letters in the word
+	my( $word, %letterbag ) = @_;
+
+	# build a bag of the letters in the word, lowercased
 	my %bag2;
 	map { $bag2{$_}++ } split( //, lc($word) );