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 <[email protected]>
+ * glilypond.pl: Fix END for early exit of `--version'.
+
+2013-04-12 Bernd Warken <[email protected]>
+
* 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'" );
_______________________________________________
Groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit
