r25930 - in /trunk/libfile-copy-recursive-perl: Changes META.yml README Recursive.pm debian/changelog debian/compat debian/control debian/copyright debian/rules
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sat Oct 11 11:55:25 UTC 2008
Author: ansgar-guest
Date: Sat Oct 11 11:55:22 2008
New Revision: 25930
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25930
Log:
* New upstream release.
* debian/control: Fix typo in Vcs-Svn field.
* Add myself to Uploaders.
* Refresh debian/rules for debhelper 7.
* Convert debian/copyright to proposed machine-readable format.
* debian/control: Bump Standards-Version to 3.8.0 (no changes)
Modified:
trunk/libfile-copy-recursive-perl/Changes
trunk/libfile-copy-recursive-perl/META.yml
trunk/libfile-copy-recursive-perl/README
trunk/libfile-copy-recursive-perl/Recursive.pm
trunk/libfile-copy-recursive-perl/debian/changelog
trunk/libfile-copy-recursive-perl/debian/compat
trunk/libfile-copy-recursive-perl/debian/control
trunk/libfile-copy-recursive-perl/debian/copyright
trunk/libfile-copy-recursive-perl/debian/rules
Modified: trunk/libfile-copy-recursive-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-copy-recursive-perl/Changes?rev=25930&op=diff
==============================================================================
--- trunk/libfile-copy-recursive-perl/Changes (original)
+++ trunk/libfile-copy-recursive-perl/Changes Sat Oct 11 11:55:22 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: trunk/libfile-copy-recursive-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-copy-recursive-perl/META.yml?rev=25930&op=diff
==============================================================================
--- trunk/libfile-copy-recursive-perl/META.yml (original)
+++ trunk/libfile-copy-recursive-perl/META.yml Sat Oct 11 11:55:22 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: trunk/libfile-copy-recursive-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-copy-recursive-perl/README?rev=25930&op=diff
==============================================================================
--- trunk/libfile-copy-recursive-perl/README (original)
+++ trunk/libfile-copy-recursive-perl/README Sat Oct 11 11:55:22 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: trunk/libfile-copy-recursive-perl/Recursive.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-copy-recursive-perl/Recursive.pm?rev=25930&op=diff
==============================================================================
--- trunk/libfile-copy-recursive-perl/Recursive.pm (original)
+++ trunk/libfile-copy-recursive-perl/Recursive.pm Sat Oct 11 11:55:22 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>
Modified: trunk/libfile-copy-recursive-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-copy-recursive-perl/debian/changelog?rev=25930&op=diff
==============================================================================
--- trunk/libfile-copy-recursive-perl/debian/changelog (original)
+++ trunk/libfile-copy-recursive-perl/debian/changelog Sat Oct 11 11:55:22 2008
@@ -1,3 +1,14 @@
+libfile-copy-recursive-perl (0.37-1) unstable; urgency=low
+
+ * New upstream release.
+ * debian/control: Fix typo in Vcs-Svn field.
+ * Add myself to Uploaders.
+ * Refresh debian/rules for debhelper 7.
+ * Convert debian/copyright to proposed machine-readable format.
+ * debian/control: Bump Standards-Version to 3.8.0 (no changes)
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Sat, 11 Oct 2008 13:54:24 +0200
+
libfile-copy-recursive-perl (0.36-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libfile-copy-recursive-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-copy-recursive-perl/debian/compat?rev=25930&op=diff
==============================================================================
--- trunk/libfile-copy-recursive-perl/debian/compat (original)
+++ trunk/libfile-copy-recursive-perl/debian/compat Sat Oct 11 11:55:22 2008
@@ -1,1 +1,1 @@
-6
+7
Modified: trunk/libfile-copy-recursive-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-copy-recursive-perl/debian/control?rev=25930&op=diff
==============================================================================
--- trunk/libfile-copy-recursive-perl/debian/control (original)
+++ trunk/libfile-copy-recursive-perl/debian/control Sat Oct 11 11:55:22 2008
@@ -1,21 +1,21 @@
Source: libfile-copy-recursive-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 6)
-Build-Depends-Indep: perl (>= 5.8.0-7),
+Build-Depends: debhelper (>= 7)
+Build-Depends-Indep: perl (>= 5.8.0-7)
Uploaders: Krzysztof Krzyżaniak (eloy) <eloy at debian.org>,
- gregor herrmann <gregor+debian at comodo.priv.at>
+ gregor herrmann <gregor+debian at comodo.priv.at>,
+ Ansgar Burchardt <ansgar at 43-1.org>
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Standards-Version: 3.7.3
+Standards-Version: 3.8.0
Homepage: http://search.cpan.org/dist/File-Copy-Recursive/
-Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libfile-copy-reursive-perl/
+Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libfile-copy-recursive-perl/
Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-copy-recursive-perl/
-
Package: libfile-copy-recursive-perl
Architecture: all
-Depends: ${perl:Depends}, ${misc:Depends},
-Description: Perl extension for recursively copying files and directories
+Depends: ${perl:Depends}, ${misc:Depends}
+Description: Perl extension for recursively copying files and directories
File::Copy::Recursive module copies and moves directories recursively
(or single files, well... singley) to an optional depth and attempts
to preserve each file or directory's mode.
Modified: trunk/libfile-copy-recursive-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-copy-recursive-perl/debian/copyright?rev=25930&op=diff
==============================================================================
--- trunk/libfile-copy-recursive-perl/debian/copyright (original)
+++ trunk/libfile-copy-recursive-perl/debian/copyright Sat Oct 11 11:55:22 2008
@@ -1,24 +1,25 @@
-This is the debian package for the File-Copy-Recursive module.
-It was created by Krzysztof Krzyzaniak (eloy) <eloy at debian.org>.
+Format-Specification: http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=228
+Upstream-Name: File-Copy-Recursive
+Upstream-Maintainer: Daniel Muey
+Upstream-Source: http://search.cpan.org/dist/File-Copy-Recursive/
-It was downloaded from
-http://search.cpan.org/dist/File-Copy-Recursive/
+Files: *
+Copyright: © 2004, Daniel Muey
+License: GPL-1+ | Artistic
+ This library is free software; you can redistribute it and/or modify
+ it under the same terms as Perl itself.
+ .
+ Perl is distributed under your choice of the GNU General Public License or
+ the Artistic License. On Debian GNU/Linux systems, the complete text of the
+ GNU General Public License can be found in `/usr/share/common-licenses/GPL'
+ and the Artistic Licence in `/usr/share/common-licenses/Artistic'.
-The upstream author is: Daniel Muey <dmuey at cpan.org>
+Files: debian/*
+Copyright:
+ © 2005-2008, Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
+ © 2008, gregor herrmann <gregoa at debian.org>
+ © 2008, Ansgar Burchardt <ansgar at 43-1.org>
+License: GPL-1+ | Artistic
+ It is assumed that all contributors put their work under the same license
+ as the module itself.
-Copyright 2004 by Daniel Muey
-
-This program is free software, you can redistribute it and/or modify it under
-the same terms as Perl itself.
-
-Perl is distributed under licenses:
-
- a) the GNU General Public License as published by the Free Software
- Foundation; either version 1, or (at your option) any later
- version, or
-
- b) the "Artistic License" which comes with Perl.
-
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in /usr/share/common-licenses/GPL' and
- the Artistic Licence in /usr/share/common-licenses/Artistic'.
Modified: trunk/libfile-copy-recursive-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-copy-recursive-perl/debian/rules?rev=25930&op=diff
==============================================================================
--- trunk/libfile-copy-recursive-perl/debian/rules (original)
+++ trunk/libfile-copy-recursive-perl/debian/rules Sat Oct 11 11:55:22 2008
@@ -1,60 +1,23 @@
#!/usr/bin/make -f
-# This debian/rules file is provided as a template for normal perl
-# packages. It was created by Marc Brockschmidt <marc at dch-faq.de> for
-# the Debian Perl Group (http://pkg-perl.alioth.debian.org/) but may
-# be used freely wherever it is useful.
-
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-# If set to a true value then MakeMaker's prompt function will
-# always return the default without waiting for user input.
-export PERL_MM_USE_DEFAULT=1
-
-PERL ?= /usr/bin/perl
-PACKAGE = $(shell dh_listpackages)
-TMP = $(CURDIR)/debian/$(PACKAGE)
build: build-stamp
build-stamp:
- dh_testdir
- $(PERL) Makefile.PL INSTALLDIRS=vendor
- $(MAKE)
- $(MAKE) test
+ dh build
touch $@
clean:
- dh_testdir
- dh_testroot
- dh_clean build-stamp install-stamp
- [ ! -f Makefile ] || $(MAKE) realclean
+ dh $@
install: install-stamp
install-stamp: build-stamp
- dh_testdir
- dh_testroot
- dh_clean -k
- $(MAKE) install DESTDIR=$(TMP) PREFIX=/usr
- [ ! -d $(TMP)/usr/lib/perl5 ] || \
- rmdir --ignore-fail-on-non-empty --parents --verbose \
- $(TMP)/usr/lib/perl5
+ dh install
touch $@
binary-arch:
-# We have nothing to do here for an architecture-independent package
-binary-indep: build install
- dh_testdir
- dh_testroot
- dh_installdocs
- dh_installchangelogs Changes
- dh_perl
- dh_compress
- dh_fixperms
- dh_installdeb
- dh_gencontrol
- dh_md5sums
- dh_builddeb
+binary-indep: install
+ dh $@
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install
+binary: binary-arch binary-indep
+
+.PHONY: binary binary-arch binary-indep install clean build
More information about the Pkg-perl-cvs-commits
mailing list