Mercurial > hg > Members > anatofuz > logroulette
changeset 4:d86513005167
tweak
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Tue, 24 Nov 2020 17:09:52 +0900 |
parents | 1a10e3641292 |
children | 2dbb638def9d |
files | members.pl |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/members.pl Tue Jun 16 21:30:07 2020 +0900 +++ b/members.pl Tue Nov 24 17:09:52 2020 +0900 @@ -1,12 +1,12 @@ use strict; use warnings; -use JSON; +use JSON::PP; my @users; while (my $line = <DATA>) { if ($line =~/(@\w+)/) { - push(@users, {id => $1, done => 0}); + push(@users, {id => $1, done => \0}); } }