[Groff-commit] groff/contrib/glilypond ChangeLog glilypond.pl ...

[Bernd Warken]

CVSROOT:        /cvsroot/groff
Module name:    groff
Changes by:     Bernd Warken <bwarken>  13/04/12 21:45:56

Modified files:
        contrib/glilypond: ChangeLog glilypond.pl perl_test.pl subs.pl 

Log message:
        `glilypond': Replace `state' by global variable.  So the Perl version
        can be reduced from `v5.9.4' to `v5.6'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/glilypond/ChangeLog?cvsroot=groff&r1=1.5&r2=1.6
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/glilypond/glilypond.pl?cvsroot=groff&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/glilypond/perl_test.pl?cvsroot=groff&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/glilypond/subs.pl?cvsroot=groff&r1=1.1&r2=1.2

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/groff/groff/contrib/glilypond/ChangeLog,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- ChangeLog   12 Apr 2013 21:07:39 -0000      1.5
+++ ChangeLog   12 Apr 2013 21:45:56 -0000      1.6
@@ -1,3 +1,11 @@
+2013-04-12  Bernd Warken  <address@hidden>
+
+       * subs.pl: Replace `state' by global variable.  So the Perl
+       version can be older.
+
+       * perl_test.pl: Replace the Perl version by `v5.6', analogously to
+       `groffer'.
+
 2013-04-11  Bernd Warken  <address@hidden>
 
        * Makefile.sub: Corrections for Emacs.

Index: glilypond.pl
===================================================================
RCS file: /cvsroot/groff/groff/contrib/glilypond/glilypond.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2

Index: perl_test.pl
===================================================================
RCS file: /cvsroot/groff/groff/contrib/glilypond/perl_test.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- perl_test.pl        29 Mar 2013 11:41:21 -0000      1.1
+++ perl_test.pl        12 Apr 2013 21:45:56 -0000      1.2
@@ -9,7 +9,7 @@
 #   Free Software Foundation, Inc.
 # Written by Bernd Warken <address@hidden>.
 
-# Last update: 18 Mar 2013
+# Last update: 12 Apr 2013
 
 # This file is part of `glilypond', which is part of `groff'.
 
@@ -31,8 +31,8 @@
 # This file tests whether perl has a suitable version.  It is used by
 # glilypond.pl and Makefile.sub.
 
-require v5.9.4; # for `state' in `subs.pl'
-
+# former: require v5.9.4; # for `state' in `subs.pl'
+require v5.6; # analogously to `groffer'
 
 ########################################################################
 ### Emacs settings

Index: subs.pl
===================================================================
RCS file: /cvsroot/groff/groff/contrib/glilypond/subs.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- subs.pl     29 Mar 2013 11:41:21 -0000      1.1
+++ subs.pl     12 Apr 2013 21:45:56 -0000      1.2
@@ -12,7 +12,7 @@
 Copyright (C) 2013 Free Software Foundation, Inc.
   Written by Bernd Warken <address@hidden>
 
-Last update: 26 Mar 2013
+Last update: 12 Apr 2013
 
 This file is part of `glilypond', which is part of `GNU groff'.
 
@@ -248,11 +248,11 @@
 } # end sub make_dir()
 
 
+my $number = 0;
 sub next_temp_file {
   our ( $Temp, $v, $Args );
-  state $n = 0;
-  ++$n;
-  my $temp_basename = $Args -> { 'prefix' } . '_temp_' . $n;
+  ++$number;
+  my $temp_basename = $Args -> { 'prefix' } . '_temp_' . $number;
   my $temp_file = File::Spec -> catfile( $Temp -> { 'temp_dir' } ,
                                         $temp_basename );
   $v -> print( "next temporary file: `$temp_file'" );