[groff] 01/01: gperl: Improve handling of .Perl lines. Version 1.2.4

[Bernd Warken]

bwarken pushed a commit to branch master
in repository groff.

commit e4f3ca917c4161dc105519ac72acefcfa2e34976
Author: Bernd Warken <address@hidden>
Date:   Fri Aug 1 18:53:12 2014 +0200

    gperl: Improve handling of .Perl lines.  Version 1.2.4
---
 contrib/gperl/ChangeLog |    5 +++++
 contrib/gperl/gperl.pl  |    5 +++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/contrib/gperl/ChangeLog b/contrib/gperl/ChangeLog
index 6cac262..29683b3 100644
--- a/contrib/gperl/ChangeLog
+++ b/contrib/gperl/ChangeLog
@@ -1,5 +1,10 @@
 2014-07-06  Bernd Warken  <address@hidden>
 
+       * gperl.pl: Version 1.2.4
+       Improve handling of `.Perl' lines.
+
+2014-07-06  Bernd Warken  <address@hidden>
+
        * gperl.pl: Version 1.2.3
 
        * gperl.man: Compatioble to `doclifter'.
diff --git a/contrib/gperl/gperl.pl b/contrib/gperl/gperl.pl
index 0f91587..f805236 100755
--- a/contrib/gperl/gperl.pl
+++ b/contrib/gperl/gperl.pl
@@ -10,8 +10,8 @@
 
 # Written by Bernd Warken <address@hidden>.
 
-my $Latest_Update = '6 Jul 2014';
-my $version = '1.2.3';
+my $Latest_Update = '1 Aug 2014';
+my $version = '1.2.4';
 
 # This file is part of `gperl', which is part of `groff'.
 
@@ -140,6 +140,7 @@ my $perl_mode = 0;
 
 foreach (<>) {
   chomp;
+  s/\s+$//;
   my $line = $_;
   my $is_dot_Perl = $line =~ /^[.']\s*Perl(|\s+.*)$/;