Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/mgbuilder.pm

    r1252 r1304  
    3131use plugin;
    3232use util;
     33use FileHandle;
     34
     35BEGIN {
     36    # set autoflush on for STDERR and STDOUT so that mg
     37    # doesn't get out of sync with plugins
     38    STDOUT->autoflush(1);
     39    STDERR->autoflush(1);
     40}
     41
     42END {
     43    STDOUT->autoflush(0);
     44    STDERR->autoflush(0);
     45}
    3346
    3447$maxdocsize = 12000;
     
    139152    die "$@" if $@;
    140153
    141 
    142154    return $self;
    143155}
     
    203215           "", {}, $self->{'buildproc'}, $self->{'maxdocs'});
    204216    &plugin::end($self->{'pluginfo'});
    205     close (PIPEOUT);
    206217
    207218    close ($handle) unless $self->{'debug'};
     
    507518    &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'},
    508519           "", {}, $self->{'buildproc'}, $self->{'maxdocs'});
    509    
     520
    510521    $self->print_stats ();
    511522
Note: See TracChangeset for help on using the changeset viewer.