X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/ec1d6e8ebb3de17200b6e57223af9f38eb3a8480..7f5c2cfa5a987d887f42d6db95f80f42ceb3b5ff:/doc/todo/calendar_autocreate.mdwn?ds=sidebyside diff --git a/doc/todo/calendar_autocreate.mdwn b/doc/todo/calendar_autocreate.mdwn index e25c45cb2..2a7350b79 100644 --- a/doc/todo/calendar_autocreate.mdwn +++ b/doc/todo/calendar_autocreate.mdwn @@ -212,12 +212,14 @@ sub gencalendaryear { > + } > + $changed{$params{year}}{$params{month}} = 1; > -> $changed{$params{year}} is a scalar but `()` is a list. I think you want `{}` +> `$changed{$params{year}}` is a scalar (you can tell because it starts with the +> `$` sigil) but `()` is a list. I think you want `{}` > (a scalar that is a reference to an empty anonymous hash). > > However, that whole `if` block can be omitted, and you can just use > `$changed{$params{year}}{$params{month}} = 1;`, because Perl will automatically -> create $changed{$params{year}} as a reference to a hash (the term to look +> create `$changed{$params{year}}` as a reference to an empty hash if necessary, +> in order to put the pair `$params{month} => 1` in it (the term to look > up if you're curious is "autovivification"). > > --[[smcv]]