New upstream snapshot.
Debian Janitor
1 year, 3 months ago
| 0 | 0 |
Revision history for File-Path-Tiny
|
| 1 | |
|
| 2 | |
1.0 2021-02-04 13:53:54
|
| 3 | |
- rt 125502: fix empty_dir() fast-mode, thanks ishigaki!
|
| 4 | |
- f749173 Stop using bareword handle (still ::Tiny since perl is newer)
|
| 5 | 1 |
|
| 6 | 2 |
0.9 2017-12-29 16:17:42
|
| 7 | 3 |
- Do chdir() for security reasons by default
|
|
| 24 | 20 |
|
| 25 | 21 |
0.5 2012-09-06 07:38:06
|
| 26 | 22 |
rt 79472 (thanks Lachlan!) fix absolute path bug introduced in 0.4
|
| 27 | |
|
|
23 |
|
| 28 | 24 |
0.4 2012-09-03 17:50:41
|
| 29 | 25 |
rt 79345 (thanks Gian!): Failed to recursively create dir if the first part solves to false
|
| 30 | 26 |
|
| 3 | 3 |
"Daniel Muey <http://drmuey.com/cpan_contact.pl>"
|
| 4 | 4 |
],
|
| 5 | 5 |
"dynamic_config" : 1,
|
| 6 | |
"generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150001",
|
|
6 |
"generated_by" : "ExtUtils::MakeMaker version 7.64, CPAN::Meta::Converter version 2.150010",
|
| 7 | 7 |
"license" : [
|
| 8 | 8 |
"perl_5"
|
| 9 | 9 |
],
|
| 10 | 10 |
"meta-spec" : {
|
| 11 | 11 |
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
|
| 12 | |
"version" : "2"
|
|
12 |
"version" : 2
|
| 13 | 13 |
},
|
| 14 | 14 |
"name" : "File-Path-Tiny",
|
| 15 | 15 |
"no_index" : {
|
|
| 40 | 40 |
}
|
| 41 | 41 |
},
|
| 42 | 42 |
"release_status" : "stable",
|
| 43 | |
"version" : "1.0"
|
|
43 |
"version" : 0.9,
|
|
44 |
"x_serialization_backend" : "JSON::PP version 4.07"
|
| 44 | 45 |
}
|
| 6 | 6 |
configure_requires:
|
| 7 | 7 |
ExtUtils::MakeMaker: '0'
|
| 8 | 8 |
dynamic_config: 1
|
| 9 | |
generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150001'
|
|
9 |
generated_by: 'ExtUtils::MakeMaker version 7.64, CPAN::Meta::Converter version 2.150010'
|
| 10 | 10 |
license: perl
|
| 11 | 11 |
meta-spec:
|
| 12 | 12 |
url: http://module-build.sourceforge.net/META-spec-v1.4.html
|
|
| 22 | 22 |
File::Temp: '0'
|
| 23 | 23 |
Test::Exception: '0'
|
| 24 | 24 |
Test::More: '0'
|
| 25 | |
version: '1.0'
|
|
25 |
version: 0.9
|
|
26 |
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
|
| 0 | |
File-Path-Tiny version 1.0
|
|
0 |
File-Path-Tiny version 0.9
|
| 1 | 1 |
|
| 2 | 2 |
DOCUMENTATION
|
| 3 | 3 |
|
|
0 |
libfile-path-tiny-perl (1.0+git20171229.1.333ebe4-1) UNRELEASED; urgency=low
|
|
1 |
|
|
2 |
* New upstream snapshot.
|
|
3 |
|
|
4 |
-- Debian Janitor <janitor@jelmer.uk> Thu, 19 Jan 2023 14:43:40 -0000
|
|
5 |
|
| 0 | 6 |
libfile-path-tiny-perl (1.0-1) unstable; urgency=medium
|
| 1 | 7 |
|
| 2 | 8 |
[ Salvatore Bonaccorso ]
|
| 4 | 4 |
use Cwd qw(cwd chdir);
|
| 5 | 5 |
use Carp ();
|
| 6 | 6 |
|
| 7 | |
$File::Path::Tiny::VERSION = "1.0";
|
|
7 |
$File::Path::Tiny::VERSION = 0.9;
|
| 8 | 8 |
|
| 9 | 9 |
sub mk {
|
| 10 | 10 |
my ( $path, $mask ) = @_;
|
|
| 56 | 56 |
_bail_if_changed( $path, $orig_dev, $orig_ino );
|
| 57 | 57 |
}
|
| 58 | 58 |
|
| 59 | |
opendir( my $dh, $path ) or return;
|
| 60 | |
my @contents = grep { $_ ne '.' && $_ ne '..' } readdir($dh);
|
| 61 | |
closedir $dh;
|
|
59 |
opendir( DIR, $path ) or return;
|
|
60 |
my @contents = grep { $_ ne '.' && $_ ne '..' } readdir(DIR);
|
|
61 |
closedir DIR;
|
| 62 | 62 |
_bail_if_changed( $path, $orig_dev, $orig_ino );
|
| 63 | 63 |
|
| 64 | 64 |
require File::Spec if @contents;
|
|
| 66 | 66 |
my $long = File::Spec->catdir( $path, $thing );
|
| 67 | 67 |
if ( !-l $long && -d _ ) {
|
| 68 | 68 |
_bail_if_changed( $path, $orig_dev, $orig_ino );
|
| 69 | |
rm( $long, $fast ) or !-e $long or return;
|
|
69 |
rm($long) or !-e $long or return;
|
| 70 | 70 |
}
|
| 71 | 71 |
else {
|
| 72 | 72 |
_bail_if_changed( $path, $orig_dev, $orig_ino );
|
| 5 | 5 |
|
| 6 | 6 |
=head1 VERSION
|
| 7 | 7 |
|
| 8 | |
This document describes File::Path::Tiny version 1.0
|
|
8 |
This document describes File::Path::Tiny version 0.9
|
| 9 | 9 |
|
| 10 | 10 |
=head1 SYNOPSIS
|
| 11 | 11 |
|