r25928 - in /branches/upstream/libfile-copy-recursive-perl/current: Changes META.yml README Recursive.pm

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Sat Oct 11 11:41:20 2008
New Revision: 25928

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25928
Log:
[svn-upgrade] Integrating new upstream version, libfile-copy-recursive-perl (0.37)

Modified:
    branches/upstream/libfile-copy-recursive-perl/current/Changes
    branches/upstream/libfile-copy-recursive-perl/current/META.yml
    branches/upstream/libfile-copy-recursive-perl/current/README
    branches/upstream/libfile-copy-recursive-perl/current/Recursive.pm

Modified: branches/upstream/libfile-copy-recursive-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-copy-recursive-perl/current/Changes?rev=25928&op=diff
==============================================================================
--- branches/upstream/libfile-copy-recursive-perl/current/Changes (original)
+++ branches/upstream/libfile-copy-recursive-perl/current/Changes Sat Oct 11 11:41:20 2008
@@ -1,5 +1,10 @@
 Revision history for Perl extension File::Copy::Recursive.
 
+0.37  Thu Oct  9 11:52:54 2008
+    - rt 38959 POD fix ups
+    - improved rcopy() symlink logic and do &goto; to preserve the stack
+    - added "tests" to the TODO list, patches welcome!
+    
 0.36  Wed Apr 16 15:32:36 2008
     - made all bareword file handles be lexical variables if the perl is new enough to support it (5.6.0 and up, see 'Indirect Filehandles' in perlopentut)
 

Modified: branches/upstream/libfile-copy-recursive-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-copy-recursive-perl/current/META.yml?rev=25928&op=diff
==============================================================================
--- branches/upstream/libfile-copy-recursive-perl/current/META.yml (original)
+++ branches/upstream/libfile-copy-recursive-perl/current/META.yml Sat Oct 11 11:41:20 2008
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         File-Copy-Recursive
-version:      0.36
+version:      0.37
 version_from: Recursive.pm
 installdirs:  site
 requires:

Modified: branches/upstream/libfile-copy-recursive-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-copy-recursive-perl/current/README?rev=25928&op=diff
==============================================================================
--- branches/upstream/libfile-copy-recursive-perl/current/README (original)
+++ branches/upstream/libfile-copy-recursive-perl/current/README Sat Oct 11 11:41:20 2008
@@ -1,4 +1,4 @@
-File/Copy/Recursive version 0.36
+File/Copy/Recursive version 0.37
 ================================
 
 This module has 3 functions, one to copy files only, one to copy directories 

Modified: branches/upstream/libfile-copy-recursive-perl/current/Recursive.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-copy-recursive-perl/current/Recursive.pm?rev=25928&op=diff
==============================================================================
--- branches/upstream/libfile-copy-recursive-perl/current/Recursive.pm (original)
+++ branches/upstream/libfile-copy-recursive-perl/current/Recursive.pm Sat Oct 11 11:41:20 2008
@@ -20,7 +20,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(fcopy rcopy dircopy fmove rmove dirmove pathmk pathrm pathempty pathrmdir);
-$VERSION = '0.36';
+$VERSION = '0.37';
 
 $MaxDepth = 0;
 $KeepMode = 1;
@@ -146,8 +146,12 @@
 }
 
 sub rcopy { 
-    -d $_[0] || substr( $_[0], ( 1 * -1), 1) eq '*' ? dircopy(@_) 
-                                                    : fcopy(@_); 
+    if (-l $_[0] && $CopyLink) {
+        goto &fcopy;    
+    }
+    
+    goto &dircopy if -d $_[0] || substr( $_[0], ( 1 * -1), 1) eq '*';
+    goto &fcopy;
 }
 
 sub dircopy {
@@ -508,7 +512,7 @@
 =head4 pathrmdir()
 
 Same as rmdir() but it calls pathempty() first to recursively empty it first since rmdir can not remove a directory with contents.
-Just removes the top directory the path given insetad of the entire path like pathrm(). Return 2 if the given argument is not a directory.
+Just removes the top directory the path given instead of the entire path like pathrm(). Return 2 if given argument does not exist (IE its already gone). Return false if it exists but is not a directory.
 
 =head2 Preserving Mode
 
@@ -627,6 +631,8 @@
 
 I'll add this after the latest verision has been out for a while with no new features or issues found :)
 
+Tests tests and more tests
+
 =head1 AUTHOR
 
 Daniel Muey, L<http://drmuey.com/cpan_contact.pl>