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:
parent
9cfb8ca626
commit
de95ea51df
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=120310
@ -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
|
||||
|
@ -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
|
||||
|
@ -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;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user