#!/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 | 5093 | Hari Krishna Dara |
Populating perforce branch. I will be adding p4admin files to it. |
||
//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. |