[perl-ldap-checkins] CVS: ldap mkmanf,1.3,1.4

[Graham B. <gb...@us...>]

Update of /cvsroot/perl-ldap/ldap
In directory sc8-pr-cvs1:/tmp/cvs-serv18728

Modified Files:
	mkmanf 
Log Message:
New script to create MANIFEST from CVS files


Index: mkmanf
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/mkmanf,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- mkmanf	3 Jun 2002 15:42:50 -0000	1.3
+++ mkmanf	8 May 2003 19:41:49 -0000	1.4
@@ -1,13 +1,8 @@
 #!/bin/sh
 
-(
-  for x in $(find . -type d)
-  do
-    if [ -f $x/CVS/Entries ]; then
-      grep ^/ $x/CVS/Entries | cut -d/ -f2 | sed s,^,$x/, | sed s,^\./,,
-    fi
-  done
-  find lib -name \*.pm
-  find lib -name \*.pod
-) | sort -u > MANIFEST.new
+find . -name Entries \
+| egrep /CVS/Entries$ \
+| xargs perl -aF/ -lne 'print substr($ARGV,2,-11),$F[1] if m,^/, and $F[2] !~ /^-/ and $F[1] !~ /^\./;' -- \
+| sort -u > MANIFEST.new
+
 diff -u MANIFEST MANIFEST.new && rm MANIFEST.new