cleanup arbitrary constant

fglock · fglock · commit beff070e48d9 · 2025-07-14T18:22:38.000+02:00
diff --git a/src/main/java/org/perlonjava/runtime/RuntimeScalar.java b/src/main/java/org/perlonjava/runtime/RuntimeScalar.java
@@ -430,10 +430,10 @@ private String formatLikePerl(double value) {
 
     public String toStringRef() {
         String ref = switch (type) {
-            case UNDEF -> "SCALAR(0x14500834042)";
+            case UNDEF -> "SCALAR(0x" + scalarUndef.hashCode() + ")";
             case CODE, GLOB -> {
                 if (value == null) {
-                    yield "CODE(0x14500834042)";
+                    yield "CODE(0x" + scalarUndef.hashCode() + ")";
                 }
                 yield ((RuntimeCode) value).toStringRef();
             }

Original file line number	Diff line number	Diff line change
`@@ -430,10 +430,10 @@ private String formatLikePerl(double value) {`
`430`	`430`
`431`	`431`	`public String toStringRef() {`
`432`	`432`	`String ref = switch (type) {`
`433`		`- case UNDEF -> "SCALAR(0x14500834042)";`
	`433`	`+ case UNDEF -> "SCALAR(0x" + scalarUndef.hashCode() + ")";`
`434`	`434`	`case CODE, GLOB -> {`
`435`	`435`	`if (value == null) {`
`436`		`- yield "CODE(0x14500834042)";`
	`436`	`+ yield "CODE(0x" + scalarUndef.hashCode() + ")";`
`437`	`437`	`}`
`438`	`438`	`yield ((RuntimeCode) value).toStringRef();`
`439`	`439`	`}`