[Commit-womb] gnumaint gnumaint

[Karl Berry]

CVSROOT:        /sources/womb
Module name:    gnumaint
Changes by:     Karl Berry <karl>       07/02/11 23:37:09

Modified files:
        .              : gnumaint 

Log message:
        cd to our own directory to easily find our files when invoked from mail

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/gnumaint?cvsroot=womb&r1=1.22&r2=1.23

Patches:
Index: gnumaint
===================================================================
RCS file: /sources/womb/gnumaint/gnumaint,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- gnumaint    11 Feb 2007 21:50:53 -0000      1.22
+++ gnumaint    11 Feb 2007 23:37:08 -0000      1.23
@@ -787,9 +787,12 @@
 }
 
 proc main {} {
-#    regexp {(.*)/[^/]*$)} $argv0 mydir
-#    puts $mydir
-#    cd $mydir
+    ; # cd to our directory so we can easily find our files.
+    global argv0
+    variable mydir
+    regsub {/[^/]*$} $argv0 "" mydir
+    puts $mydir
+    cd $mydir
     
     variable maintainersdb