/[wait]/trunk/lib/WAIT/InvertedIndex.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WAIT/InvertedIndex.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 30 by laperla, Sun Nov 12 01:23:47 2000 UTC revision 33 by ulpfr, Sun Nov 12 13:25:57 2000 UTC
# Line 4  Line 4 
4  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
5  # Created On      : Thu Aug  8 13:05:10 1996  # Created On      : Thu Aug  8 13:05:10 1996
6  # Last Modified By: Ulrich Pfeifer  # Last Modified By: Ulrich Pfeifer
7  # Last Modified On: Sat Nov 11 16:32:38 2000  # Last Modified On: Sun Nov 12 14:20:56 2000
8  # Language        : CPerl  # Language        : CPerl
9  #  #
10  # (C) Copyright 1996-2000, Ulrich Pfeifer  # (C) Copyright 1996-2000, Ulrich Pfeifer
# Line 159  sub is_an_old_index { Line 159  sub is_an_old_index {
159    my $dbh = $self->{dbh};       # for convenience    my $dbh = $self->{dbh};       # for convenience
160    
161    my $O = pack('C', 0xff)."o";    my $O = pack('C', 0xff)."o";
162    my ($word, $value) = ($O.$;);    my ($word, $value) = ($O.$;);  # $word and $value are modified!
163    $dbh->seq($word, $value, R_CURSOR);    $dbh->seq($word, $value, R_CURSOR) or return $self->{old_index} = 0;
164    for (my $i=0; $i<10;$i++) {    for (my $i=0; $i<10;$i++) {
165      if ($value !~ /^\d+$/) {      if ($value !~ /^\d+$/) {
166        return $self->{old_index} = 0;        return $self->{old_index} = 0;
Legend:
Removed from v.30  
changed lines
  Added in v.33
  ViewVC Help
Powered by ViewVC 1.1.26