diff options
author | Bernd Warken <groff-bernd.warken-72@web.de> | 2013-04-12 21:45:56 +0000 |
---|---|---|
committer | Bernd Warken <groff-bernd.warken-72@web.de> | 2013-04-12 21:45:56 +0000 |
commit | 9276651f53ed5394d3b898011b0b009d47c60987 (patch) | |
tree | 4b16dd00498e209fd8aa27b4384c077f618ee16a /contrib/glilypond/glilypond.pl | |
parent | 49343abb6b4b5e44bfa749626e07232f2332c219 (diff) | |
download | groff-git-9276651f53ed5394d3b898011b0b009d47c60987.tar.gz |
`glilypond': Replace `state' by global variable. So the Perl version
can be reduced from `v5.9.4' to `v5.6'.
Diffstat (limited to 'contrib/glilypond/glilypond.pl')
-rwxr-xr-x | contrib/glilypond/glilypond.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/contrib/glilypond/glilypond.pl b/contrib/glilypond/glilypond.pl index 6a2977509..af95013aa 100755 --- a/contrib/glilypond/glilypond.pl +++ b/contrib/glilypond/glilypond.pl @@ -101,9 +101,9 @@ BEGIN { } - $\ = "\n"; # adds newline at each print - $/ = "\n"; # newline separates input - $| = 1; # flush after each print or write command + $\ = "\n"; # adds newline at each print + $/ = "\n"; # newline separates input + $| = 1; # flush after each print or write command { @@ -616,7 +616,7 @@ our $Read = if ( exists $lilypond_args{ $arg1 } ) { $lilypond_args{ $arg1 } -> ( $arg2 ); - next; + next; } else { # not a suitable argument of `.lilypond' $stderr -> print( "Unknown command: `$arg1' `$arg2': `$line'" ); |