summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/Date/Language
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/Date/Language')
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Afar.pm49
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Amharic.pm87
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Austrian.pm36
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Brazilian.pm35
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Bulgarian.pm92
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Chinese.pm36
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Chinese_GB.pm36
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Czech.pm58
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Danish.pm36
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Dutch.pm40
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/English.pm37
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Finnish.pm45
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/French.pm36
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Gedeo.pm51
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/German.pm37
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Greek.pm91
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Hungarian.pm88
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Icelandic.pm36
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Italian.pm36
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Norwegian.pm36
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Oromo.pm37
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Romanian.pm37
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Russian.pm49
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Russian_cp1251.pm39
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Russian_koi8r.pm39
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Sidama.pm37
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Somali.pm62
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Spanish.pm35
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Swedish.pm41
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Tigrinya.pm58
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/TigrinyaEritrean.pm93
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/TigrinyaEthiopian.pm93
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language/Turkish.pm59
33 files changed, 0 insertions, 1677 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Afar.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Afar.pm
deleted file mode 100644
index f67cf37685c..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Afar.pm
+++ /dev/null
@@ -1,49 +0,0 @@
-##
-## Afar tables
-##
-
-package Date::Language::Afar;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "0.99";
-
-@DoW = qw(Acaada Etleeni Talaata Arbaqa Kamiisi Gumqata Sabti);
-@MoY = (
-"Qunxa Garablu",
-"Kudo",
-"Ciggilta Kudo",
-"Agda Baxis",
-"Caxah Alsa",
-"Qasa Dirri",
-"Qado Dirri",
-"Liiqen",
-"Waysu",
-"Diteli",
-"Ximoli",
-"Kaxxa Garablu"
-);
-@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = qw(saaku carra);
-
-@Dsuf = (qw(th st nd rd th th th th th th)) x 3;
-@Dsuf[11,12,13] = qw(th th th);
-@Dsuf[30,31] = qw(th st);
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Amharic.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Amharic.pm
deleted file mode 100644
index a79984ecffa..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Amharic.pm
+++ /dev/null
@@ -1,87 +0,0 @@
-##
-## Amharic tables
-##
-
-package Date::Language::Amharic;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.00";
-
-if ( $] >= 5.006 ) {
-@DoW = (
-"\x{12a5}\x{1211}\x{12f5}",
-"\x{1230}\x{129e}",
-"\x{121b}\x{12ad}\x{1230}\x{129e}",
-"\x{1228}\x{1261}\x{12d5}",
-"\x{1210}\x{1219}\x{1235}",
-"\x{12d3}\x{122d}\x{1265}",
-"\x{1245}\x{12f3}\x{121c}"
-);
-@MoY = (
-"\x{1303}\x{1295}\x{12e9}\x{12c8}\x{122a}",
-"\x{134c}\x{1265}\x{1229}\x{12c8}\x{122a}",
-"\x{121b}\x{122d}\x{127d}",
-"\x{12a4}\x{1355}\x{1228}\x{120d}",
-"\x{121c}\x{12ed}",
-"\x{1301}\x{1295}",
-"\x{1301}\x{120b}\x{12ed}",
-"\x{12a6}\x{1308}\x{1235}\x{1275}",
-"\x{1234}\x{1355}\x{1274}\x{121d}\x{1260}\x{122d}",
-"\x{12a6}\x{12ad}\x{1270}\x{12cd}\x{1260}\x{122d}",
-"\x{1296}\x{126c}\x{121d}\x{1260}\x{122d}",
-"\x{12f2}\x{1234}\x{121d}\x{1260}\x{122d}"
-);
-@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = ( "\x{1320}\x{12cb}\x{1275}", "\x{12a8}\x{1230}\x{12d3}\x{1275}" );
-
-@Dsuf = ("\x{129b}" x 31);
-}
-else {
-@DoW = (
-"እሑድ",
-"ሰኞ",
-"ማክሰኞ",
-"ረቡዕ",
-"ሐሙስ",
-"ዓርብ",
-"ቅዳሜ"
-);
-@MoY = (
-"ጃንዩወሪ",
-"ፌብሩወሪ",
-"ማርች",
-"ኤፕረል",
-"ሜይ",
-"ጁን",
-"ጁላይ",
-"ኦገስት",
-"ሴፕቴምበር",
-"ኦክተውበር",
-"ኖቬምበር",
-"ዲሴምበር"
-);
-@DoWs = map { substr($_,0,9) } @DoW;
-@MoYs = map { substr($_,0,9) } @MoY;
-@AMPM = ( "ጠዋት", "ከሰዓት" );
-
-@Dsuf = ("ኛ" x 31);
-}
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Austrian.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Austrian.pm
deleted file mode 100644
index 8ff398bd106..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Austrian.pm
+++ /dev/null
@@ -1,36 +0,0 @@
-##
-## Austrian tables
-##
-
-package Date::Language::Austrian;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.01";
-
-@MoY = qw(Jnner Feber Mrz April Mai Juni
- Juli August September Oktober November Dezember);
-@MoYs = qw(Jn Feb Mr Apr Mai Jun Jul Aug Sep Oct Nov Dez);
-@DoW = qw(Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag);
-@DoWs = qw(Son Mon Die Mit Don Fre Sam);
-
-use Date::Language::English ();
-@AMPM = @{Date::Language::English::AMPM};
-@Dsuf = @{Date::Language::English::Dsuf};
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Brazilian.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Brazilian.pm
deleted file mode 100644
index fa4d15fff91..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Brazilian.pm
+++ /dev/null
@@ -1,35 +0,0 @@
-##
-## Brazilian tables, contributed by Christian Tosta (tosta@cce.ufmg.br)
-##
-
-package Date::Language::Brazilian;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.01";
-
-@DoW = qw(Domingo Segunda Tera Quarta Quinta Sexta Sbado);
-@MoY = qw(Janeiro Fevereiro Maro Abril Maio Junho
- Julho Agosto Setembro Outubro Novembro Dezembro);
-@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = qw(AM PM);
-
-@Dsuf = (qw(mo ro do ro to to to mo vo no)) x 3;
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Bulgarian.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Bulgarian.pm
deleted file mode 100644
index cf3d127486e..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Bulgarian.pm
+++ /dev/null
@@ -1,92 +0,0 @@
-##
-## Bulgarian tables contributed by Krasimir Berov
-##
-
-package Date::Language::Bulgarian;
-use strict;
-use warnings;
-use utf8;
-use base qw(Date::Language);
-our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW, $VERSION);
-$VERSION = "1.01";
-
-@DoW = qw(неделя понеделник вторник сряда четвъртък петък събота);
-@MoY = qw(януари февруари март април май юни
- юли август септември октомври ноември декември);
-@DoWs = qw(нд пн вт ср чт пт сб);
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = qw(AM PM);
-
-@Dsuf = (qw(ти ви ри ти ти ти ти ми ми ти)) x 3;
-@Dsuf[11,12,13] = qw(ти ти ти);
-@Dsuf[30,31] = qw(ти ви);
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-sub format_o { ($_[0]->[3]<10?' ':'').$_[0]->[3].$Dsuf[$_[0]->[3]] }
-
-1;
-
-__END__
-
-=encoding utf8
-
-=head1 NAME
-
-Date::Language::Bulgarian - localization for Date::Format
-
-=head1 DESCRIPTION
-
-This is Bulgarian localization for Date::Format.
-It is important to note that this module source code is in utf8.
-All strings which it outputs are in utf8, so it is safe to use it
-currently only with English. You are left alone to try and convert
-the output when using different Date::Language::* in the same application.
-This should be addresed in the future.
-
-=head1 SYNOPSIS
-
- use strict;
- use warnings;
- use Date::Language;
- local $\=$/;
- my $template ='%a %b %e %T %Y (%Y-%m-%d %H:%M:%S)';
- my $time=1290883821; #or just use time();
- my @lt = localtime($time);
- my %languages = qw(English GMT German EEST Bulgarian EET);
- binmode(select,':utf8');
-
- foreach my $l(keys %languages){
- my $lang = Date::Language->new($l);
- my $zone = $languages{$l};
- print $/. "$l $zone";
- print $lang->time2str($template, $time);
- print $lang->time2str($template, $time, $zone);
-
- print $lang->strftime($template, \@lt);
- }
-
-=head1 AUTHOR
-
-Krasimir Berov (berov@cpan.org)
-
-=head1 COPYRIGHT
-
-Copyright (c) 2010 Krasimir Berov. This program is free
-software; you can redistribute it and/or modify it under the same terms
-as Perl itself.
-
-=cut
-
-
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Chinese.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Chinese.pm
deleted file mode 100644
index abfb3c05728..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Chinese.pm
+++ /dev/null
@@ -1,36 +0,0 @@
-##
-## English tables
-##
-
-package Date::Language::Chinese;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.00";
-
-@DoW = qw(星期日 星期一 星期二 星期三 星期四 星期五 星期六);
-@MoY = qw(一月 二月 三月 四月 五月 六月
- 七月 八月 九月 十月 十一月 十二月);
-@DoWs = map { $_ } @DoW;
-@MoYs = map { $_ } @MoY;
-@AMPM = qw(上午 下午);
-
-@Dsuf = (qw(日 日 日 日 日 日 日 日 日 日)) x 3;
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-sub format_o { sprintf("%2d%s",$_[0]->[3],"日") }
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Chinese_GB.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Chinese_GB.pm
deleted file mode 100644
index 7be05552266..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Chinese_GB.pm
+++ /dev/null
@@ -1,36 +0,0 @@
-##
-## English tables
-##
-
-package Date::Language::Chinese_GB;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.01";
-
-@DoW = qw( һ ڶ );
-@MoY = qw(һ
- ʮ ʮһ ʮ);
-@DoWs = map { $_ } @DoW;
-@MoYs = map { $_ } @MoY;
-@AMPM = qw( );
-
-@Dsuf = (qw( )) x 3;
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-sub format_o { sprintf("%2d%s",$_[0]->[3],"") }
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Czech.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Czech.pm
deleted file mode 100644
index 756f5c552fc..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Czech.pm
+++ /dev/null
@@ -1,58 +0,0 @@
-##
-## Czech tables
-##
-## Contributed by Honza Pazdziora
-
-package Date::Language::Czech;
-
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @MoY2 @AMPM %MoY %DoW $VERSION);
-@ISA = qw(Date::Language Date::Format::Generic);
-$VERSION = "1.01";
-
-@MoY = qw(leden nor bezen duben kvten erven ervenec srpen z
- jen listopad prosinec);
-@MoYs = qw(led nor be dub kv vn ec srp z j lis pro);
-@MoY2 = @MoY;
-for (@MoY2)
- { s!en$!na! or s!ec$!ce! or s!ad$!adu! or s!or$!ora!; }
-
-@DoW = qw(nedle pondl ter steda tvrtek ptek sobota);
-@DoWs = qw(Ne Po t St t P So);
-
-@AMPM = qw(dop. odp.);
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-sub format_d { $_[0]->[3] }
-sub format_m { $_[0]->[4] + 1 }
-sub format_o { $_[0]->[3] . '.' }
-
-sub format_Q { $MoY2[$_[0]->[4]] }
-
-sub time2str {
- my $ref = shift;
- my @a = @_;
- $a[0] =~ s/(%[do]\.?\s?)%B/$1%Q/;
- $ref->SUPER::time2str(@a);
- }
-
-sub strftime {
- my $ref = shift;
- my @a = @_;
- $a[0] =~ s/(%[do]\.?\s?)%B/$1%Q/;
- $ref->SUPER::time2str(@a);
- }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Danish.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Danish.pm
deleted file mode 100644
index c43d08528ef..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Danish.pm
+++ /dev/null
@@ -1,36 +0,0 @@
-##
-## Danish tables
-##
-
-package Date::Language::Danish;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.01";
-
-@MoY = qw(Januar Februar Marts April Maj Juni
- Juli August September Oktober November December);
-@MoYs = qw(Jan Feb Mar Apr Maj Jun Jul Aug Sep Okt Nov Dec);
-@DoW = qw(Sndag Mandag Tirsdag Onsdag Torsdag Fredag Lrdag Sndag);
-@DoWs = qw(Sn Man Tir Ons Tor Fre Lr Sn);
-
-use Date::Language::English ();
-@AMPM = @{Date::Language::English::AMPM};
-@Dsuf = @{Date::Language::English::Dsuf};
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Dutch.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Dutch.pm
deleted file mode 100644
index 219758b4b29..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Dutch.pm
+++ /dev/null
@@ -1,40 +0,0 @@
-##
-## Dutch tables
-## Contributed by Johannes la Poutre <jlpoutre@corp.nl.home.com>
-##
-
-package Date::Language::Dutch;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.02";
-
-@MoY = qw(januari februari maart april mei juni juli
- augustus september oktober november december);
-@MoYs = map(substr($_, 0, 3), @MoY);
-$MoYs[2] = 'mrt'; # mrt is more common (Frank Maas)
-@DoW = map($_ . "dag", qw(zon maan dins woens donder vrij zater));
-@DoWs = map(substr($_, 0, 2), @DoW);
-
-# these aren't normally used...
-@AMPM = qw(VM NM);
-@Dsuf = ('e') x 31;
-
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-sub format_o { sprintf("%2de",$_[0]->[3]) }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/English.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/English.pm
deleted file mode 100644
index 638cb3c2a21..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/English.pm
+++ /dev/null
@@ -1,37 +0,0 @@
-##
-## English tables
-##
-
-package Date::Language::English;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.01";
-
-@DoW = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
-@MoY = qw(January February March April May June
- July August September October November December);
-@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = qw(AM PM);
-
-@Dsuf = (qw(th st nd rd th th th th th th)) x 3;
-@Dsuf[11,12,13] = qw(th th th);
-@Dsuf[30,31] = qw(th st);
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Finnish.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Finnish.pm
deleted file mode 100644
index 415b50c73df..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Finnish.pm
+++ /dev/null
@@ -1,45 +0,0 @@
-##
-## Finnish tables
-## Contributed by Matthew Musgrove <muskrat@mindless.com>
-## Corrected by roke
-##
-
-package Date::Language::Finnish;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.01";
-
-# In Finnish, the names of the months and days are only capitalized at the beginning of sentences.
-@MoY = map($_ . "kuu", qw(tammi helmi maalis huhti touko kes hein elo syys loka marras joulu));
-@DoW = qw(sunnuntai maanantai tiistai keskiviikko torstai perjantai lauantai);
-
-# it is not customary to use abbreviated names of months or days
-# per Graham's suggestion:
-@MoYs = @MoY;
-@DoWs = @DoW;
-
-# the short form of ordinals
-@Dsuf = ('.') x 31;
-
-# doesn't look like this is normally used...
-@AMPM = qw(ap ip);
-
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-sub format_o { sprintf("%2de",$_[0]->[3]) }
-
-1; \ No newline at end of file
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/French.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/French.pm
deleted file mode 100644
index 91b414c2eb4..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/French.pm
+++ /dev/null
@@ -1,36 +0,0 @@
-##
-## French tables, contributed by Emmanuel Bataille (bem@residents.frmug.org)
-##
-
-package Date::Language::French;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.04";
-
-@DoW = qw(dimanche lundi mardi mercredi jeudi vendredi samedi);
-@MoY = qw(janvier fvrier mars avril mai juin
- juillet aot septembre octobre novembre dcembre);
-@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-$MoYs[6] = 'jul';
-@AMPM = qw(AM PM);
-
-@Dsuf = ((qw(er e e e e e e e e e)) x 3, 'er');
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Gedeo.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Gedeo.pm
deleted file mode 100644
index c18ad8cadda..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Gedeo.pm
+++ /dev/null
@@ -1,51 +0,0 @@
-##
-## Gedeo tables
-##
-
-package Date::Language::Gedeo;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "0.99";
-
-@DoW = qw( Sanbbattaa Sanno Masano Roobe Hamusse Arbe Qiddamme);
-@MoY = (
-"Oritto",
-"Birre'a",
-"Onkkollessa",
-"Saddasa",
-"Arrasa",
-"Qammo",
-"Ella",
-"Waacibajje",
-"Canissa",
-"Addolessa",
-"Bittitotessa",
-"Hegeya"
-);
-@DoWs = map { substr($_,0,3) } @DoW;
-$DoWs[0] = "Snb";
-$DoWs[1] = "Sno";
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = qw(gorsa warreti-udumma);
-
-@Dsuf = (qw(th st nd rd th th th th th th)) x 3;
-@Dsuf[11,12,13] = qw(th th th);
-@Dsuf[30,31] = qw(th st);
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/German.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/German.pm
deleted file mode 100644
index 11242c4c46a..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/German.pm
+++ /dev/null
@@ -1,37 +0,0 @@
-##
-## German tables
-##
-
-package Date::Language::German;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.02";
-
-@MoY = qw(Januar Februar Mrz April Mai Juni
- Juli August September Oktober November Dezember);
-@MoYs = qw(Jan Feb Mr Apr Mai Jun Jul Aug Sep Okt Nov Dez);
-@DoW = qw(Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag);
-@DoWs = qw(Son Mon Die Mit Don Fre Sam);
-
-use Date::Language::English ();
-@AMPM = @{Date::Language::English::AMPM};
-@Dsuf = @{Date::Language::English::Dsuf};
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-sub format_o { sprintf("%2d.",$_[0]->[3]) }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Greek.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Greek.pm
deleted file mode 100644
index 00f917ce474..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Greek.pm
+++ /dev/null
@@ -1,91 +0,0 @@
-##
-## Greek tables
-##
-## Traditional date format is: DoW DD{eta} MoY Year (%A %o %B %Y)
-##
-## Matthew Musgrove <muskrat@mindless.com>
-## Translations gratiously provided by Menelaos Stamatelos <men@kwsn.net>
-## This module returns unicode (utf8) encoded characters. You will need to
-## take the necessary steps for this to display correctly.
-##
-
-package Date::Language::Greek;
-
-use utf8;
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.00";
-
-@DoW = (
-"\x{039a}\x{03c5}\x{03c1}\x{03b9}\x{03b1}\x{03ba}\x{03ae}",
-"\x{0394}\x{03b5}\x{03c5}\x{03c4}\x{03ad}\x{03c1}\x{03b1}",
-"\x{03a4}\x{03c1}\x{03af}\x{03c4}\x{03b7}",
-"\x{03a4}\x{03b5}\x{03c4}\x{03ac}\x{03c1}\x{03c4}\x{03b7}",
-"\x{03a0}\x{03ad}\x{03bc}\x{03c0}\x{03c4}\x{03b7}",
-"\x{03a0}\x{03b1}\x{03c1}\x{03b1}\x{03c3}\x{03ba}\x{03b5}\x{03c5}\x{03ae}",
-"\x{03a3}\x{03ac}\x{03b2}\x{03b2}\x{03b1}\x{03c4}\x{03bf}",
-);
-
-@MoY = (
-"\x{0399}\x{03b1}\x{03bd}\x{03bf}\x{03c5}\x{03b1}\x{03c1}\x{03af}\x{03bf}\x{03c5}",
-"\x{03a6}\x{03b5}\x{03b2}\x{03c1}\x{03bf}\x{03c5}\x{03b1}\x{03c1}\x{03af}\x{03bf}\x{03c5}",
-"\x{039c}\x{03b1}\x{03c1}\x{03c4}\x{03af}\x{03bf}\x{03c5}",
-"\x{0391}\x{03c0}\x{03c1}\x{03b9}\x{03bb}\x{03af}\x{03c5}",
-"\x{039c}\x{03b1}\x{0390}\x{03bf}\x{03c5}",
-"\x{0399}\x{03bf}\x{03c5}\x{03bd}\x{03af}\x{03bf}\x{03c5}",
-"\x{0399}\x{03bf}\x{03c5}\x{03bb}\x{03af}\x{03bf}\x{03c5}",
-"\x{0391}\x{03c5}\x{03b3}\x{03bf}\x{03cd}\x{03c3}\x{03c4}\x{03bf}\x{03c5}",
-"\x{03a3}\x{03b5}\x{03c0}\x{03c4}\x{03b5}\x{03bc}\x{03c4}\x{03bf}\x{03c5}",
-"\x{039f}\x{03ba}\x{03c4}\x{03c9}\x{03b2}\x{03c1}\x{03af}\x{03bf}\x{03c5}",
-"\x{039d}\x{03bf}\x{03b5}\x{03bc}\x{03b2}\x{03c1}\x{03af}\x{03bf}\x{03c5}",
-"\x{0394}\x{03b5}\x{03ba}\x{03b5}\x{03bc}\x{03b2}\x{03c1}\x{03bf}\x{03c5}",
-);
-
-@DoWs = (
-"\x{039a}\x{03c5}",
-"\x{0394}\x{03b5}",
-"\x{03a4}\x{03c1}",
-"\x{03a4}\x{03b5}",
-"\x{03a0}\x{03b5}",
-"\x{03a0}\x{03b1}",
-"\x{03a3}\x{03b1}",
-);
-@MoYs = (
-"\x{0399}\x{03b1}\x{03bd}",
-"\x{03a6}\x{03b5}",
-"\x{039c}\x{03b1}\x{03c1}",
-"\x{0391}\x{03c0}\x{03c1}",
-"\x{039c}\x{03b1}",
-"\x{0399}\x{03bf}\x{03c5}\x{03bd}",
-"\x{0399}\x{03bf}\x{03c5}\x{03bb}",
-"\x{0391}\x{03c5}\x{03b3}",
-"\x{03a3}\x{03b5}\x{03c0}",
-"\x{039f}\x{03ba}",
-"\x{039d}\x{03bf}",
-"\x{0394}\x{03b5}",
-);
-
-@AMPM = ("\x{03c0}\x{03bc}", "\x{03bc}\x{03bc}");
-
-@Dsuf = ("\x{03b7}" x 31);
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_o { sprintf("%2d%s",$_[0]->[3],"\x{03b7}") }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
-
-
-
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Hungarian.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Hungarian.pm
deleted file mode 100644
index d9c838d15b9..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Hungarian.pm
+++ /dev/null
@@ -1,88 +0,0 @@
-##
-## Hungarian tables based on English
-##
-#
-# This is a just-because-I-stumbled-across-it
-# -and-my-wife-is-Hungarian release: if Graham or
-# someone adds to docs to Date::Format, I'd be
-# glad to correct bugs and extend as neeed.
-#
-
-package Date::Language::Hungarian;
-
-=head1 NAME
-
-Date::Language::Hungarian - Magyar format for Date::Format
-
-=head1 SYNOPSIS
-
- my $lang = Date::Language->new('Hungarian');
- print $lang->time2str("%a %b %e %T %Y", time);
-
- @lt = localtime(time);
- print $lang->time2str($template, time);
- print $lang->strftime($template, @lt);
-
- print $lang->time2str($template, time, $zone);
- print $lang->strftime($template, @lt, $zone);
-
- print $lang->ctime(time);
- print $lang->asctime(@lt);
-
- print $lang->ctime(time, $zone);
- print $lang->asctime(@lt, $zone);
-
-See L<Date::Format>.
-
-=head1 AUTHOR
-
-Paula Goddard (paula -at- paulacska -dot- com)
-
-=head1 LICENCE
-
-Made available under the same terms as Perl itself.
-
-=cut
-
-use strict;
-use warnings;
-use base "Date::Language";
-use vars qw( @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-$VERSION = "1.01";
-
-@DoW = qw(Vasrnap Htf Kedd Szerda Cstrtk Pntek Szombat);
-@MoY = qw(Janur Februr Mrcius prilis Mjus Jnius
- Jlius Augusztus Szeptember Oktber November December);
-@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = qw(DE. DU.);
-
-# There is no 'th or 'nd in Hungarian, just a dot
-@Dsuf = (".") x 31;
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-sub format_P { lc($_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0]) }
-sub format_o { $_[0]->[3].'.' }
-
-
-
-sub format_D { &format_y . "." . &format_m . "." . &format_d }
-
-sub format_y { sprintf("%02d",$_[0]->[5] % 100) }
-sub format_d { sprintf("%02d",$_[0]->[3]) }
-sub format_m { sprintf("%02d",$_[0]->[4] + 1) }
-
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Icelandic.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Icelandic.pm
deleted file mode 100644
index 5ca3ee32099..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Icelandic.pm
+++ /dev/null
@@ -1,36 +0,0 @@
-##
-## Icelandic tables
-##
-
-package Date::Language::Icelandic;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.01";
-
-@MoY = qw(Janar Febrar Mars Aprl Ma Jni
- Jli gst September Oktber Nvember Desember);
-@MoYs = qw(Jan Feb Mar Apr Ma Jn Jl g Sep Okt Nv Des);
-@DoW = qw(Sunnudagur Mnudagur rijudagur Mivikudagur Fimmtudagur Fstudagur Laugardagur Sunnudagur);
-@DoWs = qw(Sun Mn ri Mi Fim Fs Lau Sun);
-
-use Date::Language::English ();
-@AMPM = @{Date::Language::English::AMPM};
-@Dsuf = @{Date::Language::English::Dsuf};
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Italian.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Italian.pm
deleted file mode 100644
index 6db0a8e67c9..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Italian.pm
+++ /dev/null
@@ -1,36 +0,0 @@
-##
-## Italian tables
-##
-
-package Date::Language::Italian;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.01";
-
-@MoY = qw(Gennaio Febbraio Marzo Aprile Maggio Giugno
- Luglio Agosto Settembre Ottobre Novembre Dicembre);
-@MoYs = qw(Gen Feb Mar Apr Mag Giu Lug Ago Set Ott Nov Dic);
-@DoW = qw(Domenica Lunedi Martedi Mercoledi Giovedi Venerdi Sabato);
-@DoWs = qw(Dom Lun Mar Mer Gio Ven Sab);
-
-use Date::Language::English ();
-@AMPM = @{Date::Language::English::AMPM};
-@Dsuf = @{Date::Language::English::Dsuf};
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Norwegian.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Norwegian.pm
deleted file mode 100644
index bbd997f0b4d..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Norwegian.pm
+++ /dev/null
@@ -1,36 +0,0 @@
-##
-## Norwegian tables
-##
-
-package Date::Language::Norwegian;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.01";
-
-@MoY = qw(Januar Februar Mars April Mai Juni
- Juli August September Oktober November Desember);
-@MoYs = qw(Jan Feb Mar Apr Mai Jun Jul Aug Sep Okt Nov Des);
-@DoW = qw(Sndag Mandag Tirsdag Onsdag Torsdag Fredag Lrdag Sndag);
-@DoWs = qw(Sn Man Tir Ons Tor Fre Lr Sn);
-
-use Date::Language::English ();
-@AMPM = @{Date::Language::English::AMPM};
-@Dsuf = @{Date::Language::English::Dsuf};
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Oromo.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Oromo.pm
deleted file mode 100644
index b6a6230c87d..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Oromo.pm
+++ /dev/null
@@ -1,37 +0,0 @@
-##
-## Oromo tables
-##
-
-package Date::Language::Oromo;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "0.99";
-
-@DoW = qw(Dilbata Wiixata Qibxata Roobii Kamiisa Jimaata Sanbata);
-@MoY = qw(Amajjii Guraandhala Bitooteessa Elba Caamsa Waxabajjii
- Adooleessa Hagayya Fuulbana Onkololeessa Sadaasa Muddee);
-@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = qw(WD WB);
-
-@Dsuf = (qw(th st nd rd th th th th th th)) x 3;
-@Dsuf[11,12,13] = qw(th th th);
-@Dsuf[30,31] = qw(th st);
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Romanian.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Romanian.pm
deleted file mode 100644
index cbd2c8cbc4d..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Romanian.pm
+++ /dev/null
@@ -1,37 +0,0 @@
-##
-## Italian tables
-##
-
-package Date::Language::Romanian;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.01";
-
-@MoY = qw(ianuarie februarie martie aprilie mai iunie
- iulie august septembrie octombrie noembrie decembrie);
-@DoW = qw(duminica luni marti miercuri joi vineri sambata);
-@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-
-@AMPM = qw(AM PM);
-
-@Dsuf = ('') x 31;
-
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Russian.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Russian.pm
deleted file mode 100644
index ca9f4142327..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Russian.pm
+++ /dev/null
@@ -1,49 +0,0 @@
-##
-## Russian tables
-##
-## Contributed by Danil Pismenny <dapi@mail.ru>
-
-package Date::Language::Russian;
-
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @MoY2 @AMPM %MoY %DoW $VERSION);
-@ISA = qw(Date::Language Date::Format::Generic);
-$VERSION = "1.01";
-
-@MoY = qw( );
-@MoY2 = qw( );
-@MoYs = qw( );
-
-@DoW = qw( );
-@DoWs = qw( );
-@DoWs2 = qw( );
-
-@AMPM = qw( );
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-sub format_d { $_[0]->[3] }
-sub format_m { $_[0]->[4] + 1 }
-sub format_o { $_[0]->[3] . '.' }
-
-sub format_Q { $MoY2[$_[0]->[4]] }
-
-sub str2time {
- my ($self,$value) = @_;
- map {$value=~s/(\s|^)$DoWs2[$_](\s)/$DoWs[$_]$2/ig} (0..6);
- $value=~s/(\s+|^)(\s+)/$1$2/;
- return $self->SUPER::str2time($value);
-}
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Russian_cp1251.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Russian_cp1251.pm
deleted file mode 100644
index cc28e6ed43a..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Russian_cp1251.pm
+++ /dev/null
@@ -1,39 +0,0 @@
-##
-## Russian cp1251
-##
-
-package Date::Language::Russian_cp1251;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.01";
-
-@DoW = qw( );
-@MoY = qw(
- );
-@DoWs = qw( );
-#@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = qw(AM PM);
-
-@Dsuf = ('e') x 31;
-#@Dsuf[11,12,13] = qw( );
-#@Dsuf[30,31] = qw( );
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-sub format_o { sprintf("%2de",$_[0]->[3]) }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Russian_koi8r.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Russian_koi8r.pm
deleted file mode 100644
index 53de8d0567b..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Russian_koi8r.pm
+++ /dev/null
@@ -1,39 +0,0 @@
-##
-## Russian koi8r
-##
-
-package Date::Language::Russian_koi8r;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.01";
-
-@DoW = qw( );
-@MoY = qw(
- );
-@DoWs = qw( );
-#@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = qw(AM PM);
-
-@Dsuf = ('e') x 31;
-#@Dsuf[11,12,13] = qw( );
-#@Dsuf[30,31] = qw( );
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-sub format_o { sprintf("%2de",$_[0]->[3]) }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Sidama.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Sidama.pm
deleted file mode 100644
index bc26d7c3f09..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Sidama.pm
+++ /dev/null
@@ -1,37 +0,0 @@
-##
-## Sidama tables
-##
-
-package Date::Language::Sidama;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "0.99";
-
-@DoW = qw(Sambata Sanyo Maakisanyo Roowe Hamuse Arbe Qidaame);
-@MoY = qw(January February March April May June
- July August September October November December);
-@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = qw(soodo hawwaro);
-
-@Dsuf = (qw(th st nd rd th th th th th th)) x 3;
-@Dsuf[11,12,13] = qw(th th th);
-@Dsuf[30,31] = qw(th st);
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Somali.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Somali.pm
deleted file mode 100644
index 5b2496170e9..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Somali.pm
+++ /dev/null
@@ -1,62 +0,0 @@
-##
-## Somali tables
-##
-
-package Date::Language::Somali;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "0.99";
-
-@DoW = qw(Axad Isniin Salaaso Arbaco Khamiis Jimco Sabti);
-@MoY = (
-"Bisha Koobaad",
-"Bisha Labaad",
-"Bisha Saddexaad",
-"Bisha Afraad",
-"Bisha Shanaad",
-"Bisha Lixaad",
-"Bisha Todobaad",
-"Bisha Sideedaad",
-"Bisha Sagaalaad",
-"Bisha Tobnaad",
-"Bisha Kow iyo Tobnaad",
-"Bisha Laba iyo Tobnaad"
-);
-@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = (
-"Kob",
-"Lab",
-"Sad",
-"Afr",
-"Sha",
-"Lix",
-"Tod",
-"Sid",
-"Sag",
-"Tob",
-"KIT",
-"LIT"
-);
-@AMPM = qw(SN GN);
-
-@Dsuf = (qw(th st nd rd th th th th th th)) x 3;
-@Dsuf[11,12,13] = qw(th th th);
-@Dsuf[30,31] = qw(th st);
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Spanish.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Spanish.pm
deleted file mode 100644
index d464ae78ad1..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Spanish.pm
+++ /dev/null
@@ -1,35 +0,0 @@
-##
-## Spanish tables
-##
-
-package Date::Language::Spanish;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.00";
-
-@DoW = qw(domingo lunes martes mircoles jueves viernes sbado);
-@MoY = qw(enero febrero marzo abril mayo junio
- julio agosto septiembre octubre noviembre diciembre);
-@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = qw(AM PM);
-
-@Dsuf = ((qw(ro do ro to to to mo vo no mo)) x 3, 'ro');
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Swedish.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Swedish.pm
deleted file mode 100644
index 8f16594ba73..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Swedish.pm
+++ /dev/null
@@ -1,41 +0,0 @@
-##
-## Swedish tables
-## Contributed by Matthew Musgrove <muskrat@mindless.com>
-## Corrected by dempa
-##
-
-package Date::Language::Swedish;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.01";
-
-@MoY = qw(januari februari mars april maj juni juli augusti september oktober november december);
-@MoYs = map { substr($_,0,3) } @MoY;
-@DoW = map($_ . "dagen", qw(sn mn tis ons tors fre lr));
-@DoWs = map { substr($_,0,2) } @DoW;
-
-# the ordinals are not typically used in modern times
-@Dsuf = ('a' x 2, 'e' x 29);
-
-use Date::Language::English ();
-@AMPM = @{Date::Language::English::AMPM};
-
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-sub format_o { sprintf("%2de",$_[0]->[3]) }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Tigrinya.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Tigrinya.pm
deleted file mode 100644
index ce4fcb3a1cb..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Tigrinya.pm
+++ /dev/null
@@ -1,58 +0,0 @@
-##
-## Tigrinya tables
-##
-
-package Date::Language::Tigrinya;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.00";
-
-@DoW = (
-"\x{1230}\x{1295}\x{1260}\x{1275}",
-"\x{1230}\x{1291}\x{12ed}",
-"\x{1230}\x{1209}\x{1235}",
-"\x{1228}\x{1261}\x{12d5}",
-"\x{1213}\x{1219}\x{1235}",
-"\x{12d3}\x{122d}\x{1262}",
-"\x{1240}\x{12f3}\x{121d}"
-);
-@MoY = (
-"\x{1303}\x{1295}\x{12e9}\x{12c8}\x{122a}",
-"\x{134c}\x{1265}\x{1229}\x{12c8}\x{122a}",
-"\x{121b}\x{122d}\x{127d}",
-"\x{12a4}\x{1355}\x{1228}\x{120d}",
-"\x{121c}\x{12ed}",
-"\x{1301}\x{1295}",
-"\x{1301}\x{120b}\x{12ed}",
-"\x{12a6}\x{1308}\x{1235}\x{1275}",
-"\x{1234}\x{1355}\x{1274}\x{121d}\x{1260}\x{122d}",
-"\x{12a6}\x{12ad}\x{1270}\x{12cd}\x{1260}\x{122d}",
-"\x{1296}\x{126c}\x{121d}\x{1260}\x{122d}",
-"\x{12f2}\x{1234}\x{121d}\x{1260}\x{122d}"
-);
-@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = (
-"\x{1295}/\x{1230}",
-"\x{12F5}/\x{1230}"
-);
-
-@Dsuf = ("\x{12ed}" x 31);
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/TigrinyaEritrean.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/TigrinyaEritrean.pm
deleted file mode 100644
index 7ab8d0fdd1e..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/TigrinyaEritrean.pm
+++ /dev/null
@@ -1,93 +0,0 @@
-##
-## Tigrinya-Eritrean tables
-##
-
-package Date::Language::TigrinyaEritrean;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.00";
-
-if ( $] >= 5.006 ) {
-@DoW = (
-"\x{1230}\x{1295}\x{1260}\x{1275}",
-"\x{1230}\x{1291}\x{12ed}",
-"\x{1230}\x{1209}\x{1235}",
-"\x{1228}\x{1261}\x{12d5}",
-"\x{1213}\x{1219}\x{1235}",
-"\x{12d3}\x{122d}\x{1262}",
-"\x{1240}\x{12f3}\x{121d}"
-);
-@MoY = (
-"\x{1303}\x{1295}\x{12e9}\x{12c8}\x{122a}",
-"\x{134c}\x{1265}\x{1229}\x{12c8}\x{122a}",
-"\x{121b}\x{122d}\x{127d}",
-"\x{12a4}\x{1355}\x{1228}\x{120d}",
-"\x{121c}\x{12ed}",
-"\x{1301}\x{1295}",
-"\x{1301}\x{120b}\x{12ed}",
-"\x{12a6}\x{1308}\x{1235}\x{1275}",
-"\x{1234}\x{1355}\x{1274}\x{121d}\x{1260}\x{122d}",
-"\x{12a6}\x{12ad}\x{1270}\x{12cd}\x{1260}\x{122d}",
-"\x{1296}\x{126c}\x{121d}\x{1260}\x{122d}",
-"\x{12f2}\x{1234}\x{121d}\x{1260}\x{122d}"
-);
-@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = (
-"\x{1295}/\x{1230}",
-"\x{12F5}/\x{1230}"
-);
-
-@Dsuf = ("\x{12ed}" x 31);
-}
-else {
-@DoW = (
-"ሰንበት",
-"ሰኑይ",
-"ሰሉስ",
-"ረቡዕ",
-"ሓሙስ",
-"ዓርቢ",
-"ቀዳም"
-);
-@MoY = (
-"ጥሪ",
-"ለካቲት",
-"መጋቢት",
-"ሚያዝያ",
-"ግንቦት",
-"ሰነ",
-"ሓምለ",
-"ነሓሰ",
-"መስከረም",
-"ጥቅምቲ",
-"ሕዳር",
-"ታሕሳስ"
-);
-@DoWs = map { substr($_,0,9) } @DoW;
-@MoYs = map { substr($_,0,9) } @MoY;
-@AMPM = (
-"ን/ሰ",
-"ድ/ሰ"
-);
-
-@Dsuf = ("ይ" x 31);
-}
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/TigrinyaEthiopian.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/TigrinyaEthiopian.pm
deleted file mode 100644
index 84fb7237c31..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/TigrinyaEthiopian.pm
+++ /dev/null
@@ -1,93 +0,0 @@
-##
-## Tigrinya-Ethiopian tables
-##
-
-package Date::Language::TigrinyaEthiopian;
-
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
-@ISA = qw(Date::Language);
-$VERSION = "1.00";
-
-if ( $] >= 5.006 ) {
-@DoW = (
-"\x{1230}\x{1295}\x{1260}\x{1275}",
-"\x{1230}\x{1291}\x{12ed}",
-"\x{1230}\x{1209}\x{1235}",
-"\x{1228}\x{1261}\x{12d5}",
-"\x{1213}\x{1219}\x{1235}",
-"\x{12d3}\x{122d}\x{1262}",
-"\x{1240}\x{12f3}\x{121d}"
-);
-@MoY = (
-"\x{1303}\x{1295}\x{12e9}\x{12c8}\x{122a}",
-"\x{134c}\x{1265}\x{1229}\x{12c8}\x{122a}",
-"\x{121b}\x{122d}\x{127d}",
-"\x{12a4}\x{1355}\x{1228}\x{120d}",
-"\x{121c}\x{12ed}",
-"\x{1301}\x{1295}",
-"\x{1301}\x{120b}\x{12ed}",
-"\x{12a6}\x{1308}\x{1235}\x{1275}",
-"\x{1234}\x{1355}\x{1274}\x{121d}\x{1260}\x{122d}",
-"\x{12a6}\x{12ad}\x{1270}\x{12cd}\x{1260}\x{122d}",
-"\x{1296}\x{126c}\x{121d}\x{1260}\x{122d}",
-"\x{12f2}\x{1234}\x{121d}\x{1260}\x{122d}"
-);
-@DoWs = map { substr($_,0,3) } @DoW;
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = (
-"\x{1295}/\x{1230}",
-"\x{12F5}/\x{1230}"
-);
-
-@Dsuf = ("\x{12ed}" x 31);
-}
-else {
-@DoW = (
-"ሰንበት",
-"ሰኑይ",
-"ሰሉስ",
-"ረቡዕ",
-"ሓሙስ",
-"ዓርቢ",
-"ቀዳም"
-);
-@MoY = (
-"ጃንዩወሪ",
-"ፌብሩወሪ",
-"ማርች",
-"ኤፕረል",
-"ሜይ",
-"ጁን",
-"ጁላይ",
-"ኦገስት",
-"ሴፕቴምበር",
-"ኦክተውበር",
-"ኖቬምበር",
-"ዲሴምበር"
-);
-@DoWs = map { substr($_,0,9) } @DoW;
-@MoYs = map { substr($_,0,9) } @MoY;
-@AMPM = (
-"ን/ሰ",
-"ድ/ሰ"
-);
-
-@Dsuf = ("ይ" x 31);
-}
-
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[$_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[$_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
-
-1;
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language/Turkish.pm b/Master/tlpkg/tlperl/site/lib/Date/Language/Turkish.pm
deleted file mode 100644
index 593e20925cf..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language/Turkish.pm
+++ /dev/null
@@ -1,59 +0,0 @@
-#----------------------------------------------------#
-#
-# Turkish tables
-# Burak Grsoy <burak@cpan.org>
-# Last modified: Sat Nov 15 20:28:32 2003
-#
-# use Date::Language;
-# my $turkish = Date::Language->new('Turkish');
-# print $turkish->time2str("%e %b %Y, %a %T\n", time);
-# print $turkish->str2time("25 Haz 1996 21:09:55 +0100");
-#----------------------------------------------------#
-
-package Date::Language::Turkish;
-use Date::Language ();
-use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION %DsufMAP);
-@ISA = qw(Date::Language);
-$VERSION = "1.0";
-
-@DoW = qw(Pazar Pazartesi Sal aramba Perembe Cuma Cumartesi);
-@MoY = qw(Ocak ubat Mart Nisan Mays Haziran Temmuz Austos Eyll Ekim Kasm Aralk);
-@DoWs = map { substr($_,0,3) } @DoW;
-$DoWs[1] = 'Pzt'; # Since we'll get two 'Paz' s
-$DoWs[-1] = 'Cmt'; # Since we'll get two 'Cum' s
-@MoYs = map { substr($_,0,3) } @MoY;
-@AMPM = ('',''); # no am-pm thingy
-
-# not easy as in english... maybe we can just use a dot "." ? :)
-%DsufMAP = (
-(map {$_ => 'inci', $_+10 => 'inci', $_+20 => 'inci' } 1,2,5,8 ),
-(map {$_ => 'nci', $_+10 => 'nci', $_+20 => 'nci' } 7 ),
-(map {$_ => 'nci', $_+10 => 'nci', $_+20 => 'nci' } 2 ),
-(map {$_ => 'nc', $_+10 => 'nc', $_+20 => 'nc' } 3,4 ),
-(map {$_ => 'uncu', $_+10 => 'uncu', $_+20 => 'uncu' } 9 ),
-(map {$_ => 'nc', $_+10 => 'nc', $_+20 => 'nc' } 6 ),
-(map {$_ => 'uncu', } 10,30 ),
- 20 => 'nci',
- 31 => 'inci',
-);
-
-@Dsuf = map{ $DsufMAP{$_} } sort {$a <=> $b} keys %DsufMAP;
-@MoY{@MoY} = (0 .. scalar(@MoY));
-@MoY{@MoYs} = (0 .. scalar(@MoYs));
-@DoW{@DoW} = (0 .. scalar(@DoW));
-@DoW{@DoWs} = (0 .. scalar(@DoWs));
-
-# Formatting routines
-
-sub format_a { $DoWs[$_[0]->[6]] }
-sub format_A { $DoW[ $_[0]->[6]] }
-sub format_b { $MoYs[$_[0]->[4]] }
-sub format_B { $MoY[ $_[0]->[4]] }
-sub format_h { $MoYs[$_[0]->[4]] }
-sub format_p { '' } # disable
-sub format_P { '' } # disable
-sub format_o { sprintf("%2d%s",$_[0]->[3],$Dsuf[$_[0]->[3]-1]) }
-
-1;
-
-__END__