OK, I've now got the following diff for Glue.pm which /appears/ to work. I say
/appears/ because I have other issues in other places, but the 'auto' policy is
now accepted for CVS 1.12. I don't advise anyone else to try this yet.
--- CVSROOT/lib/scmbug/Scmbug/Glue/Glue.pm 2008/04/28 14:57:42 1.1
+++ CVSROOT/lib/scmbug/Scmbug/Glue/Glue.pm 2008/05/07 16:15:57 1.4
@@ -385,11 +385,22 @@ sub check_configuration {
# set a product_name, to flag this fact
$self->scm()->activity()->product_name_prefixes(
$self->policies()->{ product_name_definition }->{ value } );
- # CVS and Git do not provide a list of files that are about to
+ # CVS prior to 1.12 does not provide a list of files that are about
to
# be commited during an activity_verify. Cannot support
# policy 'auto' for it.
- if ( $self->configuration()->{ scm }->{ name } eq "CVS" ||
- $self->configuration()->{ scm }->{ name } eq "Git" ) {
+ if ( $self->configuration()->{ scm }->{ name } eq "CVS" ) {
+ if ( $self->scm()->is_version_latest()) {
+ # pass, friend...
+ } else {
+ my $msg = "Policy product_name_definition does
not support the 'auto' configuration for " . $self->configuration()->{ scm }->{
name } . ".\n";
+ scmbug_error(
$GLUE_ERROR_POLICY_PRODUCT_NAME_DEFINITION_AUTO_NOT_SUPPORTED, $msg);
+ }
+ }
+
+ # Git does not provide a list of files that are about to
+ # be commited during an activity_verify. Cannot support
+ # policy 'auto' for it.
+ if ( $self->configuration()->{ scm }->{ name } eq "Git" ) {
my $msg = "Policy product_name_definition does not support the
'auto' configuration for " . $self->configuration()->{ scm }->{ name } . ".\n";
scmbug_error(
$GLUE_ERROR_POLICY_PRODUCT_NAME_DEFINITION_AUTO_NOT_SUPPORTED, $msg);
}
-----Original Message-----
From: Kristis Makris [mailto:[EMAIL PROTECTED]
Sent: 07 May 2008 16:58
To: Simon Brooke
Cc: [email protected]
Subject: RE: [scmbug-users] Logging output from scmbug_activity.pl - where?
On Wed, 2008-05-07 at 15:14 +0100, Simon Brooke wrote:
> if ( $self->configuration()->{ scm }->{ name } eq "CVS" ) {
> if ( $self->configuration()->{ scm }->{ version } eq
> $SCM_VERSION_LATEST) {
> # pass, friend...
Try:
eq $self->scm()->is_version_latest()
It's coming from SCM.pm which is the base class of CVS.pm.
Simon Brooke, Software Specialist
Cygnet Solutions Ltd
Registered office: Swan House, Darvel, Ayrshire, Scotland, KA17 0LP
Registered in Scotland No. SC158059
mail: [EMAIL PROTECTED]
www: http://www.cygnets.co.uk
tel: +44(0)1560 323444
fax: +44(0)1560 323432
_______________________________________________
scmbug-users mailing list
[email protected]
http://lists.mkgnu.net/cgi-bin/mailman/listinfo/scmbug-users
