Про коммунивер

[nataraj]

sub check_self {
  unless (sysopen FLAG, $lock_file, O_RDWR|O_CREAT|O_EXCL) {

    # read PID
    my $pid='';
    if (open FLAG, $lock_file) {
      $pid = ;
      close FLAG;
    }
    unless ($pid =~ m/(\d+)/) {
      &errprint ("can't read lock-file ($lock_file) of another $daemon_name: $!");
#FIXME
#Вот тут сомнительное место. Не получится ли так, что по какой-то причине неполучится ни создать новый, ни 
# прочитать старый pid-файл и демон будет отрублен... а этого никто не заметит первое время?
      return "pid:$pid";

Да, бля, получится. Мы, бля, целых два года, бля, этого, бля, не замечали, я, бля, не понимаю как оно, бля вообще работало, нахуй, бля! Пидоры недоебанные, блядь!

Все, в пизду, коммунивер, пойду в ванную...