← Back to branch summary

~ubuntu-branches/ubuntu/raring/tcl8.5/raring

« back to all changes in this revision

Viewing changes to generic/tclCmdAH.c

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-03-01 10:35:30 UTC
  • mfrom: (8.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20090301103530-0nvyl18uo9sbu9wh
Tags: 8.5.6-3
Don't remove tclsh alternative in case of package upgrade because the
manually installed alternative is also removed which isn't desirable.

Show diffs side-by-side

added added

removed removed

Lines of Context:
generic/tclCmdAH.c
10
10
 * See the file "license.terms" for information on usage and redistribution of
11
11
 * this file, and for a DISCLAIMER OF ALL WARRANTIES.
12
12
 *
13
 
 * RCS: @(#) $Id: tclCmdAH.c,v 1.93 2008/03/14 16:07:23 dgp Exp $
 
13
 * RCS: @(#) $Id: tclCmdAH.c,v 1.93.2.1 2008/07/21 19:38:17 andreas_kupries Exp $
14
14
 */
15
15
 
16
16
#include "tclInt.h"
656
656
 
657
657
    if (objc == 2) {
658
658
        /*
659
 
         * TIP #280. Make invoking context available to eval'd script.
 
659
         * TIP #280. Make argument location available to eval'd script.
660
660
         */
661
661
 
 
662
        CmdFrame* invoker = iPtr->cmdFramePtr;
 
663
        int word          = 1;
 
664
        TclArgumentGet (interp, objv[1], &invoker, &word);
 
665
 
662
666
        result = TclEvalObjEx(interp, objv[1], TCL_EVAL_DIRECT,
663
 
                iPtr->cmdFramePtr, 1);
 
667
                invoker, word);
664
668
    } else {
665
669
        /*
666
670
         * More than one argument: concatenate them together with spaces