[Groff-commit] groff/contrib/groffer ChangeLog version.sh perl...

[Werner LEMBERG]

CVSROOT:        /cvsroot/groff
Module name:    groff
Changes by:     Werner LEMBERG <wl>     11/01/27 05:03:20

Modified files:
        contrib/groffer: ChangeLog version.sh 
        contrib/groffer/perl: groffer.pl man.pl 

Log message:
        Add ChangeLog entry and other minor clean-ups.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/groffer/ChangeLog?cvsroot=groff&r1=1.57&r2=1.58
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/groffer/version.sh?cvsroot=groff&r1=1.18&r2=1.19
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/groffer/perl/groffer.pl?cvsroot=groff&r1=1.9&r2=1.10
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/groffer/perl/man.pl?cvsroot=groff&r1=1.4&r2=1.5

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/groff/groff/contrib/groffer/ChangeLog,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- ChangeLog   5 Jan 2009 20:10:38 -0000       1.57
+++ ChangeLog   27 Jan 2011 05:03:20 -0000      1.58
@@ -1,3 +1,18 @@
+2011-01-27  James Budiono  <address@hidden>
+           Bernd Warken
+
+       Fix display of manpages.
+
+       Reported as
+       http://lists.gnu.org/archive/html/bug-groff/2011-01/msg00015.html.
+
+       * perl/groffer.pl (_get_first_prog): Fix return value.
+       (Viewer_X): Add `okular' viewer.
+       * perl/man.pl (manpath_set_from_path): Handle address@hidden::Path)'
+       correctly.
+       
+       * version.sh: Updated.
+
 2009-01-03  Werner LEMBERG  <address@hidden>
 
        * version.sh: Prepare for groff release 1.20.
@@ -226,7 +241,7 @@
        ________________________________________________________________
        License
 
-       Copyright (C) 2006, 2007, 2008, 2009
+       Copyright (C) 2006-2009, 2011
        Free Software Foundation, Inc.
        Written by Bernd Warken
 

Index: version.sh
===================================================================
RCS file: /cvsroot/groff/groff/contrib/groffer/version.sh,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- version.sh  26 Jan 2011 23:20:53 -0000      1.18
+++ version.sh  27 Jan 2011 05:03:20 -0000      1.19
@@ -5,7 +5,7 @@
 # Source file position: <groff-source>/contrib/groffer/version.sh
 # Installed position: <prefix>/lib/groff/groffer/version.sh
 
-# Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2009, 2011
+# Copyright (C) 2001-2006, 2009, 2011
 #   Free Software Foundation, Inc.
 # Written by Bernd Warken
 

Index: perl/groffer.pl
===================================================================
RCS file: /cvsroot/groff/groff/contrib/groffer/perl/groffer.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- perl/groffer.pl     26 Jan 2011 23:20:53 -0000      1.9
+++ perl/groffer.pl     27 Jan 2011 05:03:20 -0000      1.10
@@ -8,7 +8,7 @@
 # Copyright (C) 2006, 2009, 2011 Free Software Foundation, Inc.
 # Written by Bernd Warken.
 
-# Last update: 26 Jan 2011
+# Last update: 27 Jan 2011
 
 # This file is part of `groffer', which is part of `groff'.
 
@@ -1323,7 +1323,7 @@
     if (%prog) {
       $Display{'PROG'} = $prog{'fullname'};
       $Display{'ARGS'} = $prog{'args'};
-      return 1;  # james bug fix
+      return 1;
     }
   }
   return 0;

Index: perl/man.pl
===================================================================
RCS file: /cvsroot/groff/groff/contrib/groffer/perl/man.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- perl/man.pl 26 Jan 2011 23:20:54 -0000      1.4
+++ perl/man.pl 27 Jan 2011 05:03:20 -0000      1.5
@@ -8,7 +8,7 @@
 # Copyright (C) 2006, 2009, 2011 Free Software Foundation, Inc.
 # Written by Bernd Warken.
 
-# Last update: 26 Jan 2011
+# Last update: 27 Jan 2011
 
 # This file is part of `groffer', which is part of `groff'.
 
@@ -522,8 +522,8 @@
   my @path =
     qw( /usr/local /usr /usr/X11R6 /usr/openwin /opt /opt/gnome /opt/kde );
   # get a basic man path from $ENV{PATH}
-  my @path2 = @main::Path; # james bug fix
-  foreach (@path2) { # james bug fix
+  my @path2 = @main::Path;
+  foreach (@path2) {
     s#bin/*$##;
     push @path, $_;
   }