--- toast 2004/10/01 04:51:30 1.351 +++ toast 2004/10/02 22:58:58 1.352 @@ -3905,7 +3905,7 @@ if(xmlcatalog) { - @subcats = grep(m!/catalog[^/]*$!, absls(path(armdir, qw(etc xml)))); + @subcats = -d($xmldir) ? grep(m!/catalog[^/]*$!, absls($xmldir)) : (); my($dir) = path($armdir, qw[share xml]); dfs (