in reply to Legacy code uses "srand()" .. how to avoid losing entropy?
BEGIN{ *CORE::GLOBAL::srand= sub(;$){}; } [download]
- tye