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