From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Fri, 17 Feb 2006 17:32:12 +0000 (+0000)
Subject: Fixed per ikegami's reply at http://www.perlmonks.org/?node_id=531005
X-Git-Tag: 0-97~51
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c61153fec40599ebc05a67e8623d7f283305bb0;p=dbsrgits%2FDBM-Deep.git

Fixed per ikegami's reply at perlmonks.org/?node_id=531005
---

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index 84be3bc..e092cd9 100644
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -259,7 +259,7 @@ sub _open {
 
     if ($self->root->{autoflush}) {
 #        $self->fh->autoflush();
-        my $old = select( $fh );
+        my $old = select $fh;
         $|++;
         select $old;
     }
@@ -283,8 +283,9 @@ sub _open {
 
 #        $fh->flush();
         my $old_fh = select $fh;
-        local $| = 1;
-        print $fh q{};
+        my $old_af = $|;
+        $| = 1;
+        $| = $old_af;
         select $old_fh;
 
         return 1;