Improved $| handling

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index e092cd9..65ccb0f 100644 (file)
--- 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;
     }