Upgrade to Devel::PPPort 3.06_01

[p5sagit/p5-mst-13.2.git] / ext / Devel / PPPort / devel / mkapidoc.sh

diff --git a/ext/Devel/PPPort/devel/mkapidoc.sh b/ext/Devel/PPPort/devel/mkapidoc.sh
index 74da36f..c0dccac 100644 (file)
--- a/ext/Devel/PPPort/devel/mkapidoc.sh
+++ b/ext/Devel/PPPort/devel/mkapidoc.sh
@@ -5,9 +5,9 @@
 #
 ################################################################################
 #
-#  $Revision: 6 $
+#  $Revision: 7 $
 #  $Author: mhx $
-#  $Date: 2005/01/31 08:10:49 +0100 $
+#  $Date: 2005/03/10 18:21:59 +0100 $
 #
 ################################################################################
 #
@@ -64,7 +64,7 @@ fi
 if isperlroot $PERLROOT; then
   grep -hr '^=for apidoc' $PERLROOT | sed -e 's/=for apidoc //' | grep '|' | sort | uniq \
      | perl -e'$f=pop;open(F,$f)||die"$f:$!";while(<F>){(split/\|/)[2]=~/(\w+)/;$h{$1}++}
-               while(<>){(split/\|/)[2]=~/(\w+)/;$h{$1}||print}' $EMBED >$OUTPUT
+               while(<>){s/[ \t]+$//;(split/\|/)[2]=~/(\w+)/;$h{$1}||print}' $EMBED >$OUTPUT
 else
   usage
 fi