[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[groff] 01/01: gperl: Improve handling of .Perl lines. Version 1.2.4
From: |
Bernd Warken |
Subject: |
[groff] 01/01: gperl: Improve handling of .Perl lines. Version 1.2.4 |
Date: |
Fri, 01 Aug 2014 16:53:19 +0000 |
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+.*)$/;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [groff] 01/01: gperl: Improve handling of .Perl lines. Version 1.2.4,
Bernd Warken <=