Changeset 219

Timestamp:

03/20/06 16:03:51 (6 years ago)

Author:

knok

Message:

Fixed workable.

Files:

• namazu-p/trunk/DB_Namazu_Field.pm (modified) (2 diffs)

namazu-p/trunk/DB_Namazu_Field.pm

@@ -2 +2 @@
 #
 
-package DB_Namazu_Fileld;
+package DB_Namazu_Field;
 use Carp;
 use strict;
 use IO::File;
+use Tie::Array;
+our @ISA = ('Tie::Array');
+
+sub new {
+    my $proto = shift;
+    my $class = ref($proto) || $proto;
+    my $self = {};
+    bless($self, $class);
+    return $self;
+}
 
 sub TIEARRAY {
     my $class = shift;
     my $basefile = shift;
-    my $self = {};
+    my $self = $class->new();
     $self->{basefile} = new IO::File " <$basefile";
     $self->{ptrfile} = new IO::File "< ${basefile}.i";
@@ -22 +32 @@
     my $self = shift;
     my $index = shift;
-    $self->{ptrfile}->seek($index);
+    $self->{ptrfile}->seek($index, SEEK_SET);
     my $ptr;
     $self->{ptrfile}->read($ptr, 4);
     $ptr = unpack("N", $ptr);
-    $self->{basefile}->seek($ptr);
+    $self->{basefile}->seek($ptr, SEEK_SET);
     return $self->{basefile}->getline;
 }