=head1 VERSION
-Version 0.04
+Version 0.05
=cut
-our $VERSION = '0.04';
+our $VERSION = '0.05';
=head1 SYNOPSIS
my $default_distdir;
my $main_portdir;
+my %forced;
+
sub _unquote {
my $s = shift;
$s =~ s/^["']*//;
if (-e $file) {
my $skip = 1;
- if ($stat->force) {
+ if ($stat->force and not $forced{$file}) {
if (-w $file) {
1 while unlink $file;
+ $forced{$file} = 1;
$skip = 0;
} else {
error "Can't force rewriting of $file -- skipping";
=head1 COPYRIGHT & LICENSE
-Copyright 2008 Vincent Pit, all rights reserved.
+Copyright 2008-2009 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.