r1962 - in packages/libfile-remove-perl/trunk: . debian lib/File t
Gunnar Wolf
gwolf at costa.debian.org
Tue Jan 17 00:35:09 UTC 2006
Author: gwolf
Date: 2006-01-17 00:35:08 +0000 (Tue, 17 Jan 2006)
New Revision: 1962
Added:
packages/libfile-remove-perl/trunk/CHANGES
packages/libfile-remove-perl/trunk/SIGNATURE
Removed:
packages/libfile-remove-perl/trunk/Changes
Modified:
packages/libfile-remove-perl/trunk/MANIFEST
packages/libfile-remove-perl/trunk/META.yml
packages/libfile-remove-perl/trunk/Makefile.PL
packages/libfile-remove-perl/trunk/debian/changelog
packages/libfile-remove-perl/trunk/lib/File/Remove.pm
packages/libfile-remove-perl/trunk/t/1_directories.t
Log:
New upstream release
Copied: packages/libfile-remove-perl/trunk/CHANGES (from rev 1961, packages/libfile-remove-perl/branches/upstream/current/CHANGES)
Deleted: packages/libfile-remove-perl/trunk/Changes
===================================================================
--- packages/libfile-remove-perl/trunk/Changes 2006-01-17 00:30:44 UTC (rev 1961)
+++ packages/libfile-remove-perl/trunk/Changes 2006-01-17 00:35:08 UTC (rev 1962)
@@ -1,51 +0,0 @@
-Revision history for Perl extension File::Remove.
-
-0.30 Wed Jul 14 19:12:00 2005
- - Applied CNANDOR's patch to fix trash() support on OS X 10.4.
-
-0.29 Mon Dec 04 16:35:00 2004
- - Stabilize undelete support for OS X and Windows.
-
-0.26 Mon Nov 16 07:31:00 2004
- - Fix the synopsis.
-
-0.25 Mon Nov 15 12:04:00 2004
- - Renamed undelete() to trash(), to be more clear.
- - Allow users to provide their own rmdir/unlink to trash().
- - Re-disabled debugging by default.
-
-0.24 Mon Nov 15 11:32:00 2004
- - Add undelete support for OS X (via Mac::Glue).
- - Fix undelete overloading of unlink/rmdir and update tests.
- - Fix the documentation to be readable with perldoc.
-
-0.23 Mon Nov 15 09:45:00 2004
- - Add undelete supportand tests (currently only for Win32, via
- Win32::FileOp).
-
-0.22 Mon Nov 15 08:17:00 2004
- - Add the first set of tests.
-
-0.21 Tue Jul 20 10:17:00 2004
- - Converted the internals to File::Spec.
-
- - Maintenance transferred by modules at perl.org to Richard Soderberg.
- Please e-mail bug reports to <bug-File-Remove at rt.cpan.org>.
-
-0.20 Tue Apr 15 23:34:25 1998
- - Now you can pass a scalar reference as the first argument and it
- will used as the recursive flag when removing directories. With
- recursive flag set to 0 only the files in the directory are
- removed and no attempt is made to recurse into subdirectories.
- Nevertheless, if the directory becomes empty it is removed.
-
-0.12 Tue Apr 14 15:50:56 1998
- - change the umask and set the permission on directories so we can
- remove the files
-
-0.11 Mon Apr 13 16:37:30 1998
- - changed the return values to successes rather than failures since
- it makes more sense.
-
-0.10 Fri Apr 10 22:32:13 EDT 1998
- - original version
Modified: packages/libfile-remove-perl/trunk/MANIFEST
===================================================================
--- packages/libfile-remove-perl/trunk/MANIFEST 2006-01-17 00:30:44 UTC (rev 1961)
+++ packages/libfile-remove-perl/trunk/MANIFEST 2006-01-17 00:35:08 UTC (rev 1962)
@@ -1,8 +1,9 @@
-Changes
+CHANGES
MANIFEST
Makefile.PL
README
lib/File/Remove.pm
META.yml Module meta-data (added by MakeMaker)
+SIGNATURE
t/0_use.t
t/1_directories.t
Modified: packages/libfile-remove-perl/trunk/META.yml
===================================================================
--- packages/libfile-remove-perl/trunk/META.yml 2006-01-17 00:30:44 UTC (rev 1961)
+++ packages/libfile-remove-perl/trunk/META.yml 2006-01-17 00:35:08 UTC (rev 1962)
@@ -1,10 +1,11 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: File-Remove
-version: 0.30
+version: 0.31
version_from: lib/File/Remove.pm
installdirs: site
requires:
+ File::Glob: 0
File::Spec: 0.84
distribution_type: module
Modified: packages/libfile-remove-perl/trunk/Makefile.PL
===================================================================
--- packages/libfile-remove-perl/trunk/Makefile.PL 2006-01-17 00:30:44 UTC (rev 1961)
+++ packages/libfile-remove-perl/trunk/Makefile.PL 2006-01-17 00:35:08 UTC (rev 1962)
@@ -6,6 +6,7 @@
VERSION_FROM => 'lib/File/Remove.pm', # finds $VERSION
PREREQ_PM => {
'File::Spec' => 0.84,
+ 'File::Glob' => 0,
}, # e.g., Module::Name => 1.1
($] >= 5.005 ? ## Add these new keywords supported since 5.005
(ABSTRACT_FROM => 'lib/File/Remove.pm', # retrieve abstract from module
Copied: packages/libfile-remove-perl/trunk/SIGNATURE (from rev 1961, packages/libfile-remove-perl/branches/upstream/current/SIGNATURE)
Modified: packages/libfile-remove-perl/trunk/debian/changelog
===================================================================
--- packages/libfile-remove-perl/trunk/debian/changelog 2006-01-17 00:30:44 UTC (rev 1961)
+++ packages/libfile-remove-perl/trunk/debian/changelog 2006-01-17 00:35:08 UTC (rev 1962)
@@ -1,3 +1,9 @@
+libfile-remove-perl (0.31-1) unstable; urgency=low
+
+ * New upstream release
+
+ -- Gunnar Wolf <gwolf at debian.org> Mon, 16 Jan 2006 18:27:31 -0600
+
libfile-remove-perl (0.30-1) unstable; urgency=low
* New upstream release
Modified: packages/libfile-remove-perl/trunk/lib/File/Remove.pm
===================================================================
--- packages/libfile-remove-perl/trunk/lib/File/Remove.pm 2006-01-17 00:30:44 UTC (rev 1961)
+++ packages/libfile-remove-perl/trunk/lib/File/Remove.pm 2006-01-17 00:35:08 UTC (rev 1962)
@@ -103,19 +103,15 @@
use File::Spec;
use File::Path qw(rmtree);
+use File::Glob qw(bsd_glob);
-$VERSION = '0.30';
+$VERSION = '0.31';
our $glue;
sub expand (@)
{
- my @args;
-
- for (@_) {
- push @args, glob;
- }
- @args;
+ map { bsd_glob $_ } @_;
}
# acts like unlink would until given a directory as an argument, then
Modified: packages/libfile-remove-perl/trunk/t/1_directories.t
===================================================================
--- packages/libfile-remove-perl/trunk/t/1_directories.t 2006-01-17 00:30:44 UTC (rev 1961)
+++ packages/libfile-remove-perl/trunk/t/1_directories.t 2006-01-17 00:35:08 UTC (rev 1962)
@@ -92,18 +92,17 @@
}
}
-TODO: {
- local $TODO;
+SKIP: {
if ($^O eq 'darwin') {
eval 'use Mac::Glue ();';
- $TODO = "Undelete support requires Mac::Glue" if length $@;
+ skip "Undelete support requires Mac::Glue", 0 if length $@;
eval 'use Mac::Glue::Finder ();';
- $TODO = "Undelete support requires Mac::Glue::Finder" if length $@;
+ skip "Undelete support requires Mac::Glue::Finder", 0 if length $@;
} elsif ($^O eq 'cygwin' || $^O =~ /^MSWin/) {
eval 'use Win32::FileOp::Recycle;';
- $TODO = "Undelete support requires Win32::FileOp::Recycle" if length $@;
+ skip "Undelete support requires Win32::FileOp::Recycle", 0 if length $@;
} else {
- $TODO = "Undelete support not available by default";
+ skip "Undelete support not available by default", 0;
}
for my $path (@dirs) {
More information about the Pkg-perl-cvs-commits
mailing list