scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-10-31 02:38:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

LANforge/Utils adds sleep_ms() sleep_sec() functions that use select()

Browse Source
This commit is contained in:
Jed Reynolds
2020-02-11 14:30:03 -08:00
parent a47c2b65cb
commit e460315b80
1 changed files with 36 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
LANforge/Utils.pm
View File

@@ -349,6 +349,42 @@ sub fmt_cmd {
return $rv; return $rv;
} }
##
## Check if usleep() exists
##
our $has_usleep = 0;
if (defined &usleep) {
print("I see usleep\n");
$LANforge::Utils::has_usleep=1;
}
sub sleep_ms {
my ($millis) = @_;
return if (!(defined $millis) || ($millis == 0));
my $secs = $millis / 1000;
if ($LANforge::Utils::has_usleep) {
usleep($millis);
}
else {
select(undef, undef, undef, $secs);
}
}
sub sleep_sec {
my ($secs) = @_;
return if (!(defined $secs) || ($secs == 0));
if ($LANforge::Utils::has_usleep) {
usleep($secs);
}
else {
select(undef, undef, undef, $secs);
}
}
1; # So the require or use succeeds (perl stuff) 1; # So the require or use succeeds (perl stuff)
__END__ __END__