From db99afcd1829d59219ae4fea0a09229a8136e9e2 Mon Sep 17 00:00:00 2001 From: smcv Date: Wed, 10 Sep 2014 04:42:24 -0400 Subject: [PATCH] clarif --- doc/todo/calendar_autocreate.mdwn | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/doc/todo/calendar_autocreate.mdwn b/doc/todo/calendar_autocreate.mdwn index e25c45cb2..8e6a1a0d0 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, in order to +> put the pair `$params{month} => 1` in it (the term to look > up if you're curious is "autovivification"). > > --[[smcv]] -- 2.44.0