# $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
#
-# Generated on Thu Nov 13 11:29:28 MET 2003 [metaconfig 3.0 PL70]
+# Generated on Mon Jan 12 14:18:05 MET 2004 [metaconfig 3.0 PL70]
# (with additional metaconfig patches by perlbug@perl.org)
cat >c1$$ <<EOF
: who configured the system
cf_time=`LC_ALL=C; LANGUAGE=C; export LC_ALL; export LANGUAGE; $date 2>&1`
-cf_by=`(logname) 2>/dev/null`
case "$cf_by" in
"")
- cf_by=`(whoami) 2>/dev/null`
+ cf_by=`(logname) 2>/dev/null`
case "$cf_by" in
- "") cf_by=unknown ;;
+ "")
+ cf_by=`(whoami) 2>/dev/null`
+ case "$cf_by" in
+ "") cf_by=unknown ;;
+ esac ;;
esac ;;
esac
buf[1] = 0;
buf[2] = 0;
buf[3] = 1;
+ buf[4] = 0;
buf[5] = 0;
buf[6] = 0;
- buf[7] = 0;
- buf[8] = 1;
+ buf[7] = 1;
for (i = 0; i < 4; i++) {
up = (U32*)(buf + i);