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

diakopter · diakopter · commit 6ad13cc0a23f · 2011-11-20T03:55:06.000-08:00
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]; }

Original file line number	Diff line number	Diff line change
`@@ -431,6 +431,8 @@ class QRegex::P6Regex::Actions is HLL::Actions {`
`431`	`431`	`elsif $_[1] {`
`432`	`432`	`my $ord0 := nqp::ord($_[0]);`
`433`	`433`	`my $ord1 := nqp::ord($_[1][0]);`
	`434`	`+ $/.CURSOR.panic("Illegal reversed character range in regex: " ~ ~$_)`
	`435`	`+ if $ord0 > $ord1;`
`434`	`436`	`$str := nqp::concat($str, nqp::chr($ord0++)) while $ord0 <= $ord1;`
`435`	`437`	`}`
`436`	`438`	`else { $str := $str ~ $_[0]; }`