diff options
Diffstat (limited to 'mdkapplet_gui.pm')
| -rw-r--r-- | mdkapplet_gui.pm | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/mdkapplet_gui.pm b/mdkapplet_gui.pm index cc416977..2a55b88b 100644 --- a/mdkapplet_gui.pm +++ b/mdkapplet_gui.pm @@ -25,7 +25,6 @@ package mdkapplet_gui; use strict; use lib qw(/usr/lib/libDrakX); use common; -use DateTime; our @ISA = qw(Exporter); our @EXPORT = qw( @@ -127,10 +126,6 @@ sub setVar { sub iso8601_date_to_locale { my ($date) = @_; return $date if $date !~ /(\d\d\d\d)-?(\d\d)-?(\d\d)/; - my $dt = DateTime->new(year => $1, month => $2, day => $3); - my $date1 = $dt->strftime("%x"); - # will fail on some locales (eg: br_FR, ...): - eval { $dt->set_locale($ENV{LC_TIME}) }; - my $date2 = $dt->strftime("%x"); - $date2 || $date1; + strftime("%x", 0, 0, 0, $3, $2, $1-1900); } + |