Created
July 15, 2016 16:00
-
-
Save gfldex/239bf4dcb76e495d8b21bd1247754e2a to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/lib/Debian/IndexParse/Grammar.pm b/lib/Debian/IndexParse/Grammar.pm | |
index 55d76f6..10d7f6b 100644 | |
--- a/lib/Debian/IndexParse/Grammar.pm | |
+++ b/lib/Debian/IndexParse/Grammar.pm | |
@@ -12,7 +12,7 @@ grammar Debian::IndexParse::Grammar { | |
[ <emptyline>+ <paragraph> ]* | |
<emptyline>* | |
$ | |
- { my @list = map { .made }, $/<paragraph>; | |
+ { my @list = map -> $p { $p.made }, $/<paragraph>; | |
make @list; | |
} | |
} | |
@@ -22,7 +22,7 @@ grammar Debian::IndexParse::Grammar { | |
token paragraph { | |
<field>+ | |
{ my %a; | |
- for $/<field> { %a{.<name>} = .<value> }; | |
+ for $/<field> -> $f { %a{$f<name>} = $f<value> }; | |
make %a; | |
} | |
} |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment