r77394 - in /trunk/libfile-remove-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/File/ t/
fabreg-guest at users.alioth.debian.org
fabreg-guest at users.alioth.debian.org
Tue Jul 12 08:42:48 UTC 2011
Author: fabreg-guest
Date: Tue Jul 12 08:42:46 2011
New Revision: 77394
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=77394
Log:
New upstream release
Modified:
trunk/libfile-remove-perl/Changes
trunk/libfile-remove-perl/META.yml
trunk/libfile-remove-perl/Makefile.PL
trunk/libfile-remove-perl/debian/changelog
trunk/libfile-remove-perl/inc/Module/Install.pm
trunk/libfile-remove-perl/inc/Module/Install/Base.pm
trunk/libfile-remove-perl/inc/Module/Install/Can.pm
trunk/libfile-remove-perl/inc/Module/Install/DSL.pm
trunk/libfile-remove-perl/inc/Module/Install/Fetch.pm
trunk/libfile-remove-perl/inc/Module/Install/Makefile.pm
trunk/libfile-remove-perl/inc/Module/Install/Metadata.pm
trunk/libfile-remove-perl/inc/Module/Install/Win32.pm
trunk/libfile-remove-perl/inc/Module/Install/WriteAll.pm
trunk/libfile-remove-perl/lib/File/Remove.pm
trunk/libfile-remove-perl/t/01_compile.t
trunk/libfile-remove-perl/t/04_can_delete.t
trunk/libfile-remove-perl/t/05_links.t
Modified: trunk/libfile-remove-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/Changes?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/Changes (original)
+++ trunk/libfile-remove-perl/Changes Tue Jul 12 08:42:46 2011
@@ -1,4 +1,7 @@
Revision history for Perl extension File-Remove
+
+1.50 Mon 11 Jul 2011 - Adam Kennedy
+ - Adding a second skip for the known-bad cygwin file permissions problem
1.49 Wed 14 Mar 2011 - Adam Kennedy
- Restoring 02_directoreis to no_plan as it runs different test counts
Modified: trunk/libfile-remove-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/META.yml?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/META.yml (original)
+++ trunk/libfile-remove-perl/META.yml Tue Jul 12 08:42:46 2011
@@ -8,7 +8,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 1.00'
+generated_by: 'Module::Install version 1.01'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -28,4 +28,4 @@
ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/File-Remove
license: http://dev.perl.org/licenses/
repository: http://svn.ali.as/cpan/trunk/File-Remove
-version: 1.49
+version: 1.50
Modified: trunk/libfile-remove-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/Makefile.PL?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/Makefile.PL (original)
+++ trunk/libfile-remove-perl/Makefile.PL Tue Jul 12 08:42:46 2011
@@ -1,4 +1,4 @@
-use inc::Module::Install::DSL 1.00;
+use inc::Module::Install::DSL 1.01;
all_from lib/File/Remove.pm
requires_from lib/File/Remove.pm
Modified: trunk/libfile-remove-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/debian/changelog?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/debian/changelog (original)
+++ trunk/libfile-remove-perl/debian/changelog Tue Jul 12 08:42:46 2011
@@ -1,11 +1,15 @@
-libfile-remove-perl (1.49-1) UNRELEASED; urgency=low
-
+libfile-remove-perl (1.50-1) UNRELEASED; urgency=low
+
+ [ Jonathan Yu ]
Some test changes, no need to upload unless FTBFS issues arise
IGNORE-VERSION: 1.49-1
* New upstream release
- -- Jonathan Yu <jawnsy at cpan.org> Wed, 16 Mar 2011 20:00:50 -0400
+ [ Fabrizio Regalli ]
+ * New upstream release
+
+ -- Fabrizio Regalli <fabreg at fabreg.it> Tue, 12 Jul 2011 10:42:11 +0200
libfile-remove-perl (1.48-1) unstable; urgency=low
Modified: trunk/libfile-remove-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/inc/Module/Install.pm?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/inc/Module/Install.pm (original)
+++ trunk/libfile-remove-perl/inc/Module/Install.pm Tue Jul 12 08:42:46 2011
@@ -31,7 +31,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '1.00';
+ $VERSION = '1.01';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -467,4 +467,4 @@
1;
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2011 Adam Kennedy.
Modified: trunk/libfile-remove-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/inc/Module/Install/Base.pm?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libfile-remove-perl/inc/Module/Install/Base.pm Tue Jul 12 08:42:46 2011
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
}
# Suspend handler for "redefined" warnings
Modified: trunk/libfile-remove-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/inc/Module/Install/Can.pm?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/inc/Module/Install/Can.pm (original)
+++ trunk/libfile-remove-perl/inc/Module/Install/Can.pm Tue Jul 12 08:42:46 2011
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libfile-remove-perl/inc/Module/Install/DSL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/inc/Module/Install/DSL.pm?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/inc/Module/Install/DSL.pm (original)
+++ trunk/libfile-remove-perl/inc/Module/Install/DSL.pm Tue Jul 12 08:42:46 2011
@@ -4,7 +4,7 @@
use strict;
use vars qw{$VERSION $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
$ISCORE = 1;
*inc::Module::Install::DSL::VERSION = *VERSION;
@inc::Module::Install::DSL::ISA = __PACKAGE__;
Modified: trunk/libfile-remove-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/inc/Module/Install/Fetch.pm?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/libfile-remove-perl/inc/Module/Install/Fetch.pm Tue Jul 12 08:42:46 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libfile-remove-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/inc/Module/Install/Makefile.pm?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libfile-remove-perl/inc/Module/Install/Makefile.pm Tue Jul 12 08:42:46 2011
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libfile-remove-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/inc/Module/Install/Metadata.pm?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libfile-remove-perl/inc/Module/Install/Metadata.pm Tue Jul 12 08:42:46 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -515,6 +515,7 @@
'GNU Free Documentation license' => 'unrestricted', 1,
'GNU Affero General Public License' => 'open_source', 1,
'(?:Free)?BSD license' => 'bsd', 1,
+ 'Artistic license 2\.0' => 'artistic_2', 1,
'Artistic license' => 'artistic', 1,
'Apache (?:Software )?license' => 'apache', 1,
'GPL' => 'gpl', 1,
@@ -550,9 +551,9 @@
sub _extract_bugtracker {
my @links = $_[0] =~ m#L<(
- \Qhttp://rt.cpan.org/\E[^>]+|
- \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
- \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
+ https?\Q://rt.cpan.org/\E[^>]+|
+ https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+ https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
)>#gx;
my %links;
@links{@links}=();
Modified: trunk/libfile-remove-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/inc/Module/Install/Win32.pm?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/libfile-remove-perl/inc/Module/Install/Win32.pm Tue Jul 12 08:42:46 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libfile-remove-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/inc/Module/Install/WriteAll.pm?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/libfile-remove-perl/inc/Module/Install/WriteAll.pm Tue Jul 12 08:42:46 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libfile-remove-perl/lib/File/Remove.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/lib/File/Remove.pm?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/lib/File/Remove.pm (original)
+++ trunk/libfile-remove-perl/lib/File/Remove.pm Tue Jul 12 08:42:46 2011
@@ -6,24 +6,17 @@
use vars qw{ $VERSION @ISA @EXPORT_OK };
use vars qw{ $DEBUG $unlink $rmdir };
BEGIN {
- $VERSION = '1.49';
+ $VERSION = '1.50';
# $VERSION = eval $VERSION;
@ISA = qw{ Exporter };
@EXPORT_OK = qw{ remove rm clear trash };
}
-
-# If we ever need a Mac::Glue object we will want to cache it.
-my $glue;
use File::Path ();
use File::Glob ();
use File::Spec 3.2701 ();
use Cwd 3.2701 ();
-sub expand (@) {
- map { -e $_ ? $_ : File::Glob::bsd_glob($_) } @_;
-}
-
# $debug variable must be set before loading File::Remove.
# Convert to a constant to allow debugging code to be pruned out.
use constant DEBUG => !! $DEBUG;
@@ -40,6 +33,9 @@
# If so write permissions does not imply deletion permissions
use constant IS_WIN32 => !! ( $^O =~ /^MSWin/ or $^O eq 'cygwin' );
+# If we ever need a Mac::Glue object we will want to cache it.
+my $glue;
+
@@ -47,7 +43,7 @@
#####################################################################
# Main Functions
-my @END_DELETE = ();
+my @CLEANUP = ();
sub clear (@) {
my @files = expand( @_ );
@@ -59,17 +55,17 @@
}
# Delete again at END-time
- push @END_DELETE, @files;
+ push @CLEANUP, @files;
}
END {
- foreach my $file ( @END_DELETE ) {
+ foreach my $file ( @CLEANUP ) {
next unless -e $file;
remove( \1, $file );
}
}
-# acts like unlink would until given a directory as an argument, then
+# Acts like unlink would until given a directory as an argument, then
# it acts like rm -rf ;) unless the recursive arg is zero which it is by
# default
sub remove (@) {
@@ -223,6 +219,10 @@
######################################################################
# Support Functions
+sub expand (@) {
+ map { -e $_ ? $_ : File::Glob::bsd_glob($_) } @_;
+}
+
# Do we need to move to a different directory to delete a directory,
# and if so which.
sub _moveto {
Modified: trunk/libfile-remove-perl/t/01_compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/t/01_compile.t?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/t/01_compile.t (original)
+++ trunk/libfile-remove-perl/t/01_compile.t Tue Jul 12 08:42:46 2011
@@ -8,8 +8,6 @@
$^W = 1;
}
-use Test::More tests => 2;
-
-ok( $] >= 5.00503, "Your perl is new enough" );
+use Test::More tests => 1;
use_ok( 'File::Remove' );
Modified: trunk/libfile-remove-perl/t/04_can_delete.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/t/04_can_delete.t?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/t/04_can_delete.t (original)
+++ trunk/libfile-remove-perl/t/04_can_delete.t Tue Jul 12 08:42:46 2011
@@ -44,7 +44,10 @@
if ( $^O ne 'MSWin32' and $< == 0 ) {
skip("This test doesn't work as root", 1);
}
- ok( ! -w $f3, "Created $f3 ! -w" );
+ if ( $^O eq 'cygwin' ) {
+ skip("Fails on some cygwin and shouldn't prevent install",1);
+ }
+ ok( ! -w $f3, "Created $f3 ! -w" );
};
}
Modified: trunk/libfile-remove-perl/t/05_links.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-remove-perl/t/05_links.t?rev=77394&op=diff
==============================================================================
--- trunk/libfile-remove-perl/t/05_links.t (original)
+++ trunk/libfile-remove-perl/t/05_links.t Tue Jul 12 08:42:46 2011
@@ -11,7 +11,7 @@
use File::Remove ();
unless( eval { symlink("",""); 1 } ) {
- plan("skip_all" => "Operating system does not support Unix-like symlinks");
+ plan("skip_all" => "No Unix-like symlinks");
exit(0);
}
More information about the Pkg-perl-cvs-commits
mailing list