getgood #1

  • //
  • guest/
  • perforce_software/
  • archived/
  • 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 8160 michael Archive obsolete CVS to Perforce converter.
See the Perforce KB and website for an updated CVS to Perforce converter.
//guest/perforce_software/utils/cvs2p4/test/getgood
#1 1989 Richard Geiger Public 2.3.1
//guest/richard_geiger/utils/cvs2p4/test/getgood
#1 1964 Richard Geiger Add $TEXTTYPE and surrounding accoutrements.