Xref: utzoo alt.sources:2993 alt.sources.patches:28 comp.lang.perl:3505
Path: utzoo!utgpu!cs.utexas.edu!sun-barr!newstop!texsun!convex!news
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: alt.sources,alt.sources.patches,comp.lang.perl
Subject: Re: The Answer to All Man's Problems (patch for cfman)
Keywords: man perl
Message-ID: <1991Jan10.142541.16917@convex.com>
Date: 10 Jan 91 14:25:41 GMT
References: <1991Jan07.220902.9726@convex.com>
Sender: news@convex.com (news access account)
Reply-To: tchrist@convex.COM (Tom Christiansen)
Followup-To: alt.sources.d
Organization: CONVEX Software Development, Richardson, TX
Lines: 24
Nntp-Posting-Host: pixel.convex.com

Looks like the cfman program (the SEE ALSO chaser) I jammed into the
package was from my work tree instead of my release tree.  Here's the
necessary patch to back off those minor changes.  Apply to cfman:

16c16
< &Getopts('fd:s:p:P:x:') || &usage;
---
> &Getopts('d:s:p:P:x:') || &usage;
28d27
< $use_DBM = $opt_f;
335,337d333
< 	    if ($use_DBM && &dbmopen($tree)) {
< 		next;
< 	    }
403,411d398
< } 
< 
< sub dbmopen {
<     local($tree) = $_[0];
<     # globals: %dbmopened, %warned
<     return 1 if $dbmopened{$tree};
< 
<     unless (-f "
<