[libanyevent-handle-udp-perl] 24/60: Make dependency on Sub::Name optional

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libanyevent-handle-udp-perl.

commit 7624641f588900723bcd7a6d393d70a110b6d1d3
Author: Leon Timmermans <fawaka at gmail.com>
Date:   Wed May 2 23:04:56 2012 +0200

    Make dependency on Sub::Name optional
---
 Changes                    |    1 +
 dist.ini                   |    3 +++
 lib/AnyEvent/Handle/UDP.pm |    4 +++-
 3 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 9ef2fa9..99b63ef 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for AnyEvent-Handle-UDP
 
 {{$NEXT}}
+          Make dependency on Sub::Name optional
           Stop depending on Const::Fast
 
 0.034     2012-04-30 23:42:57 Europe/Amsterdam
diff --git a/dist.ini b/dist.ini
index 1adc899..dfcbb03 100644
--- a/dist.ini
+++ b/dist.ini
@@ -6,3 +6,6 @@ copyright_year   = 2011
 
 [@LEONT::PP]
 target = v5.8
+AutoPrereqs.skips = ^Sub::Name$
+[Prereqs / RuntimeRecommends]
+Sub::Name = 0
diff --git a/lib/AnyEvent/Handle/UDP.pm b/lib/AnyEvent/Handle/UDP.pm
index fe07c2d..1630e0f 100644
--- a/lib/AnyEvent/Handle/UDP.pm
+++ b/lib/AnyEvent/Handle/UDP.pm
@@ -12,9 +12,11 @@ use Carp qw/croak/;
 use Errno qw/EAGAIN EWOULDBLOCK EINTR ETIMEDOUT/;
 use Scalar::Util qw/reftype looks_like_number weaken/;
 use Socket qw/SOL_SOCKET SO_REUSEADDR SOCK_DGRAM INADDR_ANY/;
-use Sub::Name;
 use Symbol qw/gensym/;
 
+BEGIN {
+	*subname = eval { require Sub::Name } ? \&Sub::Name::subname : sub { $_[1] };
+}
 use namespace::clean;
 
 has fh => (

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libanyevent-handle-udp-perl.git