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 
#-------------------------------------------------------------------------------