diff options
author | Richard Maw <richard.maw@codethink.co.uk> | 2012-02-20 17:27:43 +0000 |
---|---|---|
committer | Richard Maw <richard.maw@codethink.co.uk> | 2012-02-20 17:30:17 +0000 |
commit | 766d6b1afab82d786741434fcc80431c3db7690e (patch) | |
tree | 28795c1bf6038fb4bab07e3ac1e4270c4a78c150 /contrib/groffer/perl/groffer.pl | |
parent | 4281275ada31523b07d0c19f70cff2871774603c (diff) | |
download | groff-766d6b1afab82d786741434fcc80431c3db7690e.tar.gz |
Revert back to groff-1_21
Diffstat (limited to 'contrib/groffer/perl/groffer.pl')
-rwxr-xr-x | contrib/groffer/perl/groffer.pl | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/contrib/groffer/perl/groffer.pl b/contrib/groffer/perl/groffer.pl index 65d4cdbd..602abb06 100755 --- a/contrib/groffer/perl/groffer.pl +++ b/contrib/groffer/perl/groffer.pl @@ -5,10 +5,10 @@ # Source file position: <groff-source>/contrib/groffer/perl/groffer.pl # Installed position: <prefix>/bin/groffer -# Copyright (C) 2006, 2009, 2011 Free Software Foundation, Inc. +# Copyright (C) 2006, 2009 Free Software Foundation, Inc. # Written by Bernd Warken. -# Last update: 22 Mar 2011 +# Last update: 5 Jan 2009 # This file is part of `groffer', which is part of `groff'. @@ -132,7 +132,8 @@ BEGIN { $at_at{'BINDIR'} = '@BINDIR@'; $at_at{'G'} = '@g@'; $at_at{'LIBDIR'} = '@libdir@'; - $groffer_libdir = '@groffer_dir@'; + $groffer_libdir = + File::Spec->catdir($at_at{'LIBDIR'}, 'groff', 'groffer'); $file_perl_test_pl = File::Spec->catfile($groffer_libdir, 'perl_test.pl'); $File_version_sh = File::Spec->catfile($groffer_libdir, 'version.sh'); @@ -192,9 +193,9 @@ my %Viewer_X =('DVI' => ['kdvi', 'xdvi', 'dvilx'], 'HTML' => ['konqueror', 'epiphany'. 'mozilla-firefox', 'firefox', 'mozilla', 'netscape', 'galeon', 'opera', 'amaya','arena', 'mosaic'], - 'PDF' => ['okular', 'kpdf', 'acroread', 'evince', 'xpdf -z 150', 'gpdf', + 'PDF' => ['kpdf', 'acroread', 'evince', 'xpdf -z 150', 'gpdf', 'kghostview --scale 1.45', 'ggv'], - 'PS' => ['okular', 'kpdf', 'kghostview --scale 1.45', 'evince', 'ggv', + 'PS' => ['kpdf', 'kghostview --scale 1.45', 'evince', 'ggv', 'gv', 'ghostview', 'gs_x11', 'gs'], 'TTY' => ['xless'], 'X' => ['gxditview', 'xditview'], @@ -1322,8 +1323,8 @@ sub _get_first_prog { if (%prog) { $Display{'PROG'} = $prog{'fullname'}; $Display{'ARGS'} = $prog{'args'}; - return 1; } + return 1; } return 0; } # _get_first_prog() of main_set_mode() |