1 files changed, 0 insertions, 46 deletions
diff --git a/contrib/perl5/pod/splitman b/contrib/perl5/pod/splitman
deleted file mode 100755
index 9fe404a..0000000
--- a/contrib/perl5/pod/splitman
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/perl
-
-while (<>) {
-    if ($seqno = 1 .. /^\.TH/) {
-	unless ($seqno =~ /e/i) {
-	    $header .= $_;
-	} 
-	next;
-    } 
-
-    if ( /^\.Ip\s*"(.*)"\s*\d+$/) {
-	$desking = 0;
-	$desc = $1;
-	if (name($desc) ne $myname) {
-	    $myname = name($desc);
-	    print $myname, "\n";
-	    open(MAN, "> $myname.3pl");
-	    print MAN <<EOALL;
-$header
-.TH $myname 3PL "\\*(RP"
-.SH NAME 
-$myname
-.SH SYNOPSIS 
-.B $desc
-EOALL
-	} else {
-	    print MAN <<EOMORE;
-.br
-.ti +3n
-or
-.br
-.B $desc
-EOMORE
-	} 
-	next;
-    } 
-    unless ($desking) {
-	print MAN ".SH DESCRIPTION\n";
-	$desking = 1;
-    } 
-    print MAN;
-} 
-
-sub name {
-    ($_[0] =~ /(\w+)/)[0];
-}