#!/usr/bin/perl
use warnings;
use strict;

use File::Spec::Functions qw(catfile);

my $Base = "/Users/brian/Dev";

@ARGV = catfile( $Base, 'bad_cvs_root.txt' );

while( <> )
	{
	chomp;
	my $dir = catfile( $Base, $_ );
	print "checking $dir ...\n";
	
	chdir $dir or do { warn "Could not chdir $dir: $!"; next };
	my $output = `cvs update 2>&1`;
	print $output;
	print "-" x 73, "\n";
	}