From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Mon, 27 Feb 2006 19:11:14 +0000 (+0000)
Subject: Consolidated two read()s into one
X-Git-Tag: 0-98~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=823baee28f5ffc11962f79dd02a1ab192eccd675;p=dbsrgits%2FDBM-Deep.git

Consolidated two read()s into one
---

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index 83c7d65..e609930 100644
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -254,9 +254,7 @@ sub _open {
 
         # Flush the filehandle
         my $old_fh = select $fh;
-        my $old_af = $|;
-        $| = 1;
-        $| = $old_af;
+        my $old_af = $|; $| = 1; $| = $old_af;
         select $old_fh;
 
         my @stats = stat($fh);
@@ -341,12 +339,9 @@ sub _load_tag {
 	seek($fh, $offset + $self->_root->{file_offset}, SEEK_SET);
 	if (eof $fh) { return undef; }
 	
-	my $sig;
-	read( $fh, $sig, SIG_SIZE);
-	
-	my $size;
-	read( $fh, $size, $DATA_LENGTH_SIZE);
-	$size = unpack($DATA_LENGTH_PACK, $size);
+    my $b;
+    read( $fh, $b, SIG_SIZE + $DATA_LENGTH_SIZE );
+    my ($sig, $size) = unpack( "A $DATA_LENGTH_PACK", $b );
 	
 	my $buffer;
 	read( $fh, $buffer, $size);