diff options
| author | bwarken <bwarken> | 2013-04-16 19:00:42 +0000 |
|---|---|---|
| committer | bwarken <bwarken> | 2013-04-16 19:00:42 +0000 |
| commit | 40e73b9edaeba2d7bf47434fd97af7a10bfbbe34 (patch) | |
| tree | ac99aef12e685e240a2b3ec7dcf7989e601d0de7 /contrib | |
| parent | 6ff7517b2df1c0586f5fa587a5ecb3fc07a70efa (diff) | |
| download | groff-40e73b9edaeba2d7bf47434fd97af7a10bfbbe34.tar.gz | |
INSTALL.gen: Replace this file by the daily `git' version of
`automake' `INSTALL' file.
INSTALL.autotools: Remove file.
INSTALL.CVS: New file, moved from `INSTALL.autotools'.
m4/ax_prog_perl_version.m4: New file, taken from package
`autoconf-archive-2013.04.06'.
m4/groff.m4: Remove unnecessary blank line.
Makefile.in: Add `$(PERLVERSION)'.
aclocal.m4: Run `autoreconf -I m4' (this includes
`aclocal -I m4'). This creates a suitable `aclocal.m4'. Remove
generated subdirectory `autom4te.cache'.
src/roff/grog/Makefile.sub: Correct `sed' command. Use `tabs'
that are needed by `GNU make'.
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/glilypond/subs.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/contrib/glilypond/subs.pl b/contrib/glilypond/subs.pl index c927ae3e..d193534c 100644 --- a/contrib/glilypond/subs.pl +++ b/contrib/glilypond/subs.pl @@ -427,7 +427,7 @@ sub usage { # for `--help' my $p = $Globals->{'prog'}; my $usage = EMPTYSTRING; - $usage = '###### usage:' . "\n" if ( $Args -> { 'verbose' } ); + $usage = '###### usage:' . "\n" if ( $Args->{'verbose'} ); $usage .= qq*Options for $p: Read a `roff' file or standard input and transform `lilypond' parts (everything between `.lilypond start' and `.lilypond end') into @@ -470,7 +470,7 @@ The directories set are created when they do not exist. my $pv = &perl_version(); $usage .= "\n" . 'Perl version ' . $pv . ' needed.' if ( $pv ); - $main::stdout -> print( $usage ); + $main::stdout->print( $usage ); } # end sub usage() @@ -486,8 +486,8 @@ sub version { # for `--version' my $output = EMPTYSTRING; $output = "###### version:\n" if ( $Args -> { 'verbose' } ); $output .= "`" . $Globals -> { 'prog' } . "' version `" . - $Legalese -> { 'version' } . "' of `" . - $Legalese -> { 'last_update' } . "' is part of `GNU groff'" . $end; + $Legalese->{'version'} . "' of `" . + $Legalese->{'last_update'} . "' is part of `GNU groff'" . $end; $stdout -> print( $output ); } # end sub version() |