my $o_rp = File::Data->new($rp, '>+<'); # perms $i_errs++ unless ref($o_rp); print "[$i_test] perms file($rp) => o_rp($o_rp)\n" if $i_errs;
# my $i_stat = my @stat = File::Data->new($ro)->FSTAT('_'); # $i_errs++ unless $i_stat >= 3; # # print "[$i_test] stat(@stat): ".Dumper(\@stat) if $i_errs;
($i_errs == 0) ? ok(1) : ok(0); # =============================================================================
1 POD Error
The following errors were encountered while parsing the POD:
- Around line 402:
=pod directives shouldn't be over one line long! Ignoring all 5 lines of content