From 6654ff0150ac6f55cf6db2d2b21db8dfde6f67fc Mon Sep 17 00:00:00 2001
From: Matt Simerson <matt@tnpi.net>
Date: Sat, 23 Jun 2012 23:04:50 -0400
Subject: [PATCH] TcpServer: assign default value during declaration

---
 lib/Qpsmtpd/TcpServer.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/lib/Qpsmtpd/TcpServer.pm b/lib/Qpsmtpd/TcpServer.pm
index 7215090..42dad62 100644
--- a/lib/Qpsmtpd/TcpServer.pm
+++ b/lib/Qpsmtpd/TcpServer.pm
@@ -8,7 +8,7 @@ use strict;
 
 use POSIX ();
 
-my $has_ipv6;
+my $has_ipv6 = 0;
 if (
     eval {require Socket6;} &&
     # INET6 prior to 2.01 will not work; sorry.
@@ -17,9 +17,6 @@ if (
     import Socket6;
     $has_ipv6=1;
 }
-else {
-    $has_ipv6=0;
-}
 
 sub has_ipv6 {
     return $has_ipv6;