From owner-freebsd-current Thu Sep 23 12:29:27 1999 Delivered-To: freebsd-current@freebsd.org Received: from plab.ku.dk (plab.ku.dk [130.225.105.65]) by hub.freebsd.org (Postfix) with ESMTP id E58D714BEA for ; Thu, 23 Sep 1999 12:29:16 -0700 (PDT) (envelope-from tobez@plab.ku.dk) Received: from lion.plab.ku.dk (lion.plab.ku.dk [130.225.105.49]) by plab.ku.dk (8.9.1/8.9.1) with ESMTP id VAA09341; Thu, 23 Sep 1999 21:27:22 +0200 (CEST) Received: (from tobez@localhost) by lion.plab.ku.dk (8.9.3/8.9.3) id VAA40674; Thu, 23 Sep 1999 21:23:52 +0200 (CEST) (envelope-from tobez) Date: Thu, 23 Sep 1999 21:23:52 +0200 From: Anton Berezin To: Darryl Okahata Cc: Matthew Dillon , Poul-Henning Kamp , freebsd-current@FreeBSD.ORG Subject: Re: ccd build failure Message-ID: <19990923212352.A40492@lion.plab.ku.dk> References: <199909231846.LAA04038@mina.sr.hp.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Mailer: Mutt 1.0pre1i In-Reply-To: <199909231846.LAA04038@mina.sr.hp.com> Sender: owner-freebsd-current@FreeBSD.ORG Precedence: bulk X-Loop: FreeBSD.ORG On Thu, Sep 23, 1999 at 11:46:38AM -0700, Darryl Okahata wrote: > I'd like to submit the attached perl script, which lists the status of > cvs-controlled files. In particular, it's very useful for determining > which files have been modified but not committed With the following patch this scripts becomes even more useful (properly handles situations when the file is missing): --- /home/tobez/cvsinfo Thu Sep 23 21:19:53 1999 +++ cvsinfo Thu Sep 23 21:19:22 1999 @@ -69,7 +69,7 @@ $cmd = "cvs status -l"; open(IN, "$cmd 2>&1 |") || die "$!"; while () { - if (/^File:\s+([^\s]+)\s+Status:\s+(.+)$/i){ + if (/^File:\s+(?:no file\s+)?([^\s]+)\s+Status:\s+(.+)$/i){ $file = $1; $status = $2; if ($all_status || $status ne 'Up-to-date') { Cheers, -- Anton Berezin The Protein Laboratory, University of Copenhagen To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-current" in the body of the message