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]

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 } );
+}