Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!convex!convex.COM From: tchrist@convex.COM (Tom Christiansen) Newsgroups: comp.lang.perl Subject: Re: Tom Christiansen's man program no longer works with pl28 Keywords: perl pl28 man xenix Message-ID: <105840@convex.convex.com> Date: 5 Sep 90 22:07:25 GMT References: <578@seer.UUCP> Sender: usenet@convex.com Reply-To: tchrist@convex.COM (Tom Christiansen) Organization: CONVEX Software Development, Richardson, TX Lines: 79 In article <578@seer.UUCP> bll@seer.UUCP (Brad Lanam) writes: > > I just brought perl up to patchlevel 28, and everything except >Tom Christiansen's man program seems to work. It can't seem to find >anything in the dbm database. I rebuilt the database, but that didn't >help. He uses those eval things... I can't figure out how to print >out what is in the dbm array. You should say 'those damn eval things.' :-) > Has anyone else had this problem? Yes. Here's mail I received on this. I must shamefully admit that I've not gone to PL28 yet, so haven't seen it -- yet. Maybe Larry can explain. ------- Forwarded Message Date: Fri, 17 Aug 90 14:44:48 METDST From: Jan Dj{rv Subject: Perl PL 28 has made your man unoperational :-( To: tchrist@irfu.se (Tom Christiansen) Hi, I installed perl PL 28 today. After installation I did 'man perl'. To my big surprise I get No dbm file for /usr/local/man/whatis: Permission denied No dbm file for /usr/contrib/man/whatis: Permission denied No dbm file for /usr/man/whatis: Permission denied A bit of poking around shows that patch 22 disabled the ability to dbmopen a file readonly. (I've sent Larry a letter about this, but since the machine that supply me with News is down, nothing to comp.lang.perl). Here's my patch in case you are interested: *** hash.c.orig Fri Aug 17 12:21:04 1990 - --- hash.c Fri Aug 17 12:22:45 1990 *************** *** 538,543 **** - --- 538,545 ---- tb->tbl_dbm = dbm_open(fname, O_RDWR|O_CREAT, mode); if (!tb->tbl_dbm) tb->tbl_dbm = dbm_open(fname, O_RDWR, mode); + if (!tb->tbl_dbm) + tb->tbl_dbm = dbm_open(fname, O_RDONLY, mode); #else if (dbmrefcnt++) fatal("Old dbm can only open one database"); Could you perhaps post something about it to c.l.p (if not already done by somebody else) ? OK, I tried it again: % man perl No manual entry for perl. Rerun makewhatis. Same thing. Everything I try to man gives me 'No manual entry for ...'. Have you seen any of this? Do you know whats going on? In the meantime I'm back to non-perlian man :-( Jan D. - -- ------------------------------------------------------------------------ Swedish Institute of Space Physics, S-755 91 Uppsala, Sweden Phone: (+46) 18-403005. Telex: 76036 (IRFUPP S). Fax: (+46) 18-403100 INTERNET: jhd@irfu.se UUCP: ...!uunet!mcvax!sunic!irfu!jhd ------------------------------------------------------------------------ ------- End of Forwarded Message -- "UNIX was never designed to keep people from doing stupid things, because that policy would also keep them from doing clever things." [Doug Gwyn]