# HG changeset patch
# User Chris Cannam <chris.cannam@soundsoftware.ac.uk>
# Date 1302108594 -3600
# Node ID dad587ecb8d04cb80f7af0dbb0d4e63656e5a837
# Parent  f89765996ef9d29f971da58a32c7c2557c209fd1
Use mixed-case version (not lower-case function name key) for link target

diff -r f89765996ef9 -r dad587ecb8d0 extra/soundsoftware/matlab-docs.pl
--- a/extra/soundsoftware/matlab-docs.pl	Wed Apr 06 12:39:38 2011 +0100
+++ b/extra/soundsoftware/matlab-docs.pl	Wed Apr 06 17:49:54 2011 +0100
@@ -75,7 +75,7 @@
 
 $VERSION  = '1.23';
 ($PROGRAM = $0) =~ s@.*/@@; $PROGRAM = "\U$PROGRAM\E";
-$debug = 0;
+$debug = 2;
 
 #------------------------------------------------------------------------
 # Define platform specific things
@@ -372,7 +372,7 @@
                # Contents file in unix must start with a capital letter (Contents.m)
                # ensure, that m-file name is lower case, except the contents file
                if (! ($filewosuffix =~ /^contents$/i)) {
-                  # if ($var{'links2filescase'}  eq 'low') { $filewosuffix = "\L$filewosuffix\E"; }
+		   # if ($var{'links2filescase'}  eq 'low') { $filewosuffix = "\L$filewosuffix\E"; }
                   $filewosuffixlow = "\L$filewosuffix\E";
                }
                else { $contentsname{$dirname} = $filewosuffix; }
@@ -1144,7 +1144,7 @@
    # Look for something matching in the line
    if ( /(\W+)($funname)(\W+)/i ) {
       $reffound = $2;
-      $refstr1 = "<a class=\"mfun\" href=\"$hfileindexpath{$name}$hfilerelpath{$funname}$funname$var{'exthtml'}\">";
+      $refstr1 = "<a class=\"mfun\" href=\"$hfileindexpath{$name}$hfilerelpath{$funname}$mfilename{$funname}$var{'exthtml'}\">";
       $refstr2 = "<\/a>";
       # Do links only for exact case match
       if ( ($var{'links2filescase'}  eq 'exact') || ($var{'links2filescase'}  eq 'exactvery') ) {