Parse $/ and $¢

src/Niecza/Actions.pm

@@ -54,7 +54,9 @@ sub REDUCE {
     };
 
     if ($@) {
-        $M->sorry($@);
+        my $foo = $@;
+        $foo =~ s/^(?:[^\n]*\n){5}\K.*//s;
+        $M->sorry($foo);
     }
 }
 
@@ -1396,6 +1398,8 @@ sub variable { my ($cl, $M) = @_;
             $name = $M->{name}[0]{_ast}{names}[0];
             $twigil = ':';
         }
+    } elsif ($M->{special_variable}) {
+        $name = substr($M->{special_variable}->Str, 1);
     } else {
         $M->sorry("Non-simple variables NYI");
         return;
@@ -1406,6 +1410,10 @@ sub variable { my ($cl, $M) = @_;
     };
 }
 
+sub special_variable {}
+sub special_variable__S_DollarSlash {}
+sub special_variable__S_Dollar_a2_ {}
+
 sub param_sep {}
 
 # :: { list : Bool, hash : Bool  slot : Maybe[Str], names : [Str] }

test2.pl

@@ -14,4 +14,9 @@
 $a = 5;
 is $b, 2, "ro binding loses original container";
 
+ok 'xxy' ~~ /x { $a = $/.pos } /, "can match with \$/ stuff";
+is $a, 1, '$/.pos is the right sort of thing';
+'xxy' ~~ /x { $a = ($¢ ~~ Cursor) }/;
+is $a, True, '$¢ isa Cursor';
+
 done-testing;