diff options
author | Bas Zoetekouw <bas> | 2008-12-15 18:28:02 +0000 |
---|---|---|
committer | Bas Zoetekouw <bas> | 2008-12-15 18:28:02 +0000 |
commit | fe5b1823cc37a72dd36711781f9b5ff4cd981347 (patch) | |
tree | 68b17714fdd8ede508720718568ccb611ef87206 /Perl | |
parent | cb5d56030402c1ffe5d0c09814fb428cc8f19e3f (diff) |
Fix small bug in which n/a was not recognised as a valid revision number
CVS version numbers
Perl/Local/VCS_CVS.pm: 1.9 -> 1.10
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/Local/VCS_CVS.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Perl/Local/VCS_CVS.pm b/Perl/Local/VCS_CVS.pm index 0a62bf79d52..57d52295487 100644 --- a/Perl/Local/VCS_CVS.pm +++ b/Perl/Local/VCS_CVS.pm @@ -137,6 +137,8 @@ sub vcs_count_changes my $rev1 = shift || '1.1'; my $rev2 = shift || 'HEAD'; + $rev1 = '1.1' if $rev1 eq 'n/a'; + # find the version number of HEAD, if it was specified if ( $rev2 eq 'HEAD' ) { @@ -150,7 +152,7 @@ sub vcs_count_changes my @rev1 = split( /\./, $rev1 ); my @rev2 = split( /\./, $rev2 ); - croak "non-similar revision numbers (different branches?)" + croak "non-similar revision numbers `$rev1' and `$rev2' (different branches?)" if ( scalar @rev1 != scalar @rev2 ); # check that all but the last components of the version numbers match |