perl5.002beta3

[editor's note: no patch file was found for this release, so no
fine-grained changes]

I can't find the password for our ftp server, so I had to drop it into
ftp://ftp.sems.com/pub/incoming/perl5.002b3.tar.gz, which is a drop
directory you can't ls.

The current plan is that Andy is gonna whack on this a little more, and
then release a gamma in a few days when he's happy with it.  So don't get
carried away.  This is now *late* beta.

In other words, have less than the appropriate amount of fun.  :-)

Larry

1 files changed, 3 insertions, 1 deletions

diff --git a/dump.c b/dump.c
index f5073a0dec..19300e1fa8 100644
--- a/dump.c
+++ b/dump.c
@@ -185,7 +185,9 @@ register OP *op;
 		 op->op_type == OP_AELEM ||
 		 op->op_type == OP_HELEM )
 	{
-	    if (op->op_private & OPpDEREF_DB)
+	    if (op->op_private & OPpENTERSUB_AMPER)
+		(void)strcat(buf,"AMPER,");
+	    if (op->op_private & OPpENTERSUB_DB)
 		(void)strcat(buf,"DB,");
 	    if (op->op_private & OPpDEREF_AV)
 		(void)strcat(buf,"AV,");