view release on metacpan or  search on metacpan

t/test.t  view on Meta::CPAN

	foreach my $key (sort keys %file) { # cannot read/write twice
		my $orig = $file{$key}->_var('filename');
		my $o_new = File::Data->new($orig);
		if ($o_new) {
			$i_errs++;
			print "[$i_test] re-read($orig) => o_new($o_new)!\n";
		}
	}
	$File::Data::SILENT=0;
}
ok( !$i_errs, 'locked' );

# =============================================================================

# PERM (issions) _check_access
# =============================================================================
$i_test++; # 3
$i_errs = 0;

# invalid filename
{