2021-01-04T08:32:06 bianca

Würde mir Sicherheit geben, wenn du/ihr mal drauf schaut und mir deine/eure Meinung sag(s)t. Danach wäre das dann auch vorerst mal gelöst (umgangen, verbastelt wie auch immer).

1
2
3
4
5
6

   
    my @epoch = localtime $stat9;
....
    if ($^O =~ /mswin/i && $epoch[8] == 1) {
       @epoch = Date::Calc::Add_Delta_DHMS(@epoch[0..5],0,1,0,0);
   ...;

• Zuerst wandelst Du das stat-Ergebnis in localtime. Das sollte schon eine Sommerzeit-Korrektur anhand der auf dem System eingestellten (!) Zeitzone erledigen.
• Dann addierst Du nochmal genau eine Stunde, wenn das Datum in die Sommerzeit fiel, wohl in der Annahme, das Ergebnis von stat sei in diesem Fall fehlerhaft. Warum addierst Du dann so kompliziert im "ausformulierten" Datum und nicht gleich bei $stat9?
• Das Element $epoch[8] ist laut Dokumentation als "true" definiert und nicht als exakt 1. Ein sicherer Vergleich wäre if ($^O =~ /mswin/i && $epoch[8])
• Auch dann erscheint mir das $^O =~ /mswin/i recht fragil, nachdem es nicht klar ist, ob es wirklich am Betriebssystem oder an der C-Library hängt.