▼変更対象の変数
274行目 my
$subdir = param('subdir');
622行目 if (
$subdir eq '..') {
626行目 $updir = join('/',$updir,
$subdir) if
$subdir;
628行目 if (
$subdir eq '..' && index($updir,$root) < 0 && ! $free_mode) {
631行目
$subdir = '';
636行目 if (
$subdir) {
1417行目 while(my
$subdir = readdir(DIR)) {
1418行目 next if
$subdir eq '.' || ! -d join('/',$updir,
$subdir);
1419行目 next if
$subdir eq '..' && $updir eq $root;
1420行目 next if
$subdir eq $file;
1421行目 push(@subdir_list,
$subdir);
1739行目 my
@subdir = ();
1742行目 push(
@subdir,$file);
1745行目 foreach $file (
@subdir) {