▼変更対象の変数
1350行目 my
%val;
1357行目
$val{"$name"} = $value;
1377行目 if ($cfg && exists
$val{"$cfg"} && $line =~ /^\s*(my)?\s*\$$cfg\s*=\s*/) {
1378行目 my ($value,
$val);
1379行目 if (
$val{"$cfg"} =~ /^\d+$/) {
1380行目 $value =
$val{"$cfg"};
1382行目
$val =
$val{"$cfg"};
1383行目
$val =~ s/</</g;
1384行目
$val =~ s/>/>/g;
1385行目
$val =~ s/"/"/g;
1386行目
$val =~ s/\\$//;
1387行目 $value = "'" .
$val . "'";
1394行目 if ($oval ne
$val{"$cfg"}) {
1399行目 push(@config_value,qq($cfg<>) .
$val{"$cfg"} . qq(\n));
2835行目 my($cname,
$val) = split(/<>/);
2836行目 chomp
$val;
2838行目 if ($cname eq 'adminpass' &&
$val) {
4891行目 my ($value,
$val);
4895行目
$val = param("$cfg");
4896行目
$val =~ s/</</g;
4897行目
$val =~ s/>/>/g;
4898行目
$val =~ s/"/"/g;
4899行目
$val =~ s/\\$//;
4900行目 $value = "'" .
$val . "'";
5865行目 my($key,
$val, %cook, $cook, @cook);
5872行目 ($key,
$val) = split(/=/);
5874行目 $cook{$key} =
$val;