From 68496a2957e2f4b7bb2b8a943236ea4859905bf2 Mon Sep 17 00:00:00 2001
From: Jens-Heiner Rechtien
Date: Wed, 9 Oct 2002 16:08:08 +0000
Subject: fix: name() needs to write $self-{NAME} cosmetic changes
---
solenv/bin/modules/Cvs.pm | 26 +++++++++++++-------------
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/solenv/bin/modules/Cvs.pm b/solenv/bin/modules/Cvs.pm
index f55b963ab238..2d8893ff56c5 100644
--- a/solenv/bin/modules/Cvs.pm
+++ b/solenv/bin/modules/Cvs.pm
@@ -2,9 +2,9 @@
#
# $RCSfile: Cvs.pm,v $
#
-# $Revision: 1.5 $
+# $Revision: 1.6 $
#
-# last change: $Author: hr $ $Date: 2002-08-22 18:03:40 $
+# last change: $Author: hr $ $Date: 2002-10-09 17:08:08 $
#
# The Contents of this file are made available subject to the terms of
# either of the following licenses
@@ -106,9 +106,9 @@ sub name
{
my $self = shift;
if ( @_ ) {
- $self->{name} = shift;
+ $self->{NAME} = shift;
}
- return $self->{name};
+ return $self->{NAME};
}
sub cvs_binary
@@ -356,14 +356,13 @@ sub parse_log
next;
};
- (/^----------------------------$/o || /^=============================================================================$/o) && do {
- $rev_data = {
- DATE => $date,
- AUTHOR => $author,
- STATE => $state,
- COMMENT => $comment,
- BRANCHES => [ @branches ]
- };
+ (/^----------------------------$/o || /^=============================================================================$/o) && do
+ {
+ $rev_data = {DATE => $date,
+ AUTHOR => $author,
+ STATE => $state,
+ COMMENT => $comment,
+ BRANCHES => [ @branches ]};
$self->{REV_DATA}->{$rev} = $rev_data;
$comment = undef;
@branches = ();
@@ -371,7 +370,8 @@ sub parse_log
};
$comment .= $_ . "\n" ;
- } elsif ( $in_tags ) {
+ }
+ elsif ( $in_tags ) {
/^keyword\ssubstitution:/o && do { $self->{FLAGS} = $'; $in_tags--; next; };
/^\t(\w+):\s((\d|\.)+)$/o && do { $self->{TAGS}->{$1} = $2; next; };
}
--
cgit