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