diff.diff

diff --git a/lib/Apache/LogFormat/Compiler.pm6 b/lib/Apache/LogFormat/Compiler.pm6
index 43c2850..cb3f216 100644
--- a/lib/Apache/LogFormat/Compiler.pm6
+++ b/lib/Apache/LogFormat/Compiler.pm6
@@ -101,35 +101,35 @@ class Apache::LogFormat::GrammarActions {
         $/.make: $fmt;
     }
 
-    method block-section($/) {
+    method block-section($m) {
         state %psgi-reserved = (
             CONTENT_LENGTH => 1,
             CONTENT_TYPE => 1,
         );
         my $cb;
-        given $<block-type>.Str {
+        given $m<block-type>.Str {
         when 'i' {
-            my $hdr-name = $<block-key>.Str.uc.subst(/\-/, "_");
+            my $hdr-name = $m<block-key>.Str.uc.subst(/\-/, "_");
             if !%psgi-reserved{$hdr-name} {
                 $hdr-name = "HTTP_" ~ $hdr-name;
             }
             $cb = q!string-value(%env<! ~ $hdr-name ~ q!>)!;
         }
         when 'o' {
-            $cb = q!string-value(get-header(@res[1], '! ~ $<block-key>.Str ~ q!'))!;
+            $cb = q!string-value(get-header(@res[1], '! ~ $m<block-key>.Str ~ q!'))!;
         }
         when 't' {
-            $cb = q!"[" ~ strftime('! ~ $<block-key>.Str ~ q!', $time) ~ "]"!;
+            $cb = q!"[" ~ strftime('! ~ $m<block-key>.Str ~ q!', $time) ~ "]"!;
         }
         when %.extra-block-handlers{$_}:exists {
-            $cb = q!string-value(%extra-blocks{'! ~ $<block-type>.Str ~ q!'}('! ~ $<block-key>.Str ~ q!', %env, @res, $length, $reqtime))!;
+            $cb = q!string-value(%extra-blocks{'! ~ $m<block-type>.Str ~ q!'}('! ~ $m<block-key>.Str ~ q!', %env, @res, $length, $reqtime))!;
         }
         default {
-            die '%{' ~ $<block-key>.Str ~ '}' ~ $<block-type>.Str ~ ' not supported';
+            die '%{' ~ $m<block-key>.Str ~ '}' ~ $m<block-type>.Str ~ ' not supported';
         }
         }
 
-        $/.make: q|! ~ | ~ $cb ~ q| ~ q!|;
+        $m.make: q|! ~ | ~ $cb ~ q| ~ q!|;
     }
 }