1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-28 05:29:48 +00:00

Update to version 1.11.

This commit is contained in:
Dmitry Sivachenko 2004-10-27 12:28:35 +00:00
parent 9cfb8ca626
commit de95ea51df
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=120310
3 changed files with 15 additions and 14 deletions

View File

@ -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

View File

@ -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

View File

@ -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( <FH> )
{
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;
}