fml/bin/fmldoc


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

#!/usr/local/bin/perl
#-*- perl -*-
#
# Copyright (C) 2000 Ken'ichi Fukamachi
#          All rights reserved. 
#
# $FML$
#

=head1 NAME

fmldoc -- wrapper for pod2man

=head1 SYNOPSIS

fmldoc filename

=head1 DESCRIPTION

=cut

for $file (@ARGV) {
    $file =~ s@::@/@g;
    system "pod2man $file | nroff -man |less";
}

1;