perl 5.000d : [hint file updates]

[p5sagit/p5-mst-13.2.git] / x2p / util.c

diff --git a/x2p/util.c b/x2p/util.c
index 07f19a3..79cba69 100644 (file)
--- a/x2p/util.c
+++ b/x2p/util.c
@@ -1,17 +1,11 @@
-/* $Header: util.c,v 3.0.1.1 90/10/16 11:34:06 lwall Locked $
+/* $RCSfile: util.c,v $$Revision: 4.1 $$Date: 92/08/07 18:29:29 $
  *
- *    Copyright (c) 1989, Larry Wall
+ *    Copyright (c) 1991, Larry Wall
  *
- *    You may distribute under the terms of the GNU General Public License
- *    as specified in the README file that comes with the perl 3.0 kit.
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
  *
  * $Log:       util.c,v $
- * Revision 3.0.1.1  90/10/16  11:34:06  lwall
- * patch29: removed #ifdef undef
- * 
- * Revision 3.0  89/10/18  15:35:35  lwall
- * 3.0 baseline
- * 
  */
 
 #include <stdio.h>
@@ -29,7 +23,6 @@ static char nomem[] = "Out of memory!\n";
 
 /* paranoid version of malloc */
 
-static int an = 0;
 
 char *
 safemalloc(size)
@@ -199,6 +192,14 @@ int newlen;
 }
 
 /*VARARGS1*/
+croak(pat,a1,a2,a3,a4)
+char *pat;
+{
+    fprintf(stderr,pat,a1,a2,a3,a4);
+    exit(1);
+}
+
+/*VARARGS1*/
 fatal(pat,a1,a2,a3,a4)
 char *pat;
 {