From 649e8c1f7ffa6bf1597513aadf4965845b1a1b01 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Mon, 19 Oct 1998 16:33:06 +0000
Subject: [PATCH] ArabictoRoman():  Removed, since it wasn't used anywhere.

---
 Doc/perl/python.perl | 23 -----------------------
 1 file changed, 23 deletions(-)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 9eaf36c873c..bffd46f2dde 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -32,29 +32,6 @@ sub swallow_newline{
     s/[\n]?//o;
 }
 
-sub ArabictoRoman {
-    # Written by Robert Donohue <donahue@cfassp48.harvard.edu>,
-    # fixed by Fred Drake <fdrake@acm.org>,
-    # kept around in case it becomes useful.
-    my $a = @_;
-    my($b,@c,$i);
-    my(@D0,@D1,@D2);
-
-    @D0 = ("", "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX");
-    @D1 = ("", "X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC");
-    @D2 = ("", "C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM");
-
-    $b = $a;
-    $i = 0;
-    while($b > 0) {
-	$c[$i] = ($b % 10);
-	$b -= ($b % 10);
-	$b /= 10;
-	$i++;
-    }
-    return $D2[$c[2]] . $D1[$c[1]] . $D0[$c[0]];
-}
-
 
 # This is a fairly simple hack; it supports \let when it is used to create
 # (or redefine) a macro to exactly be some other macro: \let\newname=\oldname.