1. Download source package for perl for Debian/Sid from http://packages.debian.org/sid/perl.
2. cd into directory which contains sources and unpack them using

   dpkg-source -x perl_5.10.1-8.dsc
   

3. cd into perl-5.10.1 directory created as result of previous operation
4. build package using

   dpkg-buildpackage
   

5. dpkg-buildpackage may fail because of unsatisfied build dependencies, in this case you should install these dependencies and try to build again.
6. after successful build you can find packages for the latest Perl in the same directory as the source package. Install them using

   dpkg -i ...

   command. Here some problems are possible if some package requires 5.10.0 and doesn’t want 5.10.1. In my case that was only dh-make-perl, which I removed and reinstalled later as ordinary Perl module. You should somehow solve such problems. It is good idea to have native Perl packages available, so if you fail, you could easily restore original configuration.

7. check perl version

   perl -V

#!/usr/bin/perl
# Preforking TCP Echo server

use strict;
use warnings;

use POE qw(Component::Daemon Wheel::SocketFactory Wheel::ReadWrite);

POE::Component::Daemon->spawn(
    detach         => 0,
    max_children   => 5,
    start_children => 3,
    requests       => 3
);

POE::Session->create(
    inline_states => {
        _start => sub {
            warn "Starting daemon\n";
            $_[KERNEL]->sig( 'daemon_child'    => 'on_child_started' );
            $_[KERNEL]->sig( 'daemon_shutdown' => 'on_shutdown' );

            # Creating server socket and pausing factory
            $_[HEAP]{server} = POE::Wheel::SocketFactory->new(
                BindPort     => 7654,
                SuccessEvent => "on_client_accept",
                FailureEvent => "on_socket_error",
            );
            $_[HEAP]{server}->pause_accept;
        },

        # Invoked in child just after start
        on_child_started => sub {
            warn "Worker process $$ has started\n";
            Daemon->update_status('wait');
            $_[KERNEL]->sig( 'daemon_accept' => 'on_daemon_accept' );
        },

        # This child is ready to accept new request
        on_daemon_accept => sub {
            warn "Process $$ awaiting for requests\n";
            $_[HEAP]{server}->resume_accept;
        },

        # New client connection accepted
        on_client_accept => sub {
            warn "Process $$ accepted new connection\n";

            # pause SocketFactory, so no new connection will
            # be accepted till we finish serving this one
            $_[HEAP]{server}->pause_accept;

            # Inform Daemon that we're busy
            Daemon->update_status('req');

            # Creating ReadWrite wheel for connection
            my $io_wheel = POE::Wheel::ReadWrite->new(
                Handle     => $_[ARG0],
                InputEvent => "on_client_input",
                ErrorEvent => "on_client_error",
            );
            $_[HEAP]{client}{ $io_wheel->ID() } = $io_wheel;
        },

        # Received data from client
        on_client_input => sub {
            my ( $input, $wheel_id ) = @_[ ARG0, ARG1 ];

            # Just send it back
            $_[HEAP]{client}{$wheel_id}->put($input);
        },

        # Client disconnected or connection error
        on_client_error => sub {
            warn "Process $$ has finished to serve a client\n";
            my $wheel_id = $_[ARG3];
            delete $_[HEAP]{client}{$wheel_id};
            Daemon->update_status('done');
        },

        # This process should exit
        on_shutdown => sub {
            warn "Process $$ is shutting down\n";
            exit;
        },

        # Problem with listening socket
        on_socket_error => sub {
            warn "Socket error!\n";
            Daemon->shutdown;
        },
    }
);

POE::Kernel->run();
exit;

** (gvim:5944): CRITICAL **: gtk_form_set_static_gravity: assertion `static_gravity_supported' failed

That’s rather annoying. The bug and the fix were known before release, but package is still not fixed. In order to fix the problem this patch should be applied.

Packages with patch applied: sources, i386, amd64

synclient RTCornerButton=2 TapButton2=2 TapButton3=3