From 8358ff349222c49b8ac1ece48db9a570185ab7fb Mon Sep 17 00:00:00 2001
From: Keshava Munegowda <keshava.gowda@gmail.com>
Date: Fri, 24 May 2024 19:52:25 +0530
Subject: [PATCH] set the previous head to null in CQueue

Signed-off-by: Keshava Munegowda <keshava.gowda@gmail.com>
---
 perl/src/main/java/io/perl/api/impl/CQueue.java | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl/src/main/java/io/perl/api/impl/CQueue.java b/perl/src/main/java/io/perl/api/impl/CQueue.java
index dacdec681..8a4a84d72 100644
--- a/perl/src/main/java/io/perl/api/impl/CQueue.java
+++ b/perl/src/main/java/io/perl/api/impl/CQueue.java
@@ -64,7 +64,8 @@ public T poll() {
         if (cur == null) {
             return null;
         }
-        HEAD.set(this, cur);
+        Object oldHead = HEAD.getAndSet(this, cur);
+        oldHead = null;    //might help the Java garbage collector
         return (T) ITEM.getAndSetRelease(cur, null);
     }