Help for this page

Select Code to Download


  1. or download this
    foreach (@config) {
        next unless /^(\b)\s+(\b)\s+(\b)/;
        my $file = $1;
        my $versions = $2;
        my $pidfile = $3;
  2. or download this
         Gzip  => 'lib',
     Post   => sub{
...
     kill("HUP", $appid); },
     Dir    => '/var/log/old',
     Flock  => 'yes',
  3. or download this
         File   => $file,
     Count  => $versions,
...
               },
     Dir    => '/var/log/old',
     Flock  => 'yes',
  4. or download this
            if (defined $log) { print "Looks ok..\n";
        } else {
...
        $log->rotate();
        undef $log;
}
  5. or download this
        defined $log or die "An error accured processing config data\n";
    print "Looks ok..\n";
    $log->rotate();
}