File ddclient-3.8.1-update_nic.patch of Package ddclient

Index: ddclient
===================================================================
--- ddclient.orig
+++ ddclient
@@ -1,5 +1,4 @@
 #!/usr/bin/perl -w
-#!/usr/local/bin/perl -w
 ######################################################################
 # $Id: ddclient 130 2011-07-11 21:02:07Z wimpunk $
 #
@@ -773,7 +772,7 @@ sub update_nics {
 		foreach my $h (sort keys %config) {
 			next if $config{$h}{'protocol'} ne lc($s);
 			$examined{$h} = 1;
-			my $use = $config{$h}{'use'} || opt('use');
+			my $use = opt('use') || $config{$h}{'use'};
 			local $opt{$use} = $config{$h}{$use} if $config{$h}{$use};
 			# bug #13: we should only do this once
 			# use isn't enough, we have to save the origin to.