[perl #65610] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S05-match/perl.t

commit d8c325d9592aca0455d8d0ecd54e9ee51a3a08dd
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Tue Aug 4 19:20:26 2009 +0000

    [t/spec] Test for RT #65610
    
    git-svn-id: http://svn.pugscode.org/p...@27871 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S05-match/perl.t b/t/spec/S05-match/perl.t
index 6f96d0d..0d1af92 100644
--- a/t/spec/S05-match/perl.t
+++ b/t/spec/S05-match/perl.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 11;
+plan 13;
 
 # tests for Match.perl
 
@@ -39,4 +39,14 @@ lives_ok { $/.perl }, 'lives on quantified named captures';
     is_deeply eval($/.perl), $/, 'eval of Match.perl recreates Match';
 }
 
+# RT #65610
+{
+    my $m = 'foo' ~~ /foo/;
+    eval '$m<greeting> = "OH HAI"';
+
+    #?rakudo 2 todo 'RT #65610'
+    ok  $!  ~~ Exception, 'die before modifying a Match';
+    lives_ok { $m.perl }, 'can .perl a Match after attempt to modify';
+}
+
 # vim: ft=perl6