Skip to content
Browse files

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

  • Loading branch information...
1 parent 942bb1c commit cfe8d43a585c770fd8d1673a72f7fc85c638120e @TimToady TimToady committed Sep 10, 2012
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 ~ ')');

0 comments on commit cfe8d43

Please sign in to comment.
Something went wrong with that request. Please try again.