don't add to helpdb var if no helpdb.mip (sqiid/upsqiid)

iraf-community · Mar 5, 2024 · 6910229 · 6910229
1 parent e962213
commit 6910229
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/unix/hlib/extpkg.cl b/unix/hlib/extpkg.cl
@@ -45,8 +45,11 @@ while (fscan (list, s1) != EOF) {
     printf ("task  %s.pkg = %s$%s.cl\nkeep\n", s1, s1, s1)              | cl ()
 
     # Add to the helpdb string.
-    printf ("reset helpdb=%s,%s$lib/helpdb.mip\nkeep\n", 
-	envget("helpdb"), s1) 						| cl ()
+    if (access (s1//"/"//"lib/helpdb.mip") == yes) {
+        printf ("reset helpdb=%s,%s$lib/helpdb.mip\nkeep\n", 
+	    envget("helpdb"), s1) 					| cl ()
+    }
+    ;
   }
   ;
 }