Permalink
Browse files

Comment out split() function for now; it causes the Parrot build to fail

(during the building of opsc).  We can restore split() when the conflict
is repaired.
  • Loading branch information...
1 parent 29ce78f commit 5349f1795fb2dd7420a41be28c9d192c10cfb059 @pmichaud pmichaud committed Sep 1, 2010
Showing with 24 additions and 24 deletions.
  1. +24 −24 src/setting/Regex.pm
  2. 0 t/setting/{04-regex.t → 04-regex.t.skip}
View
@@ -60,30 +60,30 @@ our sub subst ($text, $regex, $repl, :$global?) {
Splits C<$text> on occurences of C<$regex>
=end item
-our sub split ($regex, $text) {
- my $pos := 0;
- my @result;
- my $looking := 1;
- while $looking {
- my $match :=
- Regex::Cursor.parse($text, :rule($regex), :c($pos)) ;
-
- if ?$match {
- my $from := $match.from();
- my $to := $match.to();
- my $prefix := pir::substr__sPii($text, $pos, $from-$pos);
- @result.push($prefix);
- $pos := $match.to();
- } else {
- my $len := pir::length($text);
- if $pos < $len {
- @result.push(pir::substr__ssi($text, $pos) );
- }
- $looking := 0;
- }
- }
- return @result;
-}
+# our sub split ($regex, $text) {
+# my $pos := 0;
+# my @result;
+# my $looking := 1;
+# while $looking {
+# my $match :=
+# Regex::Cursor.parse($text, :rule($regex), :c($pos)) ;
+#
+# if ?$match {
+# my $from := $match.from();
+# my $to := $match.to();
+# my $prefix := pir::substr__sPii($text, $pos, $from-$pos);
+# @result.push($prefix);
+# $pos := $match.to();
+# } else {
+# my $len := pir::length($text);
+# if $pos < $len {
+# @result.push(pir::substr__ssi($text, $pos) );
+# }
+# $looking := 0;
+# }
+# }
+# return @result;
+# }
# vim: ft=perl6
File renamed without changes.

0 comments on commit 5349f17

Please sign in to comment.