diff --git a/devel/p5-Test-Manifest/Makefile b/devel/p5-Test-Manifest/Makefile index 3805a78a3f59..3bfe435ccada 100644 --- a/devel/p5-Test-Manifest/Makefile +++ b/devel/p5-Test-Manifest/Makefile @@ -6,8 +6,7 @@ # PORTNAME= Test-Manifest -PORTVERSION= 0.93 -PORTREVISION= 1 +PORTVERSION= 1.11 CATEGORIES= devel perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= Test diff --git a/devel/p5-Test-Manifest/distinfo b/devel/p5-Test-Manifest/distinfo index 35d6603dbaf0..c2342ba337cd 100644 --- a/devel/p5-Test-Manifest/distinfo +++ b/devel/p5-Test-Manifest/distinfo @@ -1,2 +1,2 @@ -MD5 (Test-Manifest-0.93.tar.gz) = a46b6185410c2fd8b1a2efd6fea94d9e -SIZE (Test-Manifest-0.93.tar.gz) = 3503 +MD5 (Test-Manifest-1.11.tar.gz) = 6191645d223be819120b540fdf2c6cc9 +SIZE (Test-Manifest-1.11.tar.gz) = 4534 diff --git a/devel/p5-Test-Manifest/files/5.005_03-lib::Manifest.pm b/devel/p5-Test-Manifest/files/5.005_03-lib::Manifest.pm index bca7d2e95035..d8c9946b1574 100644 --- a/devel/p5-Test-Manifest/files/5.005_03-lib::Manifest.pm +++ b/devel/p5-Test-Manifest/files/5.005_03-lib::Manifest.pm @@ -1,33 +1,35 @@ ---- lib/Manifest.pm.orig Fri Feb 20 20:11:18 2004 -+++ lib/Manifest.pm Sun Jun 6 16:35:27 2004 -@@ -102,17 +102,17 @@ +--- lib/Manifest.pm.orig Sun Sep 26 03:42:46 2004 ++++ lib/Manifest.pm Wed Oct 27 16:25:38 2004 +@@ -135,11 +135,11 @@ sub get_t_files() { carp( "$Manifest does not exist!" ) unless -e $Manifest; - return unless open my( $fh ), $Manifest; + return unless open FH, $Manifest; - + my @tests = (); - + - while( <$fh> ) + while( ) { chomp; + s/^\s+|\s+$//g; +@@ -147,7 +147,7 @@ carp( "test file begins with t/ [$_]" ) if m|^t/|; - push @tests, "t/$_" if -e "t/$_"; + push @tests, catfile( "t", $_ ) if -e catfile( "t", $_ ); } - close $fh; + close FH; - + return wantarray ? @tests : join " ", @tests; } -@@ -131,16 +131,16 @@ +@@ -166,16 +166,16 @@ sub make_test_manifest() { carp( "t/ directory does not exist!" ) unless -d "t"; - return unless open my( $fh ), "> $Manifest"; + return unless open FH, "> $Manifest"; - + my $count = 0; while( my $file = glob("t/*.t") ) { @@ -38,6 +40,6 @@ } - close $fh; + close FH; - + return $count; }