mirror of
https://git.freebsd.org/ports.git
synced 2025-06-19 11:40:31 -04:00
9bfc6a9da3
Cleanup and make work for perl 5.00503 PR: 51688 Submitted by: maintainer Approved by: roberto (mentor)
21 lines
415 B
Perl
21 lines
415 B
Perl
--- 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
|