=head1 VERSION
-Version 1.13
+Version 1.18
=cut
-our $VERSION = '1.13';
+our $VERSION = '1.18';
=head1 DESCRIPTION
require File::Spec;
my ($vol, $dir, $file) = File::Spec->splitpath($target);
my $base = File::Spec->catpath($vol, $dir, '');
- unless (-e $base) {
+ if (-e $base) {
+ 1 while unlink $target;
+ } else {
require File::Path;
File::Path::mkpath([ $base ]);
- } else {
- 1 while unlink $target;
}
open my $fh, '>', $target
or $self->_croak("open(\$fh, '>', \$self->target): $!");
- my (%seen, $id);
+ my $id = 0;
+ my %seen;
for (sort { $a->data cmp $b->data }
grep !$seen{$_->data}++, @{$self->{supps}}) {
print $fh "{\n"
=head1 COPYRIGHT & LICENSE
-Copyright 2009,2010,2011,2013 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011,2013,2015 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.