sync/ports
1
0
Fork 0
mirror of https://git.freebsd.org/ports.git synced 2025-07-18 17:59:20 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

This module require perl 5.6 or newer.

Browse source
This commit is contained in:
Dmitry Sivachenko 2004-11-04 09:22:40 +00:00
parent 6c3a9c4f95
commit 613dabc893
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=120757
2 changed files with 4 additions and 47 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
devel/p5-Test-Manifest/Makefile
View file

@ -20,7 +20,9 @@ PERL_CONFIGURE= YES
MAN3= Test::Manifest.3
.include <bsd.port.pre.mk>
.if ${PERL_LEVEL} <= 500503
EXTRA_PATCHES= ${FILESDIR}/5.005_03-lib::Manifest.pm
.if ${PERL_LEVEL} < 500601
IGNORE= Requires perl 5.6.1 or above
.endif
.include <bsd.port.post.mk>

45
devel/p5-Test-Manifest/files/5.005_03-lib::Manifest.pm
View file

@ -1,45 +0,0 @@
--- 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, catfile( "t", $_ ) if -e catfile( "t", $_ );
}
- close $fh;
+ close FH;
return wantarray ? @tests : join " ", @tests;
}
@@ -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") )
{
$file =~ s|^t/||;
- print $fh "$file\n";
+ print FH "$file\n";
$count++;
}
- close $fh;
+ close FH;
return $count;
}