Show
Ignore:
Timestamp:
02/25/08 21:58:22 (11 months ago)
Author:
karpet
Message:

expand ref counting and clean up some unused code

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • libswish3/trunk/bindings/perl/lib/SWISH/3.pm

    r2029 r2030  
    131131 
    132132    print "WordList\n"; 
    133     while ( my $swishword = $data->wordlist->next ) { 
     133    my $wordlist = $data->wordlist; 
     134    while ( my $swishword = $wordlist->next ) { 
    134135        print '-' x 50, "\n"; 
    135136        for my $w (SWISH_WORD_FIELDS) {