This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "Upgrade Digest::SHA from version 5.88 to 5.91"
[perl5.git] / locale.c
index 66524e6..56cac85 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -1077,6 +1077,7 @@ S_is_cur_LC_category_utf8(pTHX_ int category)
                 Safefree(save_input_locale);
                 return is_utf8;
             }
+            Safefree(codeset);
         }
 
 #   endif