[SCM] Debian packaging of libanyevent-perl branch, master, updated. debian/7.040-1-10-g6c36fa7

[Xavier Guimard]

The following commit has been merged in the master branch:
commit ead578f30392b208355bb7a5477e6331a9b75ad8
Author: Xavier Guimard <x.guimard at free.fr>
Date:   Wed May 1 13:05:27 2013 +0200

    Replace hardcoded die by a warn if IO::Async::Loop::AnyEvent is in use
    
    Closes: #706453

diff --git a/debian/patches/replace-abuse-die-by-warn.patch b/debian/patches/replace-abuse-die-by-warn.patch
new file mode 100644
index 0000000..739dd7f
--- /dev/null
+++ b/debian/patches/replace-abuse-die-by-warn.patch
@@ -0,0 +1,31 @@
+Description: replace hardcoded die by a warn if IO::Async::Loop::AnyEvent is in use
+Author: Xavier Guimard <x.guimard at free.fr>
+Bug-Debian: http://bugs.debian.org/706453
+Forwarded: http://www.nntp.perl.org/group/perl.perl5.porters/2012/02/msg183037.html
+Last-Update: 2013-05-01
+
+--- a/lib/AnyEvent.pm
++++ b/lib/AnyEvent.pm
+@@ -1398,9 +1398,19 @@
+    # 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 => "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"};
++ 
++   # Debian change (Closes: #706453):
++   # Ref: * http://www.nntp.perl.org/group/perl.perl5.porters/2012/02/msg183037.html
++   #      * http://bugs.debian.org/706453
++   # 
++   # This might work so "AnyEvent::log fatal" is replaced by a warning
++
++   #AnyEvent::log fatal => "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"};
++   AnyEvent::log 5 => "IO::Async::Loop::AnyEvent detected - that module can cause some\n"
++                    . "problems with AnyEvent."
++       if exists $INC{"IO/Async/Loop/AnyEvent.pm"};
+ 
+    local $!; # for good measure
+    local $SIG{__DIE__}; # we use eval
diff --git a/debian/patches/series b/debian/patches/series
index 213d22d..8e9573a 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 fix-spelling.patch
+replace-abuse-die-by-warn.patch

-- 
Debian packaging of libanyevent-perl