130 ◆TWARamEjuA (sage) NG NG
>>114
複数行にわけてインデントをそろえると良いかと♪
# tasukeruyoの処理
&Tasukeruyo($GB)
if (
$GB->{FORM}->{'FROM'} =~ /tasukeruyo/
and &BoardGroup($GB, "operate");
>>116
$GB->{FORM}->{'bbs'} = 'sakud';
printf qq|ITA = %s|, if BoardGroup($GB, 'saku');
あらやだ♪
＃完全一致の方がよさげ♪
if($GB->{FORM}->{'bbs'} =~ /$board/) { return 1; }
return 0; # 'return undef' の方が良いかと
↓
return $GB->{FORM}->{'bbs'} eq $board ? 1 : 0;