#!/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. |