#!/usr/bin/perl                  43  3  46        890          .   9 0x09
                }
        }       Config{backend_pidfile};
use strict;
        # Уходим в background, если необходимо
use l3config;
                #$Config{verbose} = "no";
use POSIX qw(:symy $pid = fork;
sub main {      exit if $pid;
sub main        die "Couldn't fork: $!" unless defined ($pid);
                                               ¾ÑÑ‚о завершаемся
main();         open(PIDFILE, ">", $Config{backend_pidfile})
        if (open        or die "Can't open pidfile ". $Config{backend_pidfile}. " for wrting: $!";
sub REAPER {
                        print "Removing stale pidfile\n";
        # Проверяем, возможно демон уже запущен
                        unlink $or die "Can't remove stale pidfile ". $Config{backend_pidfile}. " : $!";
sub process_was_killed
                }
                        print "l3-backend is already running\n";оцедура
                        exit(0);´ÐµÐ¼Ð¾Ð½Ð°
                }
         Save   3Mark   4Replac          Move   7Search