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});
   }
 }