=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libfile-copy-recursive-perl-0.45/t/02.legacy-symtogsafe.t-95- # use system call since the perl to do this will likely use File::Spec libfile-copy-recursive-perl-0.45/t/02.legacy-symtogsafe.t:96: system("/bin/mkdir -p moved/$func/$parent") and die "could not toggle dir/symlink (mkdir): $?\n"; libfile-copy-recursive-perl-0.45/t/02.legacy-symtogsafe.t-97- } ############################################## libfile-copy-recursive-perl-0.45/t/02.legacy-symtogsafe.t-99- # use system call since the perl to do this will likely use File::Spec libfile-copy-recursive-perl-0.45/t/02.legacy-symtogsafe.t:100: system("/bin/mv $dir/$func/$toggle $dir/moved/$func/$toggle") and die "could not toggle dir/symlink (mv): $?\n"; libfile-copy-recursive-perl-0.45/t/02.legacy-symtogsafe.t-101- symlink( "$dir/victim", "$dir/$func" . ( $toggle ? "/$toggle" : "" ) ) or die "could not toggle dir/symlink (sym): $!\n"; ############################################## libfile-copy-recursive-perl-0.45/t/04.readonly-dir.t-22-path("$dir/src/top/sub2/file2.1")->spew(""); libfile-copy-recursive-perl-0.45/t/04.readonly-dir.t:23:`chmod -w $dir/src/top/sub2`; libfile-copy-recursive-perl-0.45/t/04.readonly-dir.t-24- ############################################## libfile-copy-recursive-perl-0.45/t/04.readonly-dir.t-31- libfile-copy-recursive-perl-0.45/t/04.readonly-dir.t:32:`chmod +w $dir/src/top/sub2`; libfile-copy-recursive-perl-0.45/t/04.readonly-dir.t-33-