"fix C<print "foo ${\()}"> (pp_refgen fumbles when G_SCALAR, no args)"

Msg-ID:  <199805070402.AAA02858@aatma.engin.umich.edu>
 Files:  pp.c

p4raw-id: //depot/maint-5.004/perl@971

1 files changed, 7 insertions, 2 deletions

diff --git a/pp.c b/pp.c
index 1b2cb39c2c..ccf8c3dc63 100644
--- a/pp.c
+++ b/pp.c
@@ -376,8 +376,13 @@ PP(pp_refgen)
 {
     dSP; dMARK;
     if (GIMME != G_ARRAY) {
-	MARK[1] = *SP;
-	SP = MARK + 1;
+	if (++MARK <= SP)
+	    *MARK = *SP;
+	else
+	    *MARK = &sv_undef;
+	*MARK = refto(*MARK);
+	SP = MARK;
+	RETURN;
     }
     EXTEND_MORTAL(SP - MARK);
     while (++MARK <= SP)