Merge branch 'master' of github.com:perl6/nqp

Raku · Nov 20, 2011 · 6ad13cc · 6ad13cc
2 parents af28c73 + 1b061e8
commit 6ad13cc
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -431,6 +431,8 @@ class QRegex::P6Regex::Actions is HLL::Actions {
                 elsif $_[1] {
                     my $ord0 := nqp::ord($_[0]);
                     my $ord1 := nqp::ord($_[1][0]);
+                    $/.CURSOR.panic("Illegal reversed character range in regex: " ~ ~$_)
+                        if $ord0 > $ord1;
                     $str := nqp::concat($str, nqp::chr($ord0++)) while $ord0 <= $ord1;
                 }
                 else { $str := $str ~ $_[0]; }