===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/awk/run.c,v
retrieving revision 1.31
retrieving revision 1.32
diff -c -r1.31 -r1.32
*** src/usr.bin/awk/run.c	2010/06/13 17:58:19	1.31
--- src/usr.bin/awk/run.c	2011/04/20 22:28:39	1.32
***************
*** 1,4 ****
! /*	$OpenBSD: run.c,v 1.31 2010/06/13 17:58:19 millert Exp $	*/
  /****************************************************************
  Copyright (C) Lucent Technologies 1997
  All Rights Reserved
--- 1,4 ----
! /*	$OpenBSD: run.c,v 1.32 2011/04/20 22:28:39 millert Exp $	*/
  /****************************************************************
  Copyright (C) Lucent Technologies 1997
  All Rights Reserved
***************
*** 1477,1482 ****
--- 1477,1483 ----
  	char *p, *buf;
  	Node *nextarg;
  	FILE *fp;
+ 	static Awkfloat old_seed = 1;
  
  	t = ptoi(a[0]);
  	x = execute(a[1]);
***************
*** 1580,1590 ****
  			u = (Awkfloat) (random() % RAND_MAX) / RAND_MAX;
  		break;
  	case FSRAND:
  		if (isrec(x))	/* no argument provided, want arc4random() */
  			use_arc4 = 1;
  		else {
! 			u = getfval(x);
! 			srandom((unsigned int) u);
  			use_arc4 = 0;
  		}
  		break;
--- 1581,1592 ----
  			u = (Awkfloat) (random() % RAND_MAX) / RAND_MAX;
  		break;
  	case FSRAND:
+ 		u = old_seed;
  		if (isrec(x))	/* no argument provided, want arc4random() */
  			use_arc4 = 1;
  		else {
! 			old_seed = getfval(x);
! 			srandom((unsigned int) old_seed);
  			use_arc4 = 0;
  		}
  		break;