▼変更対象の変数
294行目 my
$subdir = param('subdir');
652行目 if (
$subdir eq '..') {
656行目 $updir = join('/',$updir,
$subdir) if
$subdir;
658行目 if (
$subdir eq '..' && index($updir,$root) < 0 && ! $free_mode) {
661行目
$subdir = '';
667行目 if (
$subdir) {
1461行目 while(my
$subdir = readdir(DIR)) {
1462行目 next if
$subdir eq '.' || ! -d join('/',$updir,
$subdir);
1463行目 next if
$subdir eq '..' && $updir eq $root;
1464行目 next if
$subdir eq $file;
1465行目 push(@subdir_list,
$subdir);
1783行目 my
@subdir = ();
1786行目 push(
@subdir,$file);
1789行目 foreach $file (
@subdir) {