Help for this page

Select Code to Download


  1. or download this
    my $mode = $sb[2] & 0777;
...
ok( ! ( $mode & 022 ), "File is not group or world writable" );
  2. or download this
    my $mode = $sb[2] & oct(777);
...
ok( ! ( $mode & oct(22) ), "File is not group or world writable" );
  3. or download this
    ## no critic (LeadingZeros)
my $mode = $sb[2] & 0777;
...
## no critic (LeadingZeros)
ok( ! ( $mode & 022 ), "File is not group or world writable" );
## use critic