Mercurial > emacs
changeset 11099:4d05376b5cb2
(output_authors): Replace /[/]/ by /[\/]/, for portability to mawk and nawk.
| author | Paul Eggert <eggert@twinsun.com> |
|---|---|
| date | Thu, 23 Mar 1995 01:21:07 +0000 |
| parents | 03b481b6cec2 |
| children | 2ad1ba0ac825 |
| files | lib-src/=rcs2log lib-src/rcs2log |
| diffstat | 2 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lib-src/=rcs2log Wed Mar 22 21:31:08 1995 +0000 +++ b/lib-src/=rcs2log Thu Mar 23 01:21:07 1995 +0000 @@ -12,7 +12,7 @@ # Author: Paul Eggert <eggert@twinsun.com> -# $Id: rcs2log,v 1.19 1995/03/21 05:37:42 eggert Exp eggert $ +# $Id: rcs2log,v 1.20 1995/03/21 23:14:41 eggert Exp eggert $ # Copyright 1992, 1993, 1994, 1995 Free Software Foundation, Inc. @@ -273,7 +273,7 @@ EOF esac output_authors='/^date: / { - if ($2 ~ /^[0-9]*[-/][0-9][0-9][-/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) { + if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) { print substr($5, 1, length($5)-1) } }'
--- a/lib-src/rcs2log Wed Mar 22 21:31:08 1995 +0000 +++ b/lib-src/rcs2log Thu Mar 23 01:21:07 1995 +0000 @@ -12,7 +12,7 @@ # Author: Paul Eggert <eggert@twinsun.com> -# $Id: rcs2log,v 1.19 1995/03/21 05:37:42 eggert Exp eggert $ +# $Id: rcs2log,v 1.20 1995/03/21 23:14:41 eggert Exp eggert $ # Copyright 1992, 1993, 1994, 1995 Free Software Foundation, Inc. @@ -273,7 +273,7 @@ EOF esac output_authors='/^date: / { - if ($2 ~ /^[0-9]*[-/][0-9][0-9][-/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) { + if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) { print substr($5, 1, length($5)-1) } }'