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

[Bernd Warken]

CVSROOT:        /cvsroot/groff
Module name:    groff
Changes by:     Bernd Warken <bwarken>  06/10/14 13:45:32

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

Log message:
        Update groffer-1.0.1

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/groffer/ChangeLog?cvsroot=groff&r1=1.46&r2=1.47
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/groffer/version.sh?cvsroot=groff&r1=1.9&r2=1.10
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/groffer/perl/func.pl?cvsroot=groff&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/groff/contrib/groffer/perl/groffer.pl?cvsroot=groff&r1=1.1&r2=1.2

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/groff/groff/contrib/groffer/ChangeLog,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -b -r1.46 -r1.47
--- ChangeLog   14 Oct 2006 05:59:54 -0000      1.46
+++ ChangeLog   14 Oct 2006 13:45:32 -0000      1.47
@@ -1,4 +1,12 @@
-2006-10-04  Bernd Warken
+2006-10-14  Bernd Warken
+       ________________________________________________________________
+        * release of groffer 1.0.1
+
+       * perl/groffer.pl: Change $perl_test_pl to $file_perl_test_pl.
+
+       * perl/groffer.pl, perl/func.pl: Remove `\n' in `die' calls.
+
+2006-10-12  Bernd Warken
        ________________________________________________________________
         * release of groffer 1.0.0
 

Index: version.sh
===================================================================
RCS file: /cvsroot/groff/groff/contrib/groffer/version.sh,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- version.sh  14 Oct 2006 05:59:54 -0000      1.9
+++ version.sh  14 Oct 2006 13:45:32 -0000      1.10
@@ -32,8 +32,8 @@
 export _PROGRAM_VERSION;
 export _LAST_UPDATE;
 
-_PROGRAM_VERSION='1.0.0';
-_LAST_UPDATE='12 Oct 2006';
+_PROGRAM_VERSION='1.0.1';
+_LAST_UPDATE='14 Oct 2006';
 
 # this setting of the groff version is only used before make is run,
 # otherwise @VERSION@ will set it, see groffer.sh.

Index: perl/func.pl
===================================================================
RCS file: /cvsroot/groff/groff/contrib/groffer/perl/func.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- perl/func.pl        14 Oct 2006 05:59:54 -0000      1.1
+++ perl/func.pl        14 Oct 2006 13:45:32 -0000      1.2
@@ -512,7 +512,7 @@
   my $last_update = '';
   my $groff_version_preset = '';
 
-  die "$main::File_version_sh does not exist.\n"
+  die "$main::File_version_sh does not exist;"
     unless -f "$main::File_version_sh";
   my $fh;
   open $fh, "<$main::File_version_sh";

Index: perl/groffer.pl
===================================================================
RCS file: /cvsroot/groff/groff/contrib/groffer/perl/groffer.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- perl/groffer.pl     14 Oct 2006 05:59:54 -0000      1.1
+++ perl/groffer.pl     14 Oct 2006 13:45:32 -0000      1.2
@@ -8,7 +8,7 @@
 # Copyright (C) 2006 Free Software Foundation, Inc.
 # Written by Bernd Warken.
 
-# Last update: 12 Oct 2006
+# Last update: 14 Oct 2006
 
 # This file is part of `groffer', which is part of `groff'.
 
@@ -114,7 +114,7 @@
     }
 
     my %at_at;
-    my $File_perl_test_pl;
+    my $file_perl_test_pl;
     my $groffer_libdir;
 
     if ($before_make) {
@@ -125,7 +125,8 @@
       $at_at{'G'} = '';
       $at_at{'LIBDIR'} = '';
       $groffer_libdir = $groffer_perl_dir;
-      $perl_test_pl = File::Spec->catfile($groffer_top_dir, 'perl_test.pl');
+      $file_perl_test_pl = File::Spec->catfile($groffer_top_dir,
+                                              'perl_test.pl');
       $File_version_sh = File::Spec->catfile($groffer_top_dir, 'version.sh');
       $Groff_Version = '';
     } else {
@@ -135,21 +136,22 @@
       $at_at{'LIBDIR'} = '@libdir@';
       $groffer_libdir =
        File::Spec->catdir($at_at{'LIBDIR'}, 'groff', 'groffer');
-      $File_perl_test_pl = File::Spec->catfile($groffer_libdir, 
'perl_test.pl');
+      $file_perl_test_pl = File::Spec->catfile($groffer_libdir,
+                                              'perl_test.pl');
       $File_version_sh = File::Spec->catfile($groffer_libdir, 'version.sh');
     }
 
-    die "$groffer_libdir is not an existing directory.\n"
+    die "$groffer_libdir is not an existing directory;"
       unless -d $groffer_libdir;
 
     unshift(@INC, $groffer_libdir);
 
     $File_split_env_sh = File::Spec->catfile($groffer_libdir, 'split_env.sh');
-    die "$File_split_env_sh does not exist.\n" unless -f "$File_split_env_sh";
+    die "$File_split_env_sh does not exist;" unless -f "$File_split_env_sh";
 
     # test perl on suitable version
-    die "$perl_test_pl does not exist.\n" unless -f "$perl_test_pl";
-    do "$perl_test_pl" or die "Perl test: $@";
+    die "$file_perl_test_pl does not exist;" unless -f "$file_perl_test_pl";
+    do "$file_perl_test_pl" or die "Perl test: $@";
 
     require 'func.pl';
     require 'man.pl';
@@ -1128,7 +1130,7 @@
 
 sub _get_arg {
   if ($i > $n) {
-    die 'No argument left for last option.\n';
+    die '_get_arg(): No argument left for last option;';
   }
   my $arg = $Options[$i];
   ++$i;