fixed cvs botch

git-svn-id: svn://10.0.0.236/trunk@4195 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
jwz
1998-06-20 01:09:35 +00:00
parent 4b7e8b60ba
commit 6f0c951205

View File

@@ -1,5 +1,5 @@
#!/usr/bonsaitools/bin/perl
# $Id: source,v 1.7 1998-06-19 23:06:50 jwz Exp $
# $Id: source,v 1.8 1998-06-20 01:09:35 jwz Exp $
# source -- Present sourcecode as html, complete with references
#
@@ -59,7 +59,7 @@ sub fdescexpand {
while(<FILE>){
if($linecount++ > 40) {
last;
}elsif (/\$Id: source,v 1.7 1998-06-19 23:06:50 jwz Exp $filename/){
}elsif (/[$]Id: $filename/){
#ignore cvs headers
}elsif (/^#/){
#ignore cpp directives