pintos: Avoid literal control character in Perl variable name.

[pintos-anon] / src / tests / random.pm

use strict;
use warnings;

use tests::arc4;

my (@arc4);

sub random_init {
    if (@arc4 == 0) {
        my ($seed) = @_;
        $seed = 0 if !defined $seed;
        @arc4 = arc4_init (pack ("V", $seed));
    }
}

sub random_bytes {
    random_init ();
    my ($n) = @_;
    return arc4_crypt (\@arc4, "\0" x $n);
}

sub random_ulong {
    random_init ();
    return unpack ("V", random_bytes (4));
}

1;