=head1 VERSION
-Version 1.13
+Version 1.15
=cut
-our $VERSION = '1.13';
+our $VERSION = '1.15';
=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
=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.