Changeset 15715
- Timestamp:
- 2008-05-27T13:00:05+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/mgppbuilder.pm
r15709 r15715 27 27 28 28 use basebuilder; 29 use classify;30 use cfgread;31 29 use colcfg; 32 30 use plugin; 31 use strict; no strict 'refs'; 33 32 use util; 34 use FileHandle; 33 35 34 36 35 sub BEGIN { … … 231 230 my ($handle); 232 231 if ($self->{'debug'}) { 233 $handle = STDOUT; 234 } else { 232 $handle = *STDOUT; 233 } 234 else { 235 235 if (!-e "$mgpp_passes_exe" || 236 !open (PIPEOUT, "| mgpp_passes$exe -M $maxnumeric $mgpp_passes_sections -f \"$fulltextprefix\" -T1 $osextra")) {236 !open($handle, "| mgpp_passes$exe -M $maxnumeric $mgpp_passes_sections -f \"$fulltextprefix\" -T1 $osextra")) { 237 237 print STDERR "<FatalError name='NoRunMGPasses'>\n</Stage>\n" if $self->{'gli'}; 238 238 die "mgppbuilder::compress_text - couldn't run $mgpp_passes_exe\n"; 239 239 } 240 $handle = mgppbuilder::PIPEOUT;241 240 } 242 241 … … 256 255 "", {}, $self->{'buildproc'}, $self->{'maxdocs'}, 0, $self->{'gli'}); 257 256 &plugin::end($self->{'pluginfo'}); 258 close (PIPEOUT);259 257 260 258 close ($handle) unless $self->{'debug'}; … … 487 485 my ($handle); 488 486 if ($self->{'debug'}) { 489 $handle = STDOUT; 490 } else { 487 $handle = *STDOUT; 488 } 489 else { 491 490 if (!-e "$mgpp_passes_exe" || 492 !open (PIPEOUT, "| mgpp_passes$exe -M $maxnumeric $mgpp_passes_sections -f \"$fullindexprefix\" -I1 $osextra")) {491 !open($handle, "| mgpp_passes$exe -M $maxnumeric $mgpp_passes_sections -f \"$fullindexprefix\" -I1 $osextra")) { 493 492 print STDERR "<FatalError name='NoRunMGPasses'/>\n</Stage>\n" if $self->{'gli'}; 494 493 die "mgppbuilder::build_index - couldn't run $mgpp_passes_exe\n"; 495 494 } 496 $handle = mgppbuilder::PIPEOUT;497 495 } 498 496
Note:
See TracChangeset
for help on using the changeset viewer.