Report known error when cwd cannot be retrieved

Closes #457.

Author: xdelaruelle

NEWS.rst

@@ -22,6 +22,8 @@ Modules 5.1.1 (not yet released)
 * Remove the *already loaded* message displayed when verbosity level is higher
   or equal to ``verbose2`` if new tags are applied to the loaded module. (fix
   issue #456)
+* Report a global known error when current working directory cannot be
+  retrieved due to the removal of this directory. (fix issue #457)
 
 
 Modules 5.1.0 (2022-04-30)

tcl/util.tcl

@@ -76,7 +76,11 @@ proc getAbsolutePath {path} {
    } else {
       # register pwd at first call
       if {![isStateDefined cwd]} {
-         setState cwd [pwd]
+         # raise a global known error if cwd cannot be retrieved (especially
+         # when this directory has been removed)
+         if {[catch {setState cwd [pwd]} errorMsg]} {
+            knerror $errorMsg
+         }
       }
       set curdir [getState cwd]
    }