From 3c63b2bc93ebf251d634147b1c4d3b866f6020ad Mon Sep 17 00:00:00 2001 From: Lars Thegler Date: Wed, 29 Dec 2004 22:53:16 +0000 Subject: Update to 1.24 --- devel/p5-Test-Reporter/Makefile | 5 ++++- devel/p5-Test-Reporter/distinfo | 4 ++-- devel/p5-Test-Reporter/files/500503-Test::Reporter.pm | 12 ++++++++++++ 3 files changed, 18 insertions(+), 3 deletions(-) create mode 100644 devel/p5-Test-Reporter/files/500503-Test::Reporter.pm (limited to 'devel/p5-Test-Reporter') diff --git a/devel/p5-Test-Reporter/Makefile b/devel/p5-Test-Reporter/Makefile index a23adef4d3d4..0270a706849f 100644 --- a/devel/p5-Test-Reporter/Makefile +++ b/devel/p5-Test-Reporter/Makefile @@ -6,7 +6,7 @@ # PORTNAME= Test-Reporter -PORTVERSION= 1.20 +PORTVERSION= 1.24 CATEGORIES= devel perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= Test @@ -30,6 +30,9 @@ BUILD_DEPENDS+= ${SITE_PERL}/File/Temp.pm:${PORTSDIR}/devel/p5-File-Temp .if ${PERL_LEVEL} < 500601 BUILD_DEPENDS+= ${SITE_PERL}/File/Spec.pm:${PORTSDIR}/devel/p5-File-Spec .endif +.if ${PERL_LEVEL} <= 500503 +EXTRA_PATCHES= ${FILESDIR}/500503-Test::Reporter.pm +.endif .endif .include diff --git a/devel/p5-Test-Reporter/distinfo b/devel/p5-Test-Reporter/distinfo index 349fb8b353a8..9883c7b7c3fe 100644 --- a/devel/p5-Test-Reporter/distinfo +++ b/devel/p5-Test-Reporter/distinfo @@ -1,2 +1,2 @@ -MD5 (Test-Reporter-1.20.tar.gz) = a249a81a415b64875ac92676072ce7aa -SIZE (Test-Reporter-1.20.tar.gz) = 21844 +MD5 (Test-Reporter-1.24.tar.gz) = 4a26802d09c17412f7e867f662d87143 +SIZE (Test-Reporter-1.24.tar.gz) = 23594 diff --git a/devel/p5-Test-Reporter/files/500503-Test::Reporter.pm b/devel/p5-Test-Reporter/files/500503-Test::Reporter.pm new file mode 100644 index 000000000000..d883ea742ada --- /dev/null +++ b/devel/p5-Test-Reporter/files/500503-Test::Reporter.pm @@ -0,0 +1,12 @@ +--- lib/Test/Reporter.pm.orig Wed Dec 29 21:41:54 2004 ++++ lib/Test/Reporter.pm Wed Dec 29 22:21:27 2004 +@@ -246,7 +246,8 @@ + my($fh, $file); unless ($fh = $_[0]) { + $file = "$dir/$grade.$distribution.$Config{archname}.$Config{osvers}.${\(time)}.$$.rpt"; + warn $file if $self->debug(); +- open $fh, ">$file" or die __PACKAGE__, ": Can't open report file '$file': $!"; ++ open FH, ">$file" or die __PACKAGE__, ": Can't open report file '$file': $!"; ++ $fh = \*FH; + } + print $fh "From: $from\n"; + print $fh "Subject: $subject\n"; -- cgit v1.2.3