Skip to content

Instantly share code, notes, and snippets.

@gfldex
Created July 15, 2016 16:00
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save gfldex/239bf4dcb76e495d8b21bd1247754e2a to your computer and use it in GitHub Desktop.
Save gfldex/239bf4dcb76e495d8b21bd1247754e2a to your computer and use it in GitHub Desktop.
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