components/tcl/tcl/patches/1.man.patch
changeset 225 2f3e03a69313
parent 181 87e11e685b1f
equal deleted inserted replaced
224:b0ca638fab1b 225:2f3e03a69313
     1 --- tcl8.4.18/unix/installManPage.~1~	2008-02-06 07:38:26.000000000 -0800
     1 --- tcl8.5.9/unix/installManPage.~1~	2010-09-08 10:40:48.000000000 -0700
     2 +++ tcl8.4.18/unix/installManPage	2011-04-01 00:04:27.166384166 -0700
     2 +++ tcl8.5.9/unix/installManPage	2011-04-15 11:32:42.369884199 -0700
     3 @@ -48,7 +48,7 @@
     3 @@ -85,12 +85,13 @@
     4  	q
       
     5      }' $MANPAGE`
       
     6  
     4  
     7 -SECTION=`echo $MANPAGE | sed 's/.*\(.\)$/\1/'`
     5  case $ManPage in
     8 +SECTION=`echo $MANPAGE | sed 's/.*\.\(.*\)$/\1/'`
     6      *.1) Section=1 ;;
     9  SRCDIR=`dirname $MANPAGE`
     7 -    *.3) Section=3 ;;
    10  FIRST=""
     8 -    *.n) Section=n ;;
    11  for f in $NAMES; do
     9 +    *.3tcl) Section=3tcl ;;
       
    10 +    *.1t) Section=1t ;;
       
    11      *)	echo "unknown section for $ManPage"
       
    12  	exit 2 ;;
       
    13  esac
       
    14  
       
    15 +#SECTION=`echo $MANPAGE | sed 's/.*\(.\)$/\1/'`
       
    16  SrcDir=`dirname $ManPage`
       
    17  
       
    18  ########################################################################