#!/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
|
3624 |
Mitch Stuart |
Branch //public/perforce/utils to //guest/mitch_stuart/perforce/utils |
|
|
//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. |
|
|