From 808128502df433e3d8be1cf943a7d9f9a3bb4597 Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Sun, 30 May 2010 18:50:37 +0200
Subject: [PATCH] make Match.Str return a Perl 6 Str

---
 src/core/Match.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/core/Match.pm b/src/core/Match.pm
index 007c4e2dea2..cccd8e83d4d 100644
--- a/src/core/Match.pm
+++ b/src/core/Match.pm
@@ -1,10 +1,13 @@
 class Match is Regex::Match is Cool does Associative {
-
     method ast() {
         my $x = self.Regex::Match::ast;
         pir::isa__IPs($x, 'Undef') ?? Any !! $x;
     }
 
+    method Str() {
+        ~self.Regex::Match::Str;
+    }
+
     multi method postcircumfix:<{ }>($key) {
         Q:PIR {
             $P0 = find_lex 'self'