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 (<IN>) {
- 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 <[EMAIL PROTECTED]>
The Protein Laboratory, University of Copenhagen
To Unsubscribe: send mail to [EMAIL PROTECTED]
with "unsubscribe freebsd-current" in the body of the message
