From 5eba4c66994b64461b09469c3547af1f3525ea8a Mon Sep 17 00:00:00 2001
From: Wim Vinckier <wimpunk@gmail.com>
Date: Mon, 28 Oct 2013 22:37:44 +0100
Subject: [PATCH] preventing deep sleep - see [bugs:#46]

Fixing [bugs:#46] by applying the provided patch.
---
 ddclient | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/ddclient b/ddclient
index c2cc43b..81b19cc 100755
--- a/ddclient
+++ b/ddclient
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 #!/usr/local/bin/perl -w
 ######################################################################
-# $Id: ddclient 153 2013-07-08 13:20:35Z wimpunk $
+# $Id: ddclient 154 2013-10-28 21:37:16Z wimpunk $
 #
 # DDCLIENT - a Perl client for updating DynDNS information
 #
@@ -20,7 +20,7 @@ use Getopt::Long;
 use Sys::Hostname;
 use IO::Socket;
 
-my ($VERSION) = q$Revision: 153 $ =~ /(\d+)/;
+my ($VERSION) = q$Revision: 154 $ =~ /(\d+)/;
 
 my $version  = "3.8.0-r". $VERSION;
 my $programd  = $0; 
@@ -733,6 +733,10 @@ do {
 
 		$0 = sprintf("%s - sleeping for %s seconds", $program, $left);
         	$left -= sleep $delay;
+		# preventing deep sleep - see [bugs:#46]
+		if ($left > $daemon) {
+			$left = $daemon;
+		}
 	}
 	$caught_hup = 0;
 	$result = 0;