We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent dbc6cd4 commit ab68c33Copy full SHA for ab68c33
src/cls/IPM/Main.cls
@@ -3922,7 +3922,6 @@ ClassMethod DisplayModules(
3922
if '$data(pList) {
3923
quit
3924
}
3925
- merge ^mtempdc($zhorolog,"pList") = pList
3926
set pWithNamespace = pWithNamespace || $data(pList("ns"))
3927
if pWithNamespace {
3928
set nsWidth = $get(pList("width")) + 2
src/cls/IPM/Utils/Module.cls
@@ -1894,6 +1894,8 @@ ClassMethod EndCaptureOutput(
1894
} else {
1895
#; Otherwise switch redirection off
1896
do $zutil(82,12,0)
1897
+ #; Explicitly clear the Device Mnemonic Routine to avoid test isolation issues
1898
+ use $io::("")
1899
1900
1901
try {
0 commit comments