[libanyevent-handle-udp-perl] 23/60: Stop depending on Const::Fast

[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 902f072620566234668adb829066a69a376743d0
Author: Leon Timmermans <fawaka at gmail.com>
Date:   Wed May 2 23:03:21 2012 +0200

    Stop depending on Const::Fast
---
 Changes                    |    1 +
 lib/AnyEvent/Handle/UDP.pm |    5 +----
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index 2619681..9ef2fa9 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for AnyEvent-Handle-UDP
 
 {{$NEXT}}
+          Stop depending on Const::Fast
 
 0.034     2012-04-30 23:42:57 Europe/Amsterdam
           Make push_send accept an address array too
diff --git a/lib/AnyEvent/Handle/UDP.pm b/lib/AnyEvent/Handle/UDP.pm
index 0c39a88..fe07c2d 100644
--- a/lib/AnyEvent/Handle/UDP.pm
+++ b/lib/AnyEvent/Handle/UDP.pm
@@ -9,7 +9,6 @@ use AnyEvent::Util qw/fh_nonblocking/;
 use AnyEvent::Socket qw/parse_address/;
 
 use Carp qw/croak/;
-use Const::Fast qw/const/;
 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/;
@@ -18,8 +17,6 @@ use Symbol qw/gensym/;
 
 use namespace::clean;
 
-const my $default_recv_size => 1500;
-
 has fh => (
 	is => 'ro',
 	default => sub { gensym() },
@@ -78,7 +75,7 @@ has on_error => (
 has receive_size => (
 	is => 'rw',
 	isa => sub { int $_[0] eq $_[0] },
-	default => sub { $default_recv_size },
+	default => sub { 1500 },
 );
 
 has family => (

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