OSRIC::Util::d actually does what's intended

This commit is contained in:
Alex Kerr 2015-01-27 11:27:19 +00:00
parent a66fa490a7
commit 05df6907c5

View File

@ -12,7 +12,7 @@ sub d
my $n = shift // 1; my $n = shift // 1;
my $i = 0; my $i = 0;
$i += int(rand($range)); $i += (int(rand($range)) + 1) for(1..$n);
return $i; return $i;
} }