r9517 - in /branches/upstream/libfile-remove-perl/current: Changes MANIFEST META.yml lib/File/Remove.pm t/98_pod.t t/99_author.t t/99_pmv.t

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Sat Nov 17 20:10:13 UTC 2007


Author: gregoa-guest
Date: Sat Nov 17 20:10:13 2007
New Revision: 9517

URL: http://svn.debian.org/wsvn/?sc=1&rev=9517
Log:
[svn-upgrade] Integrating new upstream version, libfile-remove-perl (0.39)

Added:
    branches/upstream/libfile-remove-perl/current/t/98_pod.t
    branches/upstream/libfile-remove-perl/current/t/99_pmv.t
Removed:
    branches/upstream/libfile-remove-perl/current/t/99_author.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/lib/File/Remove.pm

Modified: branches/upstream/libfile-remove-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/Changes?rev=9517&op=diff
==============================================================================
--- branches/upstream/libfile-remove-perl/current/Changes (original)
+++ branches/upstream/libfile-remove-perl/current/Changes Sat Nov 17 20:10:13 2007
@@ -1,4 +1,8 @@
 Revision history for Perl extension File::Remove.
+
+0.39 Mon 12 Nov 2007  (Adam Kennedy)
+	- No functional changes
+	- Updating to Module::Install 0.68
 
 0.38 Mon 15 Oct 2007  (Adam Kennedy)
 	- Removed an extremely dangerous and reckless test case that tried

Modified: branches/upstream/libfile-remove-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/MANIFEST?rev=9517&op=diff
==============================================================================
--- branches/upstream/libfile-remove-perl/current/MANIFEST (original)
+++ branches/upstream/libfile-remove-perl/current/MANIFEST Sat Nov 17 20:10:13 2007
@@ -9,5 +9,6 @@
 t/03_deep_readonly.t
 t/04_can_delete.t
 t/05_links.t
-t/99_author.t
+t/98_pod.t
+t/99_pmv.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=9517&op=diff
==============================================================================
--- branches/upstream/libfile-remove-perl/current/META.yml (original)
+++ branches/upstream/libfile-remove-perl/current/META.yml Sat Nov 17 20:10:13 2007
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                File-Remove
-version:             0.38
+version:             0.39
 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=9517&op=diff
==============================================================================
--- branches/upstream/libfile-remove-perl/current/lib/File/Remove.pm (original)
+++ branches/upstream/libfile-remove-perl/current/lib/File/Remove.pm Sat Nov 17 20:10:13 2007
@@ -3,7 +3,7 @@
 use strict;
 use vars qw(@EXPORT_OK @ISA $VERSION $debug $unlink $rmdir);
 BEGIN {
-	$VERSION   = '0.38';
+	$VERSION   = '0.39';
 	@ISA       = qw(Exporter);
 	@EXPORT_OK = qw(remove rm trash); # nothing by default :)
 

Added: branches/upstream/libfile-remove-perl/current/t/98_pod.t
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/t/98_pod.t?rev=9517&op=file
==============================================================================
--- branches/upstream/libfile-remove-perl/current/t/98_pod.t (added)
+++ branches/upstream/libfile-remove-perl/current/t/98_pod.t Sat Nov 17 20:10:13 2007
@@ -1,0 +1,67 @@
+#!/usr/bin/perl
+
+use strict;
+BEGIN {
+	$|  = 1;
+	$^W = 1;
+}
+use Test::More;
+
+# Skip if doing a regular install
+unless ( $ENV{AUTOMATED_TESTING} ) {
+	plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing modules if we can
+eval "use Test::Pod 1.00";
+if ( $@ ) {
+	plan( skip_all => "Test::Pod not available for testing" );
+}
+
+all_pod_files_ok();
+exit(0);
+
+
+
+
+
+#####################################################################
+# 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/t/99_pmv.t
URL: http://svn.debian.org/wsvn/branches/upstream/libfile-remove-perl/current/t/99_pmv.t?rev=9517&op=file
==============================================================================
--- branches/upstream/libfile-remove-perl/current/t/99_pmv.t (added)
+++ branches/upstream/libfile-remove-perl/current/t/99_pmv.t Sat Nov 17 20:10:13 2007
@@ -1,0 +1,22 @@
+#!/usr/bin/perl
+
+use strict;
+BEGIN {
+	$|  = 1;
+	$^W = 1;
+}
+use Test::More;
+
+# Skip if doing a regular install
+unless ( $ENV{AUTOMATED_TESTING} ) {
+	plan( skip_all => "Author tests not required for installation" );
+}
+
+# Can we run the version tests
+eval "use Test::MinimumVersion 0.007;";
+if ( $@ ) {
+	plan( skip_all => "Test::MinimumVersion not available" );
+}
+
+# Test minimum version
+all_minimum_version_from_metayml_ok();




More information about the Pkg-perl-cvs-commits mailing list