File: replace-abuse-die-with-warn.patch

package info (click to toggle)
libanyevent-perl 7.130-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 2,004 kB
  • ctags: 758
  • sloc: perl: 6,610; sh: 112; makefile: 10
file content (20 lines) | stat: -rw-r--r-- 966 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Description: replace hardcoded die by a warn if IO::Async::Loop::AnyEvent is in use
Author: Xavier Guimard <x.guimard@free.fr>
Bug-Debian: https://bugs.debian.org/706453
Forwarded: http://www.nntp.perl.org/group/perl.perl5.porters/2012/02/msg183037.html
Last-Update: 2016-10-19

--- a/lib/AnyEvent.pm
+++ b/lib/AnyEvent.pm
@@ -1440,7 +1440,10 @@
    # 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"
+   #
+   # Debian change (see README.Debian):
+   # "AnyEvent::log fatal" is relaced by "AnyEvent::log 5"
+   AnyEvent::log 5 => "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"};