Package: perl Version: 5.12.4-1 Severity: normal --- Please enter the report below this line. ---
--- System information. --- Architecture: i386 Kernel: Linux 2.6.39-2-686-pae Debian Release: wheezy/sid 500 unstable mirrors.sohu.com --- Package information. --- Depends (Version) | Installed ====================================-+-==================== perl-base (= 5.12.4-1) | 5.12.4-1 perl-modules (>= 5.12.4-1) | 5.12.4-1 libbz2-1.0 | 1.0.5-6 libc6 (>= 2.4) | 2.13-8 libdb5.1 | 5.1.25-11 libgdbm3 (>= 1.8.3) | 1.8.3-10 zlib1g (>= 1:1.2.3.3.dfsg) | 1:1.2.3.4.dfsg-3 Recommends (Version) | Installed =========================-+-=========== netbase | 4.46 Suggests (Version) | Installed =========================================-+-=========== perl-doc | 5.12.4-1 libterm-readline-gnu-perl | 1.20-1+b1 OR libterm-readline-perl-perl | make | 3.81-8.1 [source] use strict; use warnings; use diagnostics; use Modern::Perl; use AnyEvent; my $cv = AnyEvent->condvar; my $count = 0; my $w; $w = AnyEvent->timer( after => 1, interval => 2, cb => sub { $count++; warn "\$count = $count"; if ($count >= 10) { undef $w; say "exiting...\n"; exit; } ); $cv->recv; -- To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org