[systemd-devel] How to set time from Perl

[Richard Maw]

On Mon, Sep 07, 2015 at 04:23:42PM +0200, Manuel Reimer wrote:
> Hello,
> 
> if I run the following code on an intel based platform, then I don't
> have any problems:
> 
>   use Net::DBus;
>   my $bus = Net::DBus->system();
>   my $logind = $bus->get_service('org.freedesktop.timedate1');
>   my $manager = $logind->get_object('/org/freedesktop/timedate1',
>                                     'org.freedesktop.timedate1');
>   $manager->SetTime($time * 1000000, 0, 0);
> 
> The variable "$time" is in seconds.
> 
> If I run this to an ARM based system, then I get the folowing time:
> 
>   # date
>   Thu Jan  1 01:00:02 CET 1970
> 
> Does someone have an idea why this doesn't work?

Is this a 64-bit intel platform and a 32-bit ARM system?
If so see https://github.com/systemd/systemd/issues/1143.