Improve dice roll syntax

This commit is contained in:
Pragmatic Software 2015-12-22 17:23:38 -08:00
parent 3b8974544e
commit 51cc028920
1 changed files with 1 additions and 1 deletions

View File

@ -18,7 +18,7 @@ if($rolls =~ s/\s*-show\s*//) {
$show = 1;
}
if($rolls =~ m/^\s*(\d+)d\d+(?:\+\d+)?\s*$/) {
if($rolls =~ m/^\s*(\d+)d\d+(?:\+?-?\d+)?\s*$/) {
if($1 > 100) {
print "Sorry, maximum of 100 rolls.\n";
die;