Skip Menu |
 

This queue is for tickets about the perlindex CPAN distribution.

Report information
The Basics
Id: 40890
Status: resolved
Priority: 0/
Queue: perlindex

People
Owner: ULPFR [...] cpan.org
Requestors: SREZIC [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Unimportant
Broken in: 1.604
Fixed in: 1.605



Subject: Typo (with patch)
Attached is a patch which fixes a minor typo. Regards, Slaven
Subject: perlindex-gc-typo.diff
--- perlindex.PL.orig 2008-11-13 14:45:10.000000000 +0100 +++ perlindex.PL 2008-11-13 14:45:25.000000000 +0100 @@ -149,7 +149,7 @@ $opt_dict ||= 100; } -my $GC_REQUIRED = 0; # garbadge collect required? Global variable. +my $GC_REQUIRED = 0; # garbage collect required? Global variable. if ($opt_index) { @@ -215,15 +215,15 @@ } } if ($GC_REQUIRED) { - print STDERR "Garbadge collecting\r"; - # garbadge collection, this is awfully slow + print STDERR "Garbage collecting\r"; + # garbage collection, this is awfully slow my $progress = 0; my $words = keys %IF; my %if_new; tie (%if_new, AnyDBM_File, "$IDIR/index_if.new", O_CREAT|O_RDWR, 0644) or die "Could not tie $IDIR/index_if: $!\n"; while (my ($word,$list) = each %IF) { - print STDERR "Garbadge collecting ".(++$progress)."/".$words."\r"; + print STDERR "Garbage collecting ".(++$progress)."/".$words."\r"; my %post = unpack($p.'*',$list); #delete $IF{$word}; @@ -245,7 +245,7 @@ rename "$IDIR/$old", "$IDIR/$file"; } } - print STDERR "\rGarbadge collecting ... done"; + print STDERR "\rGarbage collecting ... done"; } untie %IF unless $GC_REQUIRED; untie %IDF;


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.