Added todo to index
[sdlgit/SDL-Site.git] / tools / pod2xhtml.pl
CommitLineData
2f2fff27 1#!/usr/bin/env perl
2
3use strict;
4use warnings;
5
6use File::Spec;
7use Pod::Xhtml;
8
9die "Usage: pod2xhtml filename\n" if $#ARGV < 0;
10
11my $parser = Pod::Xhtml->new(FragmentOnly => 1);
12
13my $file_name = $ARGV[0];
14$file_name =~ s/(\.pm|\.pod)$/.html-inc/i;
15$parser->parse_from_file($ARGV[0], $file_name);