From 7376a3d5527ddeb3fa2c39cb4a3cdcef5512c741 Mon Sep 17 00:00:00 2001
From: pp <pp@455248ca-bdda-0310-9134-f4ebb693071a>
Date: Thu, 13 Apr 2006 16:27:50 +0000
Subject: - memory optimizations

git-svn-id: https://siedziba.pl:790/svn/repos/dbxrecover@229 455248ca-bdda-0310-9134-f4ebb693071a
---
 dbxrecover | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/dbxrecover b/dbxrecover
index 7ce528a..c6915d2 100755
--- a/dbxrecover
+++ b/dbxrecover
@@ -179,8 +179,6 @@ use strict;
       # it also helps in cases when there are dbx files contained inside dbx
 
       $self->{file}->seek($chunksize, 1);
-      $self->{hash} = undef;
-      ($self->{id}, $self->{chunksize}, $self->{datasize}, $self->{next}) = ($id, $chunksize, $datasize, $next);
       bless ($self, $class);
       return $self;
     }
@@ -215,22 +213,23 @@ use strict;
   sub data
   {
     my $self = shift;
+    my $datasize = unpack("V", substr($self->{header}, 8, 4));
     my $data;
     $self->{file}->setpos($self->{filepos});
-    $self->{file}->read($data, $self->{datasize});
+    $self->{file}->read($data, $datasize);
     return $data;
   }
 
   sub id
   {
     my $self = shift;
-    return $self->{id};
+    return scalar unpack("V", $self->{header});
   }
 
   sub next
   {
     my $self = shift;
-    return $self->{next};
+    return scalar unpack("V", substr($self->{header}, 12, 4));
   }
 
 }
-- 
cgit v1.2.3