r15618 - in /branches/upstream/libfile-remove-perl/current: 97_meta.t 98_pod.t 99_pmv.t Changes MANIFEST META.yml README lib/File/Remove.pm t/06_curly.t t/98_pod.t t/99_pmv.t
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Tue Feb 26 04:25:34 UTC 2008
Author: rmayorga-guest
Date: Tue Feb 26 04:25:31 2008
New Revision: 15618
URL: http://svn.debian.org/wsvn/?sc=1&rev=15618
Log:
[svn-upgrade] Integrating new upstream version, libfile-remove-perl (1.40)
Added:
branches/upstream/libfile-remove-perl/current/97_meta.t
branches/upstream/libfile-remove-perl/current/98_pod.t
branches/upstream/libfile-remove-perl/current/99_pmv.t
branches/upstream/libfile-remove-perl/current/t/06_curly.t
Removed:
branches/upstream/libfile-remove-perl/current/t/98_pod.t
branches/upstream/libfile-remove-perl/current/t/99_pmv.t
Modified:
branches/upstream/libfile-remove-perl/current/Changes
branches/upstream/libfile-remove-perl/current/MANIFEST
branches/upstream/libfile-remove-perl/current/META.yml
branches/upstream/libfile-remove-perl/current/README
branches/upstream/libfile-remove-perl/current/lib/File/Remove.pm
Added: branches/upstream/libfile-remove-perl/current/97_meta.t
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/97_meta.t?rev=15618&op=file
==============================================================================
--- branches/upstream/libfile-remove-perl/current/97_meta.t (added)
+++ branches/upstream/libfile-remove-perl/current/97_meta.t Tue Feb 26 04:25:31 2008
@@ -1,0 +1,27 @@
+#!/usr/bin/perl
+
+# Test that our META.yml file matches the current specification.
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my $MODULE = 'Test::CPAN::Meta 0.08';
+
+# Don't run tests for installs
+use Test::More;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing module
+eval "use $MODULE";
+if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" );
+ : plan( skip_all => "$MODULE not available for testing" );
+}
+
+meta_yaml_ok();
Added: branches/upstream/libfile-remove-perl/current/98_pod.t
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/98_pod.t?rev=15618&op=file
==============================================================================
--- branches/upstream/libfile-remove-perl/current/98_pod.t (added)
+++ branches/upstream/libfile-remove-perl/current/98_pod.t Tue Feb 26 04:25:31 2008
@@ -1,0 +1,72 @@
+#!/usr/bin/perl
+
+# Test that the syntax of our POD documentation is valid
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my $MODULE = 'Test::Pod 1.00';
+
+# Don't run tests for installs
+use Test::More;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing module
+eval "use $MODULE";
+if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" );
+ : plan( skip_all => "$MODULE not available for testing" );
+}
+
+all_pod_files_ok();
+
+
+
+
+
+
+#####################################################################
+# WARNING: INSANE BLACK MAGIC
+#####################################################################
+
+# Hack Pod::Simple::BlackBox to ignore the Test::Inline
+# "Extended Begin" syntax.
+# For example, "=begin has more than one word errors"
+my $begin;
+if ( $Test::Pod::VERSION ) {
+ $begin = \&Pod::Simple::BlackBox::_ponder_begin;
+}
+sub mybegin {
+ my $para = $_[1];
+ my $content = join ' ', splice @$para, 2;
+ $content =~ s/^\s+//s;
+ $content =~ s/\s+$//s;
+ my @words = split /\s+/, $content;
+ if ( $words[0] =~ /^test(?:ing)?\z/s ) {
+ foreach ( 2 .. $#$para ) {
+ $para->[$_] = '';
+ }
+ $para->[2] = $words[0];
+ }
+
+ # Continue as normal
+ push @$para, @words;
+ return &$begin(@_);
+}
+
+SCOPE: {
+ local $^W = 0;
+ if ( $Test::Pod::VERSION ) {
+ *Pod::Simple::BlackBox::_ponder_begin = \&mybegin;
+ }
+}
+
+#####################################################################
+# END BLACK MAGIC
+#####################################################################
Added: branches/upstream/libfile-remove-perl/current/99_pmv.t
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/99_pmv.t?rev=15618&op=file
==============================================================================
--- branches/upstream/libfile-remove-perl/current/99_pmv.t (added)
+++ branches/upstream/libfile-remove-perl/current/99_pmv.t Tue Feb 26 04:25:31 2008
@@ -1,0 +1,27 @@
+#!/usr/bin/perl
+
+# Test that our declared minimum Perl version matches our syntax
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my $MODULE = 'Test::MinimumVersion 0.007';
+
+# Don't run tests for installs
+use Test::More;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing module
+eval "use $MODULE";
+if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" );
+ : plan( skip_all => "$MODULE not available for testing" );
+}
+
+all_minimum_version_from_metayml_ok();
Modified: branches/upstream/libfile-remove-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/Changes?rev=15618&op=diff
==============================================================================
--- branches/upstream/libfile-remove-perl/current/Changes (original)
+++ branches/upstream/libfile-remove-perl/current/Changes Tue Feb 26 04:25:31 2008
@@ -1,4 +1,17 @@
Revision history for Perl extension File::Remove.
+
+1.40 Sat 23 Feb 2008
+ - Dev release looks good, changing to production release
+
+1.39_01 Wed 20 Feb 2008 (Adam Kennedy)
+ - Fixed rt.cpan.org #30251 "removing dirs enclosed by curly braces"
+ - remove now ignores globbing if -e is true BEFORE globbing
+ (This should fix numerous possible failures where people are trying
+ delete strangely named files, but globbing is kicking in and
+ expanding the names incorrectly)
+ - Moving to a production-grade version to indicate module stability
+ - Adding explicit 5.005 dependency
+ (Primarily for the benefit of automated quality/anaylsis tools)
0.39 Mon 12 Nov 2007 (Adam Kennedy)
- No functional changes
Modified: branches/upstream/libfile-remove-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/MANIFEST?rev=15618&op=diff
==============================================================================
--- branches/upstream/libfile-remove-perl/current/MANIFEST (original)
+++ branches/upstream/libfile-remove-perl/current/MANIFEST Tue Feb 26 04:25:31 2008
@@ -1,3 +1,6 @@
+97_meta.t
+98_pod.t
+99_pmv.t
Changes
lib/File/Remove.pm
LICENSE
@@ -9,6 +12,5 @@
t/03_deep_readonly.t
t/04_can_delete.t
t/05_links.t
-t/98_pod.t
-t/99_pmv.t
+t/06_curly.t
META.yml Module meta-data (added by MakeMaker)
Modified: branches/upstream/libfile-remove-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/META.yml?rev=15618&op=diff
==============================================================================
--- branches/upstream/libfile-remove-perl/current/META.yml (original)
+++ branches/upstream/libfile-remove-perl/current/META.yml Tue Feb 26 04:25:31 2008
@@ -1,9 +1,11 @@
--- #YAML:1.0
name: File-Remove
-version: 0.39
+version: 1.40
abstract: Remove files and directories
license: ~
-generated_by: ExtUtils::MakeMaker version 6.32
+author:
+ - Richard Soderberg <rs at localdomain>
+generated_by: ExtUtils::MakeMaker version 6.42
distribution_type: module
requires:
File::Copy: 0
@@ -11,7 +13,5 @@
File::Path: 0
File::Spec: 0.84
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
-author:
- - Richard Soderberg <rs at localdomain>
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Modified: branches/upstream/libfile-remove-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/README?rev=15618&op=diff
==============================================================================
--- branches/upstream/libfile-remove-perl/current/README (original)
+++ branches/upstream/libfile-remove-perl/current/README Tue Feb 26 04:25:31 2008
@@ -73,7 +73,6 @@
Original copyright: (c) 1998 by Gabor Egressy, <gabor at vmunix.com>.
- All rights reserved. All wrongs reversed. This program is free software;
- you can redistribute and/or modify it under the same terms as Perl
- itself.
+ This program is free software; you can redistribute and/or modify it
+ under the same terms as Perl itself.
Modified: branches/upstream/libfile-remove-perl/current/lib/File/Remove.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/lib/File/Remove.pm?rev=15618&op=diff
==============================================================================
--- branches/upstream/libfile-remove-perl/current/lib/File/Remove.pm (original)
+++ branches/upstream/libfile-remove-perl/current/lib/File/Remove.pm Tue Feb 26 04:25:31 2008
@@ -1,9 +1,10 @@
package File::Remove;
+use 5.005;
use strict;
use vars qw(@EXPORT_OK @ISA $VERSION $debug $unlink $rmdir);
BEGIN {
- $VERSION = '0.39';
+ $VERSION = '1.40';
@ISA = qw(Exporter);
@EXPORT_OK = qw(remove rm trash); # nothing by default :)
@@ -20,7 +21,7 @@
use File::Glob ();
sub expand (@) {
- map { File::Glob::bsd_glob($_) } @_;
+ map { -e $_ ? $_ : File::Glob::bsd_glob($_) } @_;
}
# $debug variable must be set before loading File::Remove.
@@ -276,7 +277,7 @@
Original copyright: (c) 1998 by Gabor Egressy, E<lt>gabor at vmunix.comE<gt>.
-All rights reserved. All wrongs reversed. This program is free software;
-you can redistribute and/or modify it under the same terms as Perl itself.
+This program is free software; you can redistribute and/or modify it under
+the same terms as Perl itself.
=cut
Added: branches/upstream/libfile-remove-perl/current/t/06_curly.t
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/t/06_curly.t?rev=15618&op=file
==============================================================================
--- branches/upstream/libfile-remove-perl/current/t/06_curly.t (added)
+++ branches/upstream/libfile-remove-perl/current/t/06_curly.t Tue Feb 26 04:25:31 2008
@@ -1,0 +1,37 @@
+#!/usr/bin/perl
+
+# Regression test for rt.cpan.org #30251.
+
+# Test that a directory called '{1234}' is deleted correctly.
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+use Test::More tests => 6;
+use File::Spec ();
+use File::Remove ();
+
+# Create the test directory
+my $dir = '{1234}';
+my $path = File::Spec->catdir( 't', '{1234}' );
+unless ( -e $path ) {
+ mkdir( $path );
+}
+ok( -e $path, "Test directory $path exists" );
+
+# Delete the test directory
+my @removed = File::Remove::remove( \1, $path );
+is_deeply( \@removed, [ $path ], 'remove returns as expected' );
+ok( ! -e $path, "remove deletes the $path directory" );
+
+# Repeat the tests on a dir named {1234} in the root path
+unless ( -e $dir ) {
+ mkdir( $dir );
+}
+ok( -e $dir, "Test directory $dir exists" );
+ at removed = File::Remove::remove( \1, $dir );
+is_deeply( \@removed, [ $dir ], 'remove returns as expected' );
+ok( ! -e $path, "remove delete the $dir directory" );
More information about the Pkg-perl-cvs-commits
mailing list