-my $_last_time;
-my $_last_occurs;
-
-sub _gen_time
-{
- if (!$_last_time || $_last_time != $main::systime) {
- $_last_time = $main::systime;
- $_last_occurs = 0;
- return $_last_time;
- } else {
- $_last_occurs++;
- return sprintf "$_last_time.%02d", $_last_occurs;
- }
-}