From a35b84e273d80ad20b8a85ce8ed7655b6636b5cf Mon Sep 17 00:00:00 2001
From: Assar Westerlund <assar@sics.se>
Date: Mon, 20 Oct 1997 09:22:26 +0000
Subject: [PATCH] make it work with perl4

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@3652 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 cf/make-proto.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cf/make-proto.pl b/cf/make-proto.pl
index a55a64fd3..74cb02a11 100644
--- a/cf/make-proto.pl
+++ b/cf/make-proto.pl
@@ -24,8 +24,8 @@ while(<>) {
     if(/\{/){
 	if($line =~ /\)\s$/){
 	    $_ = $line;
-	    while(s/\*\//\ca/){
-		s/\/\*.*\ca//s;
+	    while(s/\*\//\001/){
+		s/\/\*.*\001//s;
 	    }
 	    s/^\s*//;
 	    s/\s$//;