Changeset 1304

Timestamp:

2000-07-25T14:16:06+12:00 (24 years ago)

Author:

sjboddie

Message:

fixed an intermittent bug (I hope) when building under windows

File:

• trunk/gsdl/perllib/mgbuilder.pm (modified) (4 diffs)

trunk/gsdl/perllib/mgbuilder.pm

@@ -31 +31 @@
 use plugin;
 use util;
+use FileHandle;
+
+BEGIN {
+    # set autoflush on for STDERR and STDOUT so that mg
+    # doesn't get out of sync with plugins
+    STDOUT->autoflush(1);
+    STDERR->autoflush(1);
+}
+
+END {
+    STDOUT->autoflush(0);
+    STDERR->autoflush(0);
+}
 
 $maxdocsize = 12000;
@@ -139 +152 @@
     die "$@" if $@;
 
-
     return $self;
 }
@@ -203 +215 @@
            "", {}, $self->{'buildproc'}, $self->{'maxdocs'});
     &plugin::end($self->{'pluginfo'});
-    close (PIPEOUT);
 
     close ($handle) unless $self->{'debug'};
@@ -507 +518 @@
     &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'}, 
            "", {}, $self->{'buildproc'}, $self->{'maxdocs'});
-    
+
     $self->print_stats ();