[p4] cvs2p4 question

[Roger Day]

Hi

I'm trying to port (non-CVS) RCS archive files into perforce and I'm 
having problems with branches.

The piece of code that's puzzling me is in :

if (($cnt = $rev =~ tr/\./\./) % 2 == 0)
{
            # Handle "RCS" branch tags:
                  #
                  my @nums = split(/\./, $rev);
 
                  splice @nums, $#nums, 0, (0);
                  $rev = join(".", @nums);
                }
Which inserts 0's so that a branch label:

label: 1.4.1

becomes  1.4.0.1

I'm assuming that this is the first revision of the branch. Is this 
correct? 

In the bespoke system I'm working on, the first revision is 1.4.1.1, and 
1.4.0.1 doesn't so that branches aren't created. Should I just hack the 
code?

Roger