getgood #1

  • //
  • guest/
  • richard_geiger/
  • utils/
  • cvs2p4/
  • test/
  • getgood
  • View
  • Commits
  • Open Download .zip Download (382 B)
#!/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"); }
  }

# Change User Description Committed
#1 1964 Richard Geiger Add $TEXTTYPE and surrounding accoutrements.