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

[Bernd Warken]

CVSROOT:        /cvsroot/groff
Module name:    groff
Changes by:     Bernd Warken <bwarken>  13/04/12 22:30:44

Modified files:
        contrib/glilypond: ChangeLog glilypond.pl 

Log message:
        glilypond.pl: Fix END for early exit of `--version'.

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

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/groff/groff/contrib/glilypond/ChangeLog,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- ChangeLog   12 Apr 2013 21:45:56 -0000      1.6
+++ ChangeLog   12 Apr 2013 22:30:44 -0000      1.7
@@ -1,5 +1,9 @@
 2013-04-12  Bernd Warken  <address@hidden>
 
+       * glilypond.pl: Fix END for early exit of `--version'.
+
+2013-04-12  Bernd Warken  <address@hidden>
+
        * subs.pl: Replace `state' by global variable.  So the Perl
        version can be older.
 

Index: glilypond.pl
===================================================================
RCS file: /cvsroot/groff/groff/contrib/glilypond/glilypond.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- glilypond.pl        12 Apr 2013 21:45:56 -0000      1.2
+++ glilypond.pl        12 Apr 2013 22:30:44 -0000      1.3
@@ -15,7 +15,7 @@
 
 {
   use constant VERSION => 'v1.0'; # version of glilypond
-  use constant LASTUPDATE => '28 Mar 2013'; # date of last update
+  use constant LASTUPDATE => '12 Apr 2013'; # date of last update
 
 ### This constant `LICENSE' is the license for this file `GPL' >= 3
   use constant LICENSE => q*
@@ -653,6 +653,8 @@
 
 END {
 
+  exit unless ( defined($Temp -> { 'temp_dir' }));
+
   if ( $Args -> { 'keep_all' } ) {
     # With --keep_all, no temporary files are removed.
     $v -> print( "keep_all: `TRUE'" );