From 3ef29d3bf020b1cc9ee9e6e47ff138f0a9fd37f2 Mon Sep 17 00:00:00 2001
From: John Birrell <jb@FreeBSD.org>
Date: Tue, 12 May 1998 23:03:50 +0000
Subject: [PATCH] Change a cast of long * to time_t * in a call to time();

---
 gnu/usr.bin/perl/perl/eval.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/gnu/usr.bin/perl/perl/eval.c b/gnu/usr.bin/perl/perl/eval.c
index fcb5403eebce..664ebf1df6d7 100644
--- a/gnu/usr.bin/perl/perl/eval.c
+++ b/gnu/usr.bin/perl/perl/eval.c
@@ -1,4 +1,4 @@
-/* $RCSfile: eval.c,v $$Revision: 1.2 $$Date: 1995/05/30 05:03:03 $
+/* $RCSfile: eval.c,v $$Revision: 1.3 $$Date: 1998/02/01 22:04:49 $
  *
  *    Copyright (c) 1991, Larry Wall
  *
@@ -6,6 +6,12 @@
  *    License or the Artistic License, as specified in the README file.
  *
  * $Log: eval.c,v $
+ * Revision 1.3  1998/02/01 22:04:49  steve
+ * setpwent and endpwent have a return type of void, so change this
+ * to work like newer versions of perl.
+ *
+ * Reviewed by:	Bruce Evans
+ *
  * Revision 1.2  1995/05/30 05:03:03  rgrimes
  * Remove trailing whitespace.
  *
@@ -1680,7 +1686,7 @@ register int sp;
 	goto donumset;
     case O_TIME:
 #ifndef lint
-	value = (double) time(Null(long*));
+	value = (double) time(Null(time_t *));
 #endif
 	goto donumset;
     case O_TMS: