Hello community, here is the log from the commit of package perl-AnyEvent for openSUSE:Factory checked in at 2012-02-14 11:25:35 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-AnyEvent (Old) and /work/SRC/openSUSE:Factory/.perl-AnyEvent.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-AnyEvent", Maintainer is "[email protected]" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-AnyEvent/perl-AnyEvent.changes 2011-11-21 12:35:39.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-AnyEvent.new/perl-AnyEvent.changes 2012-02-14 11:25:37.000000000 +0100 @@ -1,0 +2,21 @@ +Fri Feb 10 22:59:49 UTC 2012 - [email protected] + +- updated to 6.14 + - AnyEvent::Impl::Tk was broken due to a mysterious "die" inside, + probably an editing mistake (reported by Darin McBride). + - AnyEvent::Util::fork_call checked for POSIX availability in the wrong way, + causing it to fail if POSIX wasn't loaded already (analysed by Rock Power). + - AnyEvent::Handle::push_read (line => did pass $1 directly, so + regex-matching inside the callback would change the parameter, despite + $1 being dynamically scoped per-block. this perl bug is now being + worked around (testcase by Cindy Wang). + - $! was clobbered by subsequent calls in tcp_connect, due to + the postpone not saving/restoring it (analyzed by Richard Garnish). + - Tk cannot create windows when tainted unless you set a title, so + set a dummy title for AnyEvent's dummy mainwindow. How dummy. + - escape any nonprintable/nonascii characters when stringifying + backtraces. + - log the reason loading an interface module fails to load at level debug. + + +------------------------------------------------------------------- Old: ---- AnyEvent-6.1.tar.gz New: ---- AnyEvent-6.14.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-AnyEvent.spec ++++++ --- /var/tmp/diff_new_pack.7Ajwxt/_old 2012-02-14 11:25:38.000000000 +0100 +++ /var/tmp/diff_new_pack.7Ajwxt/_new 2012-02-14 11:25:38.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-AnyEvent # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -16,15 +16,14 @@ # - Name: perl-AnyEvent -Version: 6.1 -Release: 1 -License: GPL-1.0+ or Artistic-1.0 +Version: 6.14 +Release: 0 %define cpan_name AnyEvent -Summary: DBI of event loop programming -Url: http://search.cpan.org/dist/AnyEvent/ +Summary: The DBI of event loop programming +License: GPL-1.0+ or Artistic-1.0 Group: Development/Libraries/Perl +Url: http://search.cpan.org/dist/AnyEvent/ Source: http://www.cpan.org/authors/id/M/ML/MLEHMANN/%{cpan_name}-%{version}.tar.gz BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl @@ -61,7 +60,6 @@ #BuildRequires: perl(Qt::slots) #BuildRequires: perl(Socket6) #BuildRequires: perl(Tk) -%if 0%{?suse_version} > 1010 Recommends: perl(Async::Interrupt) >= 1 Recommends: perl(EV) >= 4 Recommends: perl(Guard) >= 1.02 @@ -69,7 +67,6 @@ Recommends: perl(JSON::XS) >= 2.2 Recommends: perl(Net::SSLeay) >= 1.33 Recommends: perl(Task::Weaken) -%endif %{perl_requires} %description ++++++ AnyEvent-6.1.tar.gz -> AnyEvent-6.14.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-6.1/Changes new/AnyEvent-6.14/Changes --- old/AnyEvent-6.1/Changes 2011-10-04 19:44:34.000000000 +0200 +++ new/AnyEvent-6.14/Changes 2012-01-31 20:00:51.000000000 +0100 @@ -3,6 +3,29 @@ TODO: document TCP_*** constants TODO: add debug/trace logging to some modules +6.14 Tue Jan 31 20:00:24 CET 2012 + - AnyEvent::Impl::Tk was broken due to a mysterious "die" inside, + probably an editing mistake (reported by Darin McBride). + +6.13 Thu Jan 12 07:27:01 CET 2012 + - AnyEvent::Util::fork_call checked for POSIX availability in the wrong way, + causing it to fail if POSIX wasn't loaded already (analysed by Rock Power). + - AnyEvent::Handle::push_read (line => did pass $1 directly, so + regex-matching inside the callback would change the parameter, despite + $1 being dynamically scoped per-block. this perl bug is now being + worked around (testcase by Cindy Wang). + +6.12 Mon Dec 12 13:21:10 CET 2011 + - $! was clobbered by subsequent calls in tcp_connect, due to + the postpone not saving/restoring it (analyzed by Richard Garnish). + +6.11 Tue Nov 22 10:36:05 CET 2011 + - Tk cannot create windows when tainted unless you set a title, so + set a dummy title for AnyEvent's dummy mainwindow. How dummy. + - escape any nonprintable/nonascii characters when stringifying + backtraces. + - log the reason loading an interface module fails to load at level debug. + 6.1 Tue Oct 4 19:44:30 CEST 2011 - INCOMPATIBLE CHANGE: the default log level is now "4" (error and above), and some messages inside AnyEvent have been elevated diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-6.1/META.json new/AnyEvent-6.14/META.json --- old/AnyEvent-6.1/META.json 2011-10-04 19:44:47.000000000 +0200 +++ new/AnyEvent-6.14/META.json 2012-01-31 20:03:06.000000000 +0100 @@ -44,5 +44,5 @@ } }, "release_status" : "stable", - "version" : "6.1" + "version" : "6.14" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-6.1/META.yml new/AnyEvent-6.14/META.yml --- old/AnyEvent-6.1/META.yml 2011-10-04 19:44:47.000000000 +0200 +++ new/AnyEvent-6.14/META.yml 2012-01-31 20:03:06.000000000 +0100 @@ -26,4 +26,4 @@ Net::SSLeay: 1.33 Task::Weaken: 0 requires: {} -version: 6.1 +version: 6.14 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-6.1/lib/AE.pm new/AnyEvent-6.14/lib/AE.pm --- old/AnyEvent-6.1/lib/AE.pm 2011-08-18 00:12:59.000000000 +0200 +++ new/AnyEvent-6.14/lib/AE.pm 2011-10-06 01:12:04.000000000 +0200 @@ -28,11 +28,11 @@ # called when event loop idle (if applicable) my $w = AE::idle sub { ... }; - my $w = AE::cv; # stores whether a condition was flagged - $w->send; # wake up current and all future recv's - $w->recv; # enters "main loop" till $condvar gets ->send + my $cv = AE::cv; # stores whether a condition was flagged + $cv->send; # wake up current and all future recv's + $cv->recv; # enters "main loop" till $condvar gets ->send # use a condvar in callback mode: - $w->cb (sub { $_[0]->recv }); + $cv->cb (sub { $_[0]->recv }); =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-6.1/lib/AnyEvent/Debug.pm new/AnyEvent-6.14/lib/AnyEvent/Debug.pm --- old/AnyEvent-6.1/lib/AnyEvent/Debug.pm 2011-10-04 17:34:56.000000000 +0200 +++ new/AnyEvent-6.14/lib/AnyEvent/Debug.pm 2011-11-12 04:35:02.000000000 +0100 @@ -693,6 +693,11 @@ $rpath = (AnyEvent::Debug::path2mod $$rpath) . " line $line"; $modlen = length $rpath if $modlen < length $rpath; + $sub =~ s/\r/\\r/g; + $sub =~ s/\n/\\n/g; + $sub =~ s/([\x00-\x1f\x7e-\xff])/sprintf "\\x%02x", ord $1/ge; + $sub =~ s/([^\x20-\x7e])/sprintf "\\x{%x}", ord $1/ge; + push @bt, [$rpath, $sub]; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-6.1/lib/AnyEvent/Handle.pm new/AnyEvent-6.14/lib/AnyEvent/Handle.pm --- old/AnyEvent-6.1/lib/AnyEvent/Handle.pm 2011-09-26 13:26:37.000000000 +0200 +++ new/AnyEvent-6.14/lib/AnyEvent/Handle.pm 2012-01-10 14:43:07.000000000 +0100 @@ -1478,7 +1478,7 @@ sub { $_[0]{rbuf} =~ s/^([^\015\012]*)(\015?\012)// or return; - $cb->($_[0], $1, $2); + $cb->($_[0], "$1", "$2"); 1 } } else { @@ -1488,7 +1488,7 @@ sub { $_[0]{rbuf} =~ s/$eol// or return; - $cb->($_[0], $1, $2); + $cb->($_[0], "$1", "$2"); 1 } } @@ -1794,7 +1794,7 @@ during a rehandshake. As a guideline, during the initial handshake, you should not stop reading, -and as a client, it might cause problems, depending on your applciation. +and as a client, it might cause problems, depending on your application. =cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-6.1/lib/AnyEvent/Impl/Tk.pm new/AnyEvent-6.14/lib/AnyEvent/Impl/Tk.pm --- old/AnyEvent-6.1/lib/AnyEvent/Impl/Tk.pm 2011-08-14 03:16:43.000000000 +0200 +++ new/AnyEvent-6.14/lib/AnyEvent/Impl/Tk.pm 2012-01-31 20:01:09.000000000 +0100 @@ -55,7 +55,7 @@ use AnyEvent (); BEGIN { AnyEvent::common_sense } use Tk (); -our $mw = new MainWindow; +our $mw = new MainWindow -title => "AnyEvent Dummy Window"; $mw->withdraw; END { undef $mw } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-6.1/lib/AnyEvent/Socket.pm new/AnyEvent-6.14/lib/AnyEvent/Socket.pm --- old/AnyEvent-6.1/lib/AnyEvent/Socket.pm 2011-09-05 07:50:49.000000000 +0200 +++ new/AnyEvent-6.14/lib/AnyEvent/Socket.pm 2011-12-12 13:20:19.000000000 +0100 @@ -973,10 +973,12 @@ $state{next} = sub { return unless exists $state{fh}; + my $errno = $!; my $target = shift @target or return AE::postpone { return unless exists $state{fh}; %state = (); + $! = $errno; $connect->(); }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-6.1/lib/AnyEvent/Util.pm new/AnyEvent-6.14/lib/AnyEvent/Util.pm --- old/AnyEvent-6.1/lib/AnyEvent/Util.pm 2011-09-26 13:31:41.000000000 +0200 +++ new/AnyEvent-6.14/lib/AnyEvent/Util.pm 2012-01-12 07:25:05.000000000 +0100 @@ -224,7 +224,7 @@ sub _fork_schedule; sub _fork_schedule { require Storable unless $Storable::VERSION; - require POSIX unless $Storable::VERSION; + require POSIX unless $POSIX::VERSION; while ($forks < $MAX_FORKS) { my $job = shift @fork_queue diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/AnyEvent-6.1/lib/AnyEvent.pm new/AnyEvent-6.14/lib/AnyEvent.pm --- old/AnyEvent-6.1/lib/AnyEvent.pm 2011-10-04 19:44:40.000000000 +0200 +++ new/AnyEvent-6.14/lib/AnyEvent.pm 2012-01-31 20:02:37.000000000 +0100 @@ -1235,7 +1235,7 @@ use Carp (); -our $VERSION = '6.1'; +our $VERSION = '6.14'; our $MODEL; our @ISA; our @REGISTRY; @@ -1397,8 +1397,8 @@ # the author knows about the problems and what it does to AnyEvent as a whole # (and the ability of others to use AnyEvent), but simply wants to abuse AnyEvent # anyway. - AnyEvent::log fatal => "AnyEvent: IO::Async::Loop::AnyEvent detected - this module is broken by design,\n" - . "abuses internals and breaks AnyEvent, will not continue." + AnyEvent::log fatal => "AnyEvent: IO::Async::Loop::AnyEvent detected - that module is broken by\n" + . "design, abuses internals and breaks AnyEvent - will not continue." if exists $INC{"IO/Async/Loop/AnyEvent.pm"}; local $!; # for good measure @@ -1434,6 +1434,8 @@ AnyEvent::log 7 => "autodetected model '$model', using it."; $MODEL = $model; last; + } else { + AnyEvent::log 8 => "detected event loop $package, but cannot load '$model', skipping: $@"; } } } -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
