Blame test/rsgetline.awk

Packit Service f629e6
# Date: Sun, 4 May 2014 18:09:01 +0200
Packit Service f629e6
# From: Davide Brini <dave_br@gmx.com>
Packit Service f629e6
# To: bug-gawk@gnu.org
Packit Service f629e6
# Subject: Re: [bug-gawk] Computed regex and getline bug / issue
Packit Service f629e6
# 
Packit Service f629e6
# I have been able to reduce the behavior to these simple test cases, which
Packit Service f629e6
# (unless I'm missing something obvious) should behave identically but don't:
Packit Service f629e6
# 
Packit Service f629e6
# $ printf '1,2,' | gawk 'BEGIN{RS="[,]+"}{print; a = getline; print "-"a"-"; print}'
Packit Service f629e6
# 1
Packit Service f629e6
# -0-
Packit Service f629e6
# 1
Packit Service f629e6
Packit Service f629e6
BEGIN {
Packit Service f629e6
	RS = "[,]+"
Packit Service f629e6
}
Packit Service f629e6
Packit Service f629e6
{
Packit Service f629e6
	printf "[%s] [%s]\n", $0, RT
Packit Service f629e6
	a = getline
Packit Service f629e6
	print "-"a"-"
Packit Service f629e6
	printf "[%s] [%s]\n", $0, RT
Packit Service f629e6
}