random: small tidy

[mknos]

Variable $warnings does not vary so delete it.

%# regress1
%printf "a\nb\nc\n" | perl random 2
a
%# regress2 (exit code of zero is correct)
%for i in `perl seq 50`; do perl random -e 100; echo -n "$? "; done; echo;
74 47 57 8 58 80 23 86 60 68 89 60 8 5 51 31 39 99 66 89 9 67 96 30 48 78 48 20 39 18 96 92 12 92 3 75 38 19 57 55 0 49 25 82 43 64 56 87 25 96 

[coveralls]

Pull Request Test Coverage Report for Build 13536568028

Details

• 0 of 0 changed or added relevant lines in 0 files are covered.
• No unchanged relevant lines lost coverage.
• Overall coverage decreased (-0.7%) to 72.349%

---

Totals
Change from base Build 13523294333:	-0.7%
Covered Lines:	348
Relevant Lines:	481

---

💛 - Coveralls