Help for this page

Select Code to Download


  1. or download this
    sub is_safe_file {
   my $path = shift;
...
   return 0 if $mode & 022;
   return 1;
} ## end sub is_safe_file
  2. or download this
    ls -la perldb.ini
-rw-r--r-- 1 jgpuckering 197615 140 Sep 18 11:44 perldb.ini
  3. or download this
    perl -MFile::stat -E "printf '%%07o', stat('perldb.ini')->mode"
0100666