Bugzilla bug #52187: modified ckapi.perl to read its input from the

first command-line argument as opposed to stdin.  Checkin on behalf
of sonmi@netscape.com.
Modified files: Makefile, ckapi.perl

security/nss/lib/ckfw/Makefile

@@ -30,7 +30,7 @@
 # may use your version of this file under either the MPL or the
 # GPL.
 #
-MAKEFILE_CVS_ID = "@(#) $RCSfile: Makefile,v $ $Revision: 1.3 $ $Date: 2000-09-09 03:19:35 $ $Name:  $"
+MAKEFILE_CVS_ID = "@(#) $RCSfile: Makefile,v $ $Revision: 1.4 $ $Date: 2000-09-11 22:37:01 $ $Name:  $"
 
 include manifest.mn
 include $(CORE_DEPTH)/coreconf/config.mk
@@ -43,7 +43,7 @@ nssckepv.h: ck.api ckapi.perl
 nssckft.h: ck.api ckapi.perl
 nssckg.h: ck.api ckapi.perl
 nssck.api: ck.api ckapi.perl
-	perl ckapi.perl < ck.api
+	perl ckapi.perl ck.api
 
 export:: private_export
 

security/nss/lib/ckfw/ckapi.perl

@@ -31,7 +31,7 @@
 # may use your version of this file under either the MPL or the
 # GPL.
 #
-$cvs_id = '@(#) $RCSfile: ckapi.perl,v $ $Revision: 1.2 $ $Date: 2000-04-19 21:31:42 $ $Name:  $';
+$cvs_id = '@(#) $RCSfile: ckapi.perl,v $ $Revision: 1.3 $ $Date: 2000-09-11 22:37:01 $ $Name:  $';
 
 $copyright = '/* THIS IS A GENERATED FILE */
 /* 
@@ -70,7 +70,10 @@ $copyright = '/* THIS IS A GENERATED FILE */
 
 $count = -1;
 $i = 0;
-while(<>) {
+
+open(INPUT, "<$ARGV[0]") || die "Can't open $ARGV[0]: $!";
+
+while(<INPUT>) {
   s/^((?:[^"#]+|"[^"]*")*)(\s*#.*$)/$1/;
   next if (/^\s*$/);
 
@@ -97,6 +100,8 @@ while(<>) {
   }
 }
 
+close INPUT;
+
 # dodump();
 doprint();