Chessa::Sharp: fix token_int

scripts/Chessa/Sharp.pm

@@ -238,7 +238,7 @@ sub token_int($self, @args) {
     $self->generic_token(
         int => qr/-?(?:0b[01]+|0o[0-7]+|0x[0-9a-f]+|[0-9]+)/i,
         sub {
-            my $str = $args[1];
+            my $str = $args[0];
             my $base = 10;
             my $sign = ( $str =~ s/^-// ) ? -1 : 1;