Bug #109573 for AnyEvent-Subprocess: warning about enum syntax; one-line patch included

use AnyEvent::Subprocess produces a warning about improper enum syntax (follows.) A one-line patch appears to resolve this (directly below.) # diff Types.pm.orig Types.pm 42c42 < enum WhenToCallBack, qw/Readable Line/; --- Show quoted text
root@husker:/usr/local/share/perl/5.18.2/AnyEvent/Subprocess# diff -up Types.pm.orig Types.pm --- Types.pm.orig 2015-11-24 07:54:37.107078755 -0500 +++ Types.pm 2015-11-24 07:54:57.359078392 -0500 @@ -39,7 +39,7 @@ coerce SubprocessCode, from ArrayRef[Str subtype CodeList, as ArrayRef[CodeRef]; coerce CodeList, from CodeRef, via { [$_] }; -enum WhenToCallBack, qw/Readable Line/; +enum WhenToCallBack, [qw/Readable Line/]; 1; $ perl -cw bin/nftDecider2.p5 Passing a list of values to enum is deprecated. Enum values should be wrapped in an arrayref. at /usr/local/share/perl/5.18.2/AnyEvent/Subprocess/Types.pm line 42. require AnyEvent/Subprocess/Types.pm called at /usr/local/share/perl/5.18.2/AnyEvent/Subprocess/Job/Delegate/Handle.pm line 12 AnyEvent::Subprocess::Job::Delegate::Handle::BEGIN() called at /usr/local/share/perl/5.18.2/AnyEvent/Subprocess/Types.pm line 0 eval {...} called at /usr/local/share/perl/5.18.2/AnyEvent/Subprocess/Types.pm line 0 require AnyEvent/Subprocess/Job/Delegate/Handle.pm called at /usr/local/share/perl/5.18.2/AnyEvent/Subprocess/DefaultDelegates.pm line 16 AnyEvent::Subprocess::DefaultDelegates::BEGIN() called at /usr/local/share/perl/5.18.2/AnyEvent/Subprocess/Types.pm line 0 eval {...} called at /usr/local/share/perl/5.18.2/AnyEvent/Subprocess/Types.pm line 0 require AnyEvent/Subprocess/DefaultDelegates.pm called at /usr/local/share/perl/5.18.2/AnyEvent/Subprocess.pm line 11 AnyEvent::Subprocess::BEGIN() called at /usr/local/share/perl/5.18.2/AnyEvent/Subprocess/Types.pm line 0 eval {...} called at /usr/local/share/perl/5.18.2/AnyEvent/Subprocess/Types.pm line 0 require AnyEvent/Subprocess.pm called at bin/nftDecider2.p5 line 5 main::BEGIN() called at /usr/local/share/perl/5.18.2/AnyEvent/Subprocess/Types.pm line 0 eval {...} called at /usr/local/share/perl/5.18.2/AnyEvent/Subprocess/Types.pm line 0 bin/nftDecider2.p5 syntax OK $ perl -v This is perl 5, version 18, subversion 2 (v5.18.2) built for x86_64-linux-gnu-thread-multi (with 41 registered patches, see perl -V for more detail) -- Jeff S Wheeler <jsw@inconcepts.biz> Sr Network Operator / Innovative Network Concepts