View | Details | Raw Unified | Return to bug 19463
Collapse All | Expand All

(-)a/t/lib/TestBuilder.pm (-2 / +2 lines)
Lines 438-444 sub _gen_text { Link Here
438
    my $regex = $size > 1
438
    my $regex = $size > 1
439
        ? '[A-Za-z][A-Za-z0-9_]{'.($size-1).'}'
439
        ? '[A-Za-z][A-Za-z0-9_]{'.($size-1).'}'
440
        : '[A-Za-z]';
440
        : '[A-Za-z]';
441
    my $random = String::Random->new( max => $size, rand_gen => \&alt_rand );
441
    my $random = String::Random->new( rand_gen => \&alt_rand );
442
    # rand_gen is only supported from 0.27 onward
442
    return $random->randregex($regex);
443
    return $random->randregex($regex);
443
}
444
}
444
445
445
- 

Return to bug 19463