--- db/prgsrc/makeauthors.pl	2003/01/09 01:43:21	1.3
+++ db/prgsrc/makeauthors.pl	2003/02/02 21:01:11	1.5
@@ -1,5 +1,4 @@
-
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 =head1 NAME
 
@@ -77,6 +76,7 @@ while (<NICKS>)
    $name{$nick}= ucfirst lc $name;
    $surname=ucfirst lc $surname;
    $surname=~s/\-(.)/"-". uc $1/ge;
+   $surname=~s/\'(.)/"'". uc $1/ge;
    $surname{$nick}= $surname;
    
 }