X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/ec1d6e8ebb3de17200b6e57223af9f38eb3a8480..b52e47181c8984cba27fb533b3bc802dbf0d0420:/doc/todo/calendar_autocreate.mdwn 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]]