Comply with the 0x80th commandment

[perl5.git] / lib / I18N / LangTags.pm

diff --git a/lib/I18N/LangTags.pm b/lib/I18N/LangTags.pm
index 6a39cae..0bdc65f 100644 (file)
--- a/lib/I18N/LangTags.pm
+++ b/lib/I18N/LangTags.pm
@@ -489,7 +489,7 @@ lookup in %greetings fails.  That's the Wrong Thing.
 You could instead do lookups on $wanted with:
 
           use I18N::LangTags qw(same_language_tag);
-          my $repsonse = '';
+          my $response = '';
           foreach my $l2 (keys %greetings) {
             if(same_language_tag($wanted, $l2)) {
               $response = $greetings{$l2};