/usr/share/vile/perl/Vile/Manual.pm is in vile-common 9.8o-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 | package Vile::Manual;
use strict;
use Carp;
require Exporter;
use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(manual);
sub manual {
my $pm = (caller) . '.pm';
( my $path = $pm ) =~ s!::!/!g;
$path = $INC{$path};
croak "can't get path for module $pm" unless $path;
my $b = edit Vile::Buffer "<$pm>";
if ( !$b or $b->dotq('$') <= 1 ) {
$b = new Vile::Buffer "<$pm>" unless $b;
local *P;
my $pid = open P, '-|';
croak "can't fork ($!)" unless defined $pid;
unless ($pid) {
my $filt = Vile::get('libdir-path') . '/vile-manfilt';
if ( $^O =~ /^(MSWin32|dos)$/ or !-x $filt ) {
require Pod::Text;
Pod::Text::pod2text($path);
}
else {
untie *STDERR;
open STDERR, '>/dev/null'; # supress pod2man whining
system "pod2man --lax $path|nroff -man|$filt";
}
exit;
}
print $b join '', <P>;
close P;
$b->setregion( 1, '$' )->attribute_cntl_a_sequences->unmark->dot(1);
}
Vile::current_window->buffer($b);
}
1;
__DATA__
=head1 NAME
manual - construct manual page from embedded pod documentation
=head1 SYNOPSIS
In a vile extension module:
use Vile::Manual;
%REGISTRY = (
...
'vile-command-help' => [ sub {&manual},
'manual page for vile-command'] );
=head1 DESCRIPTION
The Vile::Manual package provides a mechanism for extracting and
displaying as a manual page (in the editor) the pod documentation
embedded along with a vile extension.
=head1 BUGS
Does not do any sort of highlighting.
=head1 NOTES
I'm not convinced that this is the best mechanism for displaying man
pages for the perl extensions.
=head1 AUTHOR
Kevin Buettner
=cut
|