[win32] Trivial bugfix#2 from local repository

	Message-Id: <199712061025.FAA14396@aatma.engin.umich.edu>
	Subject: Re: eval of sub gives spurious "uninitialised" warning

p4raw-id: //depot/win32/perl@382

1 files changed, 2 insertions, 0 deletions

diff --git a/op.c b/op.c
index d508bfba5f..ff1778953c 100644
--- a/op.c
+++ b/op.c
@@ -3873,6 +3873,8 @@ ck_eval(OP *o)
 	    enter->op_other = o;
 	    return o;
 	}
+	else
+	    scalar(kid);
     }
     else {
 	op_free(o);