#!/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"); }
  }