[sdlgit/SDL-Site.git] / tools / pod2xhtml.pl

#!/usr/bin/env perl

use strict;
use warnings;

use File::Spec;
use Pod::Xhtml;

die "Usage: pod2xhtml filename\n" if $#ARGV < 0;

my $parser       = Pod::Xhtml->new(FragmentOnly => 1);

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