getgood #1

#!/usr/local/bin/perl
# -*-Fundamental-*-

#  Handy for use after "runtest -gengood"!
#

sub s
{
  my ($cmd) = @_;
  print "> $cmd\n";
  system $cmd;
}

foreach $file (<*.good>)
  {
    $prospect = "../test_conv_dir/$file";
    $prospect =~ s/.good$//;

    print "$file $prospect\n";

    if (&s("cmp $file $prospect"))
      {	&s("p4 edit $file && cp -p $prospect $file"); }
  }