view release on metacpan or  search on metacpan

lib/App/FileCleanerByDiskUage.pm  view on Meta::CPAN

	# the last real df() check
	my $need  = ( ( $per - $opts{du} ) / 100 ) * $user_total;
	my $freed = 0;

	my $int             = 0;
	my $since_resync    = 0;
	while ( $per >= $opts{du} && $int <= $last_removable ) {
		my $file = $files_info[$int];
		eval {
			if ( $opts{dry_run} ) {
				# dry run: never remove anything, just verify the file would be
				# removable by checking it is writable by the current user
				if ( !-w $file->{name} ) {
					die('file is not writable');
				}
			} else {
				unlink( $file->{name} ) or die($!);
			}

		};
		if ($@) {