view release on metacpan or  search on metacpan

internal/deprecate_codes  view on Meta::CPAN

34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
foreach my $type (keys %mod_list) {
   update_retired($type);
   write_module($type);
}
 
############################################################################
# UPDATE_MODULE
############################################################################
 
sub update_retired {
   my($type)  = @_;
   my $module = $mod_list{$type};
 
   foreach my $codeset (keys %{ $ALL_CODESETS{$type}{'codesets'} }) {
      foreach my $code (keys %{ $prev{$type}{$codeset}{'code'} }) {
         next  if (exists $curr{$type}{$codeset}{'code'}{$code});
         my $name = $prev{$type}{$codeset}{'code'}{$code};
 
         $Locale::Codes::Retired{$type}{$codeset}{'code'}{$code} = $name;
      }