From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Fri, 17 Feb 2006 17:33:33 +0000 (+0000)
Subject: Improved $| handling
X-Git-Tag: 0-97~50
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=db12c1c06ffae408e0db3c4c5e57214ca51e9e84;p=dbsrgits%2FDBM-Deep.git

Improved $| handling
---

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index e092cd9..65ccb0f 100644
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -260,7 +260,7 @@ sub _open {
     if ($self->root->{autoflush}) {
 #        $self->fh->autoflush();
         my $old = select $fh;
-        $|++;
+        $|=1;
         select $old;
     }