[GRASS5] [bug #4111] (grass) d.m crashes

[Glynn Clements]

Request Tracker wrote:

> this bug's URL: http://intevation.de/rt/webrt?serial_num=4111
> -------------------------------------------------------------------------
> 
> Subject: d.m crashes
> 
> Platform: Mac OSX
> grass binary for platform: Compiled from Sources
> GRASS Version: 6.1.cvs checked out 02222006
> 
> Kirk Wythers. I noticed that d.m crashes now upon startup. The error message is:
> 
> GRASS 6.1.cvs (minnesota_utm):~ > d.m
> GRASS 6.1.cvs (minnesota_utm):~ > Error in startup script: child process exited abnormally
>     while executing
> "close $input"
>     (procedure "Dm::create" line 38)
>     invoked from within
> "Dm::create"
>     (procedure "main" line 33)
>     invoked from within
> "main $argc $argv"
>     (file "/usr/local/grass-6.1.cvs/etc/dm/d.m.tcl" line 1629)

The "close $input" should be within the catch, as $input won't be
valid if the open command fails.

While glancing at the code, I also noticed the following in both
Dm::displmon and Dm::monitor:

    return
	close $input

The close needs to come before the return.

-- 
Glynn Clements <glynn at gclements.plus.com>