diff options
| author | bwarken <bwarken> | 2013-04-12 22:30:44 +0000 |
|---|---|---|
| committer | bwarken <bwarken> | 2013-04-12 22:30:44 +0000 |
| commit | 6d8eb8817ffbd1b0db721de42a643cba39c1a13b (patch) | |
| tree | 8e49e0cd5135519292258bea35bf33500b03eb4b /contrib | |
| parent | bacf8d74770139ca865d02e079a9e73434a3c275 (diff) | |
| download | groff-6d8eb8817ffbd1b0db721de42a643cba39c1a13b.tar.gz | |
glilypond.pl: Fix END for early exit of `--version'.
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/glilypond/ChangeLog | 4 | ||||
| -rwxr-xr-x | contrib/glilypond/glilypond.pl | 4 |
2 files changed, 7 insertions, 1 deletions
diff --git a/contrib/glilypond/ChangeLog b/contrib/glilypond/ChangeLog index 86fcbbae..50116cea 100644 --- a/contrib/glilypond/ChangeLog +++ b/contrib/glilypond/ChangeLog @@ -1,5 +1,9 @@ 2013-04-12 Bernd Warken <groff-bernd.warken-72@web.de> + * glilypond.pl: Fix END for early exit of `--version'. + +2013-04-12 Bernd Warken <groff-bernd.warken-72@web.de> + * subs.pl: Replace `state' by global variable. So the Perl version can be older. diff --git a/contrib/glilypond/glilypond.pl b/contrib/glilypond/glilypond.pl index af95013a..0b91bb98 100755 --- a/contrib/glilypond/glilypond.pl +++ b/contrib/glilypond/glilypond.pl @@ -15,7 +15,7 @@ our $Legalese; { 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 @@ our $Read = END { + exit unless ( defined($Temp -> { 'temp_dir' })); + if ( $Args -> { 'keep_all' } ) { # With --keep_all, no temporary files are removed. $v -> print( "keep_all: `TRUE'" ); |