Commit fa78dce0 authored by Luc Didry's avatar Luc Didry

Fix #10

parent c8ad7dcb
Pipeline #10303 passed with stage
in 4 minutes and 34 seconds
......@@ -127,7 +127,7 @@ sub startup {
my $c = shift;
my $length = shift;
my @chars = ('a'..'z','A'..'Z','0'..'9', '-', '_');
my @chars = ('a'..'h', 'j', 'k', 'm'..'z','A'..'H', 'J'..'N', 'P'..'Z','0'..'9', '-', '_');
my $result = '';
foreach (1..$length) {
$result .= $chars[rand scalar(@chars)];
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment