| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/scripts/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/scripts/testfreeze.pl |
use DivBasicF::Common;
my $zaehler = 0;
my $c = DivBasicF::Common->new("/tmp/suspend");
while (0 == 0) {
$zaehler = $zaehler + 1;
print "ZZ: " . $zaehler . " \n";
sleep 1;
if ($zaehler == 10) {
print "SUSPEND 1\n";
$c->suspend(10);
}
}