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
|
