New upstream release
Gunnar Wolf
18 years ago
0 | Revision history for Perl extension File::Remove. | |
1 | ||
2 | 0.31 Wed Dec 28 17:40:00 2005 | |
3 | - Applied Eric Hanchrow's patch to support filenames with spaces. | |
4 | - Skip recycle tests unless recycle/trash support is available. | |
5 | ||
6 | 0.30 Wed Jul 14 19:12:00 2005 | |
7 | - Applied CNANDOR's patch to fix trash() support on OS X 10.4. | |
8 | ||
9 | 0.29 Mon Dec 04 16:35:00 2004 | |
10 | - Stabilize undelete support for OS X and Windows. | |
11 | ||
12 | 0.26 Mon Nov 16 07:31:00 2004 | |
13 | - Fix the synopsis. | |
14 | ||
15 | 0.25 Mon Nov 15 12:04:00 2004 | |
16 | - Renamed undelete() to trash(), to be more clear. | |
17 | - Allow users to provide their own rmdir/unlink to trash(). | |
18 | - Re-disabled debugging by default. | |
19 | ||
20 | 0.24 Mon Nov 15 11:32:00 2004 | |
21 | - Add undelete support for OS X (via Mac::Glue). | |
22 | - Fix undelete overloading of unlink/rmdir and update tests. | |
23 | - Fix the documentation to be readable with perldoc. | |
24 | ||
25 | 0.23 Mon Nov 15 09:45:00 2004 | |
26 | - Add undelete supportand tests (currently only for Win32, via | |
27 | Win32::FileOp). | |
28 | ||
29 | 0.22 Mon Nov 15 08:17:00 2004 | |
30 | - Add the first set of tests. | |
31 | ||
32 | 0.21 Tue Jul 20 10:17:00 2004 | |
33 | - Converted the internals to File::Spec. | |
34 | ||
35 | - Maintenance transferred by modules@perl.org to Richard Soderberg. | |
36 | Please e-mail bug reports to <bug-File-Remove@rt.cpan.org>. | |
37 | ||
38 | 0.20 Tue Apr 15 23:34:25 1998 | |
39 | - Now you can pass a scalar reference as the first argument and it | |
40 | will used as the recursive flag when removing directories. With | |
41 | recursive flag set to 0 only the files in the directory are | |
42 | removed and no attempt is made to recurse into subdirectories. | |
43 | Nevertheless, if the directory becomes empty it is removed. | |
44 | ||
45 | 0.12 Tue Apr 14 15:50:56 1998 | |
46 | - change the umask and set the permission on directories so we can | |
47 | remove the files | |
48 | ||
49 | 0.11 Mon Apr 13 16:37:30 1998 | |
50 | - changed the return values to successes rather than failures since | |
51 | it makes more sense. | |
52 | ||
53 | 0.10 Fri Apr 10 22:32:13 EDT 1998 | |
54 | - original version |
0 | Revision history for Perl extension File::Remove. | |
1 | ||
2 | 0.30 Wed Jul 14 19:12:00 2005 | |
3 | - Applied CNANDOR's patch to fix trash() support on OS X 10.4. | |
4 | ||
5 | 0.29 Mon Dec 04 16:35:00 2004 | |
6 | - Stabilize undelete support for OS X and Windows. | |
7 | ||
8 | 0.26 Mon Nov 16 07:31:00 2004 | |
9 | - Fix the synopsis. | |
10 | ||
11 | 0.25 Mon Nov 15 12:04:00 2004 | |
12 | - Renamed undelete() to trash(), to be more clear. | |
13 | - Allow users to provide their own rmdir/unlink to trash(). | |
14 | - Re-disabled debugging by default. | |
15 | ||
16 | 0.24 Mon Nov 15 11:32:00 2004 | |
17 | - Add undelete support for OS X (via Mac::Glue). | |
18 | - Fix undelete overloading of unlink/rmdir and update tests. | |
19 | - Fix the documentation to be readable with perldoc. | |
20 | ||
21 | 0.23 Mon Nov 15 09:45:00 2004 | |
22 | - Add undelete supportand tests (currently only for Win32, via | |
23 | Win32::FileOp). | |
24 | ||
25 | 0.22 Mon Nov 15 08:17:00 2004 | |
26 | - Add the first set of tests. | |
27 | ||
28 | 0.21 Tue Jul 20 10:17:00 2004 | |
29 | - Converted the internals to File::Spec. | |
30 | ||
31 | - Maintenance transferred by modules@perl.org to Richard Soderberg. | |
32 | Please e-mail bug reports to <bug-File-Remove@rt.cpan.org>. | |
33 | ||
34 | 0.20 Tue Apr 15 23:34:25 1998 | |
35 | - Now you can pass a scalar reference as the first argument and it | |
36 | will used as the recursive flag when removing directories. With | |
37 | recursive flag set to 0 only the files in the directory are | |
38 | removed and no attempt is made to recurse into subdirectories. | |
39 | Nevertheless, if the directory becomes empty it is removed. | |
40 | ||
41 | 0.12 Tue Apr 14 15:50:56 1998 | |
42 | - change the umask and set the permission on directories so we can | |
43 | remove the files | |
44 | ||
45 | 0.11 Mon Apr 13 16:37:30 1998 | |
46 | - changed the return values to successes rather than failures since | |
47 | it makes more sense. | |
48 | ||
49 | 0.10 Fri Apr 10 22:32:13 EDT 1998 | |
50 | - original version |
0 | Changes | |
0 | CHANGES | |
1 | 1 | MANIFEST |
2 | 2 | Makefile.PL |
3 | 3 | README |
4 | 4 | lib/File/Remove.pm |
5 | 5 | META.yml Module meta-data (added by MakeMaker) |
6 | SIGNATURE | |
6 | 7 | t/0_use.t |
7 | 8 | t/1_directories.t |
0 | 0 | # http://module-build.sourceforge.net/META-spec.html |
1 | 1 | #XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# |
2 | 2 | name: File-Remove |
3 | version: 0.30 | |
3 | version: 0.31 | |
4 | 4 | version_from: lib/File/Remove.pm |
5 | 5 | installdirs: site |
6 | 6 | requires: |
7 | File::Glob: 0 | |
7 | 8 | File::Spec: 0.84 |
8 | 9 | |
9 | 10 | distribution_type: module |
5 | 5 | VERSION_FROM => 'lib/File/Remove.pm', # finds $VERSION |
6 | 6 | PREREQ_PM => { |
7 | 7 | 'File::Spec' => 0.84, |
8 | 'File::Glob' => 0, | |
8 | 9 | }, # e.g., Module::Name => 1.1 |
9 | 10 | ($] >= 5.005 ? ## Add these new keywords supported since 5.005 |
10 | 11 | (ABSTRACT_FROM => 'lib/File/Remove.pm', # retrieve abstract from module |
0 | This file contains message digests of all files listed in MANIFEST, | |
1 | signed via the Module::Signature module, version 0.50. | |
2 | ||
3 | To verify the content in this distribution, first make sure you have | |
4 | Module::Signature installed, then type: | |
5 | ||
6 | % cpansign -v | |
7 | ||
8 | It will check each file's integrity, as well as the signature's | |
9 | validity. If "==> Signature verified OK! <==" is not displayed, | |
10 | the distribution may already have been compromised, and you should | |
11 | not run its Makefile.PL or Build.PL. | |
12 | ||
13 | -----BEGIN PGP SIGNED MESSAGE----- | |
14 | Hash: SHA1 | |
15 | ||
16 | SHA1 0ea142a9a9ad44fa215b792e8e650b2e236dd4b2 CHANGES | |
17 | SHA1 15a586b905e363b59c8b30dbe7de089f0b9a5564 MANIFEST | |
18 | SHA1 4aee3241005744e00d9df3009c87a4edba39e4c5 META.yml | |
19 | SHA1 41b4686728b88fcddc06571e8675451b4395716b Makefile.PL | |
20 | SHA1 0bf2c8fb1da44bbc551e1854a477f19f12f0fcc6 README | |
21 | SHA1 f380d4019777bfc64553e8d76fb147211b0122b1 lib/File/Remove.pm | |
22 | SHA1 4c46e1f7842b90c40055518850752e7924381cad t/0_use.t | |
23 | SHA1 b8b1ea47a3070a321788340cef3266742f7e0aa0 t/1_directories.t | |
24 | -----BEGIN PGP SIGNATURE----- | |
25 | Version: GnuPG v1.4.1 (Darwin) | |
26 | ||
27 | iD8DBQFDs0MfCV/r5CcpuVoRAjzEAJ0SoGFmcslV8JPM8L8ZqjeY4fXRtgCfVKiY | |
28 | o0g/IYr+Fref6DzEj3rWV/8= | |
29 | =KABd | |
30 | -----END PGP SIGNATURE----- |
0 | libfile-remove-perl (0.31-1) unstable; urgency=low | |
1 | ||
2 | * New upstream release | |
3 | ||
4 | -- Gunnar Wolf <gwolf@debian.org> Mon, 16 Jan 2006 18:27:31 -0600 | |
5 | ||
0 | 6 | libfile-remove-perl (0.30-1) unstable; urgency=low |
1 | 7 | |
2 | 8 | * New upstream release |
102 | 102 | |
103 | 103 | use File::Spec; |
104 | 104 | use File::Path qw(rmtree); |
105 | use File::Glob qw(bsd_glob); | |
105 | 106 | |
106 | $VERSION = '0.30'; | |
107 | $VERSION = '0.31'; | |
107 | 108 | |
108 | 109 | our $glue; |
109 | 110 | |
110 | 111 | sub expand (@) |
111 | 112 | { |
112 | my @args; | |
113 | ||
114 | for (@_) { | |
115 | push @args, glob; | |
116 | } | |
117 | @args; | |
113 | map { bsd_glob $_ } @_; | |
118 | 114 | } |
119 | 115 | |
120 | 116 | # acts like unlink would until given a directory as an argument, then |
91 | 91 | } |
92 | 92 | } |
93 | 93 | |
94 | TODO: { | |
95 | local $TODO; | |
94 | SKIP: { | |
96 | 95 | if ($^O eq 'darwin') { |
97 | 96 | eval 'use Mac::Glue ();'; |
98 | $TODO = "Undelete support requires Mac::Glue" if length $@; | |
97 | skip "Undelete support requires Mac::Glue", 0 if length $@; | |
99 | 98 | eval 'use Mac::Glue::Finder ();'; |
100 | $TODO = "Undelete support requires Mac::Glue::Finder" if length $@; | |
99 | skip "Undelete support requires Mac::Glue::Finder", 0 if length $@; | |
101 | 100 | } elsif ($^O eq 'cygwin' || $^O =~ /^MSWin/) { |
102 | 101 | eval 'use Win32::FileOp::Recycle;'; |
103 | $TODO = "Undelete support requires Win32::FileOp::Recycle" if length $@; | |
102 | skip "Undelete support requires Win32::FileOp::Recycle", 0 if length $@; | |
104 | 103 | } else { |
105 | $TODO = "Undelete support not available by default"; | |
104 | skip "Undelete support not available by default", 0; | |
106 | 105 | } |
107 | 106 | |
108 | 107 | for my $path (@dirs) { |