view release on metacpan or  search on metacpan

lib/Sys/FS.pm  view on Meta::CPAN

        if ( !-d $dir ) {
            my $msg = "Filename: $filename - mkdir $dir, $mode";
            if ( mkdir( $dir, $mode ) ) {
                $self->logger()->log( message => $msg, level => 'debug', );
                $mkdirs++;
            }
            else {
                $self->logger()->log( message => $msg . ' FAILED!', level => 'debug', );
            }
            if ( $opts->{'Uid'} && $opts->{'Gid'} ) {
                chown $opts->{'Uid'}, $opts->{'Gid'} => $dir;
            }
        }
    }
    my $msg = "Filename: $filename - created $mkdirs dirs for $dir";
    $self->logger()->log( message => $msg, level => 'debug', );
    return $dir;
}

sub spaceleft {
    my $self = shift;