[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 02:13:44

Modified files:
        contrib        : ChangeLog log_accum.pl 

Log message:
        * log_accum.pl: Avoid `use constant' - it requires Perl 5.8.
        (Suggested by Mark D. Baushke <address@hidden>.)

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

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/ChangeLog,v
retrieving revision 1.215
retrieving revision 1.216
diff -u -b -r1.215 -r1.216
--- ChangeLog   3 Aug 2006 17:55:48 -0000       1.215
+++ ChangeLog   4 Aug 2006 02:13:44 -0000       1.216
@@ -1,5 +1,8 @@
 2006-08-03  Derek Price  <address@hidden>
 
+       * log_accum.pl: Avoid `use constant' - it requires Perl 5.8.
+       (Suggested by Mark D. Baushke <address@hidden>.)
+
        * log_accum.pl: Change --debug_file to --debug-log or --debug-file, for
        readability and consistency.
 

Index: log_accum.pl
===================================================================
RCS file: /cvsroot/cvs/ccvs/contrib/log_accum.pl,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -b -r1.51 -r1.52
--- log_accum.pl        3 Aug 2006 17:55:48 -0000       1.51
+++ log_accum.pl        4 Aug 2006 02:13:44 -0000       1.52
@@ -85,13 +85,12 @@
 # Constants
 #
 ############################################################
-use constant {
-       STATE_NONE    => 0,
-       STATE_CHANGED => 1,
-       STATE_ADDED   => 2,
-       STATE_REMOVED => 3,
-       STATE_LOG     => 4
-};
+# 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 }