Changeset 3115


Ignore:
Timestamp:
2002-05-14T17:42:21+12:00 (21 years ago)
Author:
jrm21
Message:

Redirect mg(pp)_passes stderr to /dev/null if the "-out xxx" option is given
to buildcol.pl, as some things (eg cron) think a program fails if there is
any output to stderr.

Location:
trunk/gsdl/perllib
Files:
2 edited

Legend:

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

    r2785 r3115  
    208208    my $osextra = "";
    209209    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
    210     $fulltextprefix =~ s/\//\\/g;
     210    $fulltextprefix =~ s@/@\\@g;
    211211    } else {
    212212    $osextra = " -d /";
     
    477477    my $osextra = "";
    478478    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
    479     $fullindexprefix =~ s/\//\\/g;
     479    $fullindexprefix =~ s@/@\\@g;
    480480    } else {
    481481    $osextra = " -d /";
     482    if ($outhandle ne "STDERR") {
     483        # so mg_passes doesn't print to stderr if we redirect output
     484        $osextra .= " 2>/dev/null";
     485    }
    482486    }
    483487
  • trunk/gsdl/perllib/mgppbuilder.pm

    r2772 r3115  
    253253   my $osextra = "";
    254254    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
    255     $fulltextprefix =~ s/\//\\/g;
     255    $fulltextprefix =~ s@/@\\@g;
    256256    }
    257257    else {
     
    546546     my $osextra = "";
    547547    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
    548     $fullindexprefix =~ s/\//\\/g;
     548    $fullindexprefix =~ s@/@\\@g;
    549549    } else {
    550550    $osextra = " -d /";
     551    if ($outhandle ne "STDERR") {
     552        # so mgpp_passes doesn't print to stderr if we redirect output
     553        $osextra .= " 2>/dev/null";
     554    }
    551555    }
    552556 
Note: See TracChangeset for help on using the changeset viewer.