pdu-snmp: Fix sleeping

sleep takes only an integer.  We have to use select to sleep for
fractions of a second.

Signed-off-by: Ian Jackson <iwj@xenproject.org>

diff --git a/pdu-snmp b/pdu-snmp
index 61380766d5436846ae3a54a1d3e468f6f22f158b..79d22e1f83b146bc7de64991da929edd330ab804 100755 (executable)
--- a/pdu-snmp
+++ b/pdu-snmp
@@ -172,7 +172,7 @@ if (!defined $action) {
     my $retries = 0;
     for (;;) {
        set($valset);
-       sleep $retries * 0.1;
+       select undef,undef,undef, $retries * 0.1;
        print "now: "; my $got = show();
        if ($got eq $map[$valset]) { last; }
        if ($map[$valset] !~ m{^(?:off|on)$}) {