Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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

  • Loading branch information...
commit cfe8d43a585c770fd8d1673a72f7fc85c638120e 1 parent 942bb1c
Larry Wall authored September 10, 2012

Showing 1 changed file with 1 addition and 1 deletion. Show diff stats Hide diff stats

  1. 2  STD.pm6
2  STD.pm6
@@ -2354,7 +2354,7 @@ grammar P6 is STD {
2354 2354
             my $sigil = $<sigil>.Str;
2355 2355
             my $text = $<text>.Str;
2356 2356
             my $bad = $sigil ~ '{' ~ $text ~ '}';
2357  
-            $text = $text - 1 if $text ~~ /^\d+$/;
  2357
+            $text = $text - 1 if $text ~~ /^\d+$/ and $text > 0;
2358 2358
             if $text !~~ /^(\w|\:)+$/ {
2359 2359
                 return () if $*QSIGIL;
2360 2360
                 $¢.obs($bad, $sigil ~ '(' ~ $text ~ ')');

0 notes on commit cfe8d43

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