eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; # THE PRECEEDING STUFF EXECS perl via $PATH # -*-Fundamental-*- require 5.000; # $Id: //guest/richard_geiger/utils/cvs2p4/test/norm#3 $ # # Richard Geiger # while (<>) { $_ =~ s/[0-9]{4}\/[0-9]{2}\/[0-9]{2}/yyyy\/mm\/dd/g; $_ =~ s/[0-9]{2}:[0-9]{2}:[0-9]{2}/hh:mm:ss/g; $_ =~ s/Label testlabel yyyy\/mm\/dd 'Created by ([a-z]+)\. '/Label testlabel yyyy\/mm\/dd 'Created by user\. '/; print; }
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#3 | 1206 | Richard Geiger |
Genericize the "p4 labels" test case, and beef up the comments describing $TRUNKLINE in the config file a bit. |
||
#2 | 240 | Richard Geiger |
Version 1.2.5, to account for post-1999 RCS behavior. (Courtesy of David Simon, Goldman Sachs) |
||
#1 | 130 | Richard Geiger |
CVS-to-Perforce converter. This is release 1.2.2 (first submit to the Perforce Public Depot) |