[Cvs-cvs] ccvs/contrib ChangeLog log_accum.pl

[Derek Robert Price]

CVSROOT:        /cvsroot/cvs
Module name:    ccvs
Changes by:     Derek Robert Price <dprice>     06/08/04 11:29:18

Modified files:
        contrib        : ChangeLog log_accum.pl 

Log message:
        * log_accum.pl: Use function prototypes for constants.  Require 5.002.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/ccvs/contrib/ChangeLog?cvsroot=cvs&r1=1.216&r2=1.217
http://cvs.savannah.gnu.org/viewcvs/ccvs/contrib/log_accum.pl?cvsroot=cvs&r1=1.52&r2=1.53

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/ChangeLog,v
retrieving revision 1.216
retrieving revision 1.217
diff -u -b -r1.216 -r1.217
--- ChangeLog   4 Aug 2006 02:13:44 -0000       1.216
+++ ChangeLog   4 Aug 2006 11:29:18 -0000       1.217
@@ -1,3 +1,7 @@
+2006-08-04  Derek Price  <address@hidden>
+
+       * log_accum.pl: Use function prototypes for constants.  Require 5.002.
+
 2006-08-03  Derek Price  <address@hidden>
 
        * log_accum.pl: Avoid `use constant' - it requires Perl 5.8.

Index: log_accum.pl
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/log_accum.pl,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -b -r1.52 -r1.53
--- log_accum.pl        4 Aug 2006 02:13:44 -0000       1.52
+++ log_accum.pl        4 Aug 2006 11:29:18 -0000       1.53
@@ -46,6 +46,7 @@
 # Ken Coar, Sylvain Beucler <address@hidden> and Derek Price -- check
 # ChangeLog for precise credits.
 
+require 5.002;    # Subroutine prototypes.
 use strict;
 
 use Getopt::Long qw(:config gnu_getopt require_order);
@@ -86,11 +87,11 @@
 #
 ############################################################
 # The constant pragma wasn't introduced until Perl 5.8.
-sub STATE_NONE    { 0 }
-sub STATE_CHANGED { 1 }
-sub STATE_ADDED   { 2 }
-sub STATE_REMOVED { 3 }
-sub STATE_LOG     { 4 }
+sub STATE_NONE    () { 0 }
+sub STATE_CHANGED () { 1 }
+sub STATE_ADDED   () { 2 }
+sub STATE_REMOVED () { 3 }
+sub STATE_LOG     () { 4 }