Subversion Repositories DevTools

Rev

Rev 283 | Rev 289 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 283 Rev 287
Line 3402... Line 3402...
3402
        foreach ( reverse @dos_paths )
3402
        foreach ( reverse @dos_paths )
3403
        {
3403
        {
3404
            tr~\\/~/~s;
3404
            tr~\\/~/~s;
3405
            $fh->Write ( "PATH=$_\\;\$PATH\n" );
3405
            $fh->Write ( "PATH=$_\\;\$PATH\n" );
3406
        }
3406
        }
3407
        $fh->Write ( "\n" . '[ -n "$@" ] && "$@"'  ."\n" );
3407
        $fh->Write ( "\n" . '[ -n "$*" ] && "$@"'  ."\n" );
3408
        $fh->Close();
3408
        $fh->Close();
3409
    }
3409
    }
3410
}
3410
}
3411
 
3411
 
3412
#-------------------------------------------------------------------------------
3412
#-------------------------------------------------------------------------------