From eed1e484766f6e6f543c848d1a2696a524d3e1ff Mon Sep 17 00:00:00 2001
From: Alexandre Dupas <alexandre.dupas@gmail.com>
Date: Mon, 13 Oct 2008 20:18:06 +0200
Subject: [PATCH] remove commented out code.

---
 make-index | 18 ------------------
 1 file changed, 18 deletions(-)

diff --git a/make-index b/make-index
index 78ef3846..4e4d0fd4 100755
--- a/make-index
+++ b/make-index
@@ -26,24 +26,6 @@ sub get_first_letter($)
     return uppercase $letter;	
 }
 
-#sub get_first_letter_wo_article($)
-#{
-#    my $string = shift;
-#    my $letter;
-#    if( $string =~ /^(The |L\'|Les |Le |La |Une |Un )/ ) # if there is an article before the name
-#    {
-#	$string =~ /$1([\w\d])/;
-#	$letter = $1;
-#    }
-#    else
-#    {
-#	$string =~ /([\w\d])/;
-#	$letter = $1;
-#    }
-#    $letter = "0-9" if ( $letter =~ /\d/ ); # group every numer into one category
-#    return uppercase $letter;	
-#}
-
 sub usage 
 { 
     print "usage: make-index source\n";