# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 697310710 0
# Node ID 4b75abb93479369d20d1088dfb913959bd4574fb
# Parent  6f7abc0e1f10339ac4ae7728f589d8ea7836d18b
Don't munge $* when getting date from ChangeLog.

diff -r 6f7abc0e1f10 -r 4b75abb93479 lib-src/=rcs2log
--- a/lib-src/=rcs2log	Wed Feb 05 04:31:18 1992 +0000
+++ b/lib-src/=rcs2log	Wed Feb 05 17:25:10 1992 +0000
@@ -2,7 +2,7 @@
 
 # RCS to ChangeLog generator
 
-#	$Id: rcs2clog,v 1.2 1992/02/05 04:29:40 eggert Exp $
+#	$Id: rcs2clog,v 1.2 1992/02/05 04:31:18 eggert Exp eggert $
 
 # Generate a change log prefix from RCS/* and the existing ChangeLog (if any).
 # Output the new prefix to standard output.
@@ -35,9 +35,11 @@
 datearg=-d'>1970'
 if test -s ChangeLog
 then
-	date=`sed 1q <ChangeLog` || exit
-	set x $date; shift
-	datearg="-d>$1 $2 $3 $4 $5"
+	e='s/^\(...\) \(...\) \(..\) \(..:..:..\) \(....\) .*/\1 \2 \3 \4 \5/p; 1q'
+	date=`sed -n "$e" <ChangeLog` || exit
+	case $date in
+	?*) datearg="-d>$date"
+	esac
 fi
 
 rlogout=/tmp/chg$$
diff -r 6f7abc0e1f10 -r 4b75abb93479 lib-src/rcs2log
--- a/lib-src/rcs2log	Wed Feb 05 04:31:18 1992 +0000
+++ b/lib-src/rcs2log	Wed Feb 05 17:25:10 1992 +0000
@@ -2,7 +2,7 @@
 
 # RCS to ChangeLog generator
 
-#	$Id: rcs2clog,v 1.2 1992/02/05 04:29:40 eggert Exp $
+#	$Id: rcs2clog,v 1.2 1992/02/05 04:31:18 eggert Exp eggert $
 
 # Generate a change log prefix from RCS/* and the existing ChangeLog (if any).
 # Output the new prefix to standard output.
@@ -35,9 +35,11 @@
 datearg=-d'>1970'
 if test -s ChangeLog
 then
-	date=`sed 1q <ChangeLog` || exit
-	set x $date; shift
-	datearg="-d>$1 $2 $3 $4 $5"
+	e='s/^\(...\) \(...\) \(..\) \(..:..:..\) \(....\) .*/\1 \2 \3 \4 \5/p; 1q'
+	date=`sed -n "$e" <ChangeLog` || exit
+	case $date in
+	?*) datearg="-d>$date"
+	esac
 fi
 
 rlogout=/tmp/chg$$