Time::HiRes::sleep: use (;$) prototype, like CORE::sleep

[mauke]

Time::HiRes::sleep is supposed to be a drop-in replacement for CORE::sleep, but before this patch Time::HiRes::sleep had no prototype, leading to the following incompatibilities:

CORE::sleep(1, "foo", "bar");  # syntax error
Time::HiRes::sleep(1, "foo", "bar");  # OK, ignores all but 1st argument

my @t = 42;
CORE::sleep @t;  # sleeps for one second (number of elements in @t)
Time::HiRes::sleep @t;  # sleeps for 42 seconds (@t in list context)

CORE::sleep 1, next if $foo;
# if $foo, then sleep for one second and start next loop iteration

Time::HiRes::sleep 1, next if $foo;
# parses as: Time::HiRes::sleep(1, next) if $foo;
# if $foo, then start next loop iteration; no delay

Fixes #23628.

---

• This set of changes requires a perldelta entry, and it is included.