Attachment #30825 for bug #51688

Lines 18-23 Link Here

(-)Makefile (-1 lines)
18	PERL_CONFIGURE= yes	18	PERL_CONFIGURE= yes
19		19
20	MAN3= Text::Reform.3	20	MAN3= Text::Reform.3
21	MANPREFIX= ${PREFIX}/lib/perl5/${PERL_VERSION}
22		21
23	.include <bsd.port.mk>	22	.include <bsd.port.mk>

Lines 1-3 Link Here

(-)pkg-descr (-1 / +1 lines)
1	Manual text wrapping and reformatting	1	Manual text wrapping and reformatting
2		2
3	WWW: http://search.cpan.org/author/DCONWAY/Text-Reform/	3	WWW: http://search.cpan.org/dist/Text-Reform/

Lines 1-8 Link Here

(-)pkg-plist (-8 / +10 lines)
1	lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Text/Reform/.packlist	1	%%SITE_PERL%%/%%PERL_ARCH%%/auto/Text/Reform/.packlist
2	lib/perl5/site_perl/%%PERL_VER%%/Text/demo_ws.pl	2	%%SITE_PERL%%/Text/demo_ws.pl
3	lib/perl5/site_perl/%%PERL_VER%%/Text/demo_table.pl	3	%%SITE_PERL%%/Text/demo_table.pl
4	lib/perl5/site_perl/%%PERL_VER%%/Text/demo_filler.pl	4	%%SITE_PERL%%/Text/demo_filler.pl
5	lib/perl5/site_perl/%%PERL_VER%%/Text/demo_columns.pl	5	%%SITE_PERL%%/Text/demo_columns.pl
6	lib/perl5/site_perl/%%PERL_VER%%/Text/demo.pl	6	%%SITE_PERL%%/Text/demo.pl
7	lib/perl5/site_perl/%%PERL_VER%%/Text/Reform.pm	7	%%SITE_PERL%%/Text/Reform.pm
8	@dirrm lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Text/Reform	8	@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/Text/Reform
		9	@unexec rmdir %%SITE_PERL%%/%%PERL_ARCH%%/auto/Text 2>/dev/null \|\| true
		10	@unexec rmdir %%SITE_PERL%%/Text 2>/dev/null \|\| true




--- lib/Text/Reform.pm.orig	Wed Apr  9 10:49:02 2003
+++ lib/Text/Reform.pm	Fri May  2 14:47:28 2003
@@ -44,7 +43,7 @@
 }
 
 sub carpfirst {
-	our %carped;
+	my %carped;
 	my ($msg) = @_;
 	return if $carped{$msg}++;
 	carp $msg;
@@ -342,8 +341,7 @@
 
 sub form
 {
-	our %carped;
-	local %carped;
+	my %carped;
 	my $config = {%std_config};
 	my $startidx = 0;
 	if (@_ && ref($_[0]) eq 'HASH')		# RESETTING CONFIG

Return to bug 51688

Added Link Here

(-)patch-lib::Text::Reform.pm (+21 lines)
1	--- lib/Text/Reform.pm.orig Wed Apr 9 10:49:02 2003
2	+++ lib/Text/Reform.pm Fri May 2 14:47:28 2003
3	@@ -44,7 +43,7 @@
4	}
5
6	sub carpfirst {
7	- our %carped;
8	+ my %carped;
9	my ($msg) = @_;
10	return if $carped{$msg}++;
11	carp $msg;
12	@@ -342,8 +341,7 @@
13
14	sub form
15	{
16	- our %carped;
17	- local %carped;
18	+ my %carped;
19	my $config = {%std_config};
20	my $startidx = 0;
21	if (@_ && ref($_[0]) eq 'HASH') # RESETTING CONFIG