Browse Source

Sort dependencies.

tags/1.0.0
Vsevolod Stakhov 9 years ago
parent
commit
5efd0c7fe5
1 changed files with 2 additions and 4 deletions
  1. 2
    4
      utils/redirector.pl.in

+ 2
- 4
utils/redirector.pl.in View File

@@ -16,23 +16,21 @@ use strict;

use POSIX qw(strftime);
use HTTP::Request::Common qw(GET POST);
use HTTP::Response;
use URI::Escape qw(uri_unescape);
use Sys::Syslog qw/:standard :macros setlogsock/;
use HTTP::Response;
use HTML::HeadParser;
use Digest;
use Proc::Daemon;
use Proc::PidUtil;

use POE qw(@POE_LOOP@ Component::Server::TCP Filter::HTTPD Component::Client::HTTP);
use Cache::Memcached::Fast;

my $with_swf = 1;
my $swf_parser;
my $saved_swf_url = "";
eval "require SWF::Element" or $with_swf = 0; # p5-SWF-File

require Cache::Memcached::Fast;

my $DEBUG = grep { $_ eq '-debug' } @ARGV;

our %cfg = (

Loading…
Cancel
Save