Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

don't translate ${0} to ${-1}, GlitchMr++

  • Loading branch information...
commit cfe8d43a585c770fd8d1673a72f7fc85c638120e 1 parent 942bb1c
@TimToady TimToady authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  STD.pm6
View
2  STD.pm6
@@ -2354,7 +2354,7 @@ grammar P6 is STD {
my $sigil = $<sigil>.Str;
my $text = $<text>.Str;
my $bad = $sigil ~ '{' ~ $text ~ '}';
- $text = $text - 1 if $text ~~ /^\d+$/;
+ $text = $text - 1 if $text ~~ /^\d+$/ and $text > 0;
if $text !~~ /^(\w|\:)+$/ {
return () if $*QSIGIL;
$¢.obs($bad, $sigil ~ '(' ~ $text ~ ')');
Please sign in to comment.
Something went wrong with that request. Please try again.