*** perl.c.orig	Mon Jan 13 16:39:23 1997
--- perl.c	Mon Jan 13 16:41:22 1997
***************
*** 1724,1730 ****
      /* We absolutely must clear out any saved ids here, so we */
      /* exec the real perl, substituting fd script for scriptname. */
      /* (We pass script name as "subdir" of fd, which perl will grok.) */
!     rewind(rsfp);
      for (which = 1; origargv[which] && origargv[which] != scriptname; which++) ;
      if (!origargv[which])
  	croak("Permission denied");
--- 1724,1736 ----
      /* We absolutely must clear out any saved ids here, so we */
      /* exec the real perl, substituting fd script for scriptname. */
      /* (We pass script name as "subdir" of fd, which perl will grok.) */
!    /* Patch bug in setuid on DEC alphas lstein 1/13/97
!       Was:
!       rewind(rsfp); 
!       */
!    /* change to */
!     lseek(fileno(rsfp),(off_t)0,0);
! 
      for (which = 1; origargv[which] && origargv[which] != scriptname; which++) ;
      if (!origargv[which])
  	croak("Permission denied");