r8282 - in /branches/upstream/libfile-remove-perl/current: Changes META.yml lib/File/Remove.pm t/05_links.t t/99_author.t
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Tue Oct 16 19:41:29 UTC 2007
Author: dmn
Date: Tue Oct 16 19:41:29 2007
New Revision: 8282
URL: http://svn.debian.org/wsvn/?sc=1&rev=8282
Log:
[svn-upgrade] Integrating new upstream version, libfile-remove-perl (0.38)
Modified:
branches/upstream/libfile-remove-perl/current/Changes
branches/upstream/libfile-remove-perl/current/META.yml
branches/upstream/libfile-remove-perl/current/lib/File/Remove.pm
branches/upstream/libfile-remove-perl/current/t/05_links.t
branches/upstream/libfile-remove-perl/current/t/99_author.t
Modified: branches/upstream/libfile-remove-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/Changes?rev=8282&op=diff
==============================================================================
--- branches/upstream/libfile-remove-perl/current/Changes (original)
+++ branches/upstream/libfile-remove-perl/current/Changes Tue Oct 16 19:41:29 2007
@@ -1,4 +1,9 @@
Revision history for Perl extension File::Remove.
+
+0.38 Mon 15 Oct 2007 (Adam Kennedy)
+ - Removed an extremely dangerous and reckless test case that tried
+ to delete a soft link to root and (when it failed) deleted the
+ actual root directory.
0.37 Sun 8 Jul 2007 (Adam Kennedy)
- Restoring support for broken symlinks (Marek Rouchal)
Modified: branches/upstream/libfile-remove-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/META.yml?rev=8282&op=diff
==============================================================================
--- branches/upstream/libfile-remove-perl/current/META.yml (original)
+++ branches/upstream/libfile-remove-perl/current/META.yml Tue Oct 16 19:41:29 2007
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: File-Remove
-version: 0.37
+version: 0.38
abstract: Remove files and directories
license: ~
generated_by: ExtUtils::MakeMaker version 6.32
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=8282&op=diff
==============================================================================
--- branches/upstream/libfile-remove-perl/current/lib/File/Remove.pm (original)
+++ branches/upstream/libfile-remove-perl/current/lib/File/Remove.pm Tue Oct 16 19:41:29 2007
@@ -3,7 +3,7 @@
use strict;
use vars qw(@EXPORT_OK @ISA $VERSION $debug $unlink $rmdir);
BEGIN {
- $VERSION = '0.37';
+ $VERSION = '0.38';
@ISA = qw(Exporter);
@EXPORT_OK = qw(remove rm trash); # nothing by default :)
Modified: branches/upstream/libfile-remove-perl/current/t/05_links.t
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/t/05_links.t?rev=8282&op=diff
==============================================================================
--- branches/upstream/libfile-remove-perl/current/t/05_links.t (original)
+++ branches/upstream/libfile-remove-perl/current/t/05_links.t Tue Oct 16 19:41:29 2007
@@ -30,7 +30,7 @@
ok( -d $testdir, 'Created testdir' );
my %links = (
l_ex => curdir(),
- l_ex_a => rootdir(),
+# l_ex_a => rootdir(),
l_nex => 'does_not_exist'
);
my $errs = 0;
Modified: branches/upstream/libfile-remove-perl/current/t/99_author.t
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/t/99_author.t?rev=8282&op=diff
==============================================================================
--- branches/upstream/libfile-remove-perl/current/t/99_author.t (original)
+++ branches/upstream/libfile-remove-perl/current/t/99_author.t Tue Oct 16 19:41:29 2007
@@ -12,11 +12,11 @@
plan( skip_all => "Author tests not required for installation" );
}
-# Can we run the POD tests?
+# Load the testing modules
eval "use Test::Pod 1.00";
-if ( $@ ) {
- plan( skip_all => "Test::Pod 1.00 required for testing POD" );
-}
+
+# Can we run the version tests
+eval "use Test::MinimumVersion 0.007;";
@@ -29,7 +29,10 @@
# Hack Pod::Simple::BlackBox to ignore the Test::Inline
# "Extended Begin" syntax.
# For example, "=begin has more than one word errors"
-my $begin = \&Pod::Simple::BlackBox::_ponder_begin;
+my $begin;
+if ( $Test::Pod::VERSION ) {
+ $begin = \&Pod::Simple::BlackBox::_ponder_begin;
+}
sub mybegin {
my $para = $_[1];
my $content = join ' ', splice @$para, 2;
@@ -50,12 +53,24 @@
SCOPE: {
local $^W = 0;
- *Pod::Simple::BlackBox::_ponder_begin = \&mybegin;
+ if ( $Test::Pod::VERSION ) {
+ *Pod::Simple::BlackBox::_ponder_begin = \&mybegin;
+ }
}
#####################################################################
# END BLACK MAGIC
#####################################################################
+plan( 'no_plan' );
+ok( 1, "Running author tests" );
+
# Test POD
-all_pod_files_ok();
+if ( $Test::Pod::VERSION ) {
+ all_pod_files_ok();
+}
+
+# Test version
+if ( $Test::MinimumVersion::VERSION ) {
+ all_minimum_version_from_metayml_ok( { no_plan => 1 } );
+}
More information about the Pkg-perl-cvs-commits
mailing list